Astuces Excel
  1. Astuces Excel
  3. Excel VBA Userform – Comment augmenter / diminuer la date d'un mois
Intereting Posts
Affecter une cellule en fonction du résultat d'une autre formule Fusionner plusieurs lignes dans une seule ligne dans Excel Pourquoi est-ce que je continue d'avoir une exception COM lors de l'utilisation de FormulaArray L'index était une erreur hors limites lors de l'export vers Excel Lier les feuilles de calcul Excel entre elles afin que les modifications soient mappées à l'autre Missing Zeros avancé dans SQL Export to Excel Loop Comment continuer à classr plusieurs feuilles dans Excel Axe fixe dans le graphique Excel Web Query VBA Refresh Détection d'une nouvelle boucle lorsque l'intervalle commence à 0 à nouveau Trouvez la dernière valeur par ligne puis entrez la date dans une cellule Lors de la copy et du collage de données Excel, les colors sont perdues Enregistrez le nom de chaque valeur qui apparaît 5 fois dans 5 colonnes Coffre de contrôle de formulaire contrefaçon de reference de reference de cellule Chargement de DLD COM 32 bits dans un addin de bureau 64 bits

Excel VBA Userform – Comment augmenter / diminuer la date d'un mois

À l'aide du code suivant, j'augmente la valeur de la date affichée dans TextBox avec SpinButtons. 

MainUserForm_Initialize() DateTextBox.Value = Format(Date, "dd-mm-YYYY") ... End Sub 'Add one day when spinning up. Private Sub SpinButtonDate1_SpinUp() With DateTextBox .Value = Format(DateAdd("d", 1, .Value), "dd-mm-yyyy") End With End Sub 'Remove one day when spinning down. Private Sub SpinButtonDate1_SpinDown() With DateTextBox .Value = Format(DateAdd("d", -1, .Value), "dd-mm-yyyy") End With End Sub

Le problème est que si je tourne vers le 11-07-2015, il va du 12-07-2015 au 06-12-2015 au lieu du 11-07-2015. Pourquoi donc? (J'ai le même problème lors de l'augmentation de la valeur. Les dates données ne sont qu'un exemple.)

Je n'ai le même problème que si j'ai configuré mon format régional aux États-Unis. Essayez ce correctif qui devrait fonctionner indépendamment de vos parameters régionaux: 

 'Add one day when spinning up. Private Sub SpinButtonDate1_SpinUp() With DateTextBox .Value = Format(GetDateFromUK(.Value) + 1, "dd-mm-yyyy") End With End Sub 'Remove one day when spinning down. Private Sub SpinButtonDate1_SpinDown() With DateTextBox .Value = Format(GetDateFromUK(.Value) - 1, "dd-mm-yyyy") End With End Sub Function GetDateFromUK(sDate As Ssortingng, Optional sSeparator As Ssortingng = "-") As Date Dim vParts vParts = Split(sDate, sSeparator) GetDateFromUK = DateSerial(vParts(2), vParts(1), vParts(0)) End Function