Dimensionner les dates d'une colonne
Modisdonc
Messages postés
8
Statut
Membre
-
ThauTheme Messages postés 1564 Statut Membre -
ThauTheme Messages postés 1564 Statut Membre -
Bonjour,
Comment mettre dans une macro que les données de la colonne A (cellules 2 à 2000) sont des dates ?
Cette question pour éviter que le VBA me transforme les dates française en english dès qu'une opération est faite.
Merci par avance,
Comment mettre dans une macro que les données de la colonne A (cellules 2 à 2000) sont des dates ?
Cette question pour éviter que le VBA me transforme les dates française en english dès qu'une opération est faite.
Merci par avance,
A voir également:
- Dimensionner les dates d'une colonne
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Colonne word - Guide
- Nombre de jours entre deux dates excel - Guide
- Formule somme excel colonne - Guide
1 réponse
Bonjour Modisdonc, bonjour le forum,
Je choisis le format de date désiré dans la plage (A2:A2000 dans ton cas). Ensuite, plutôt que de renvoyer la valeur d'un contrôle contenant une date (TextBox1.Value par exemple) vers une cellule, je convertis sa valeur en numéro de série de date. De cette maniere, je suis sûr de ne jamais avoir inversion jours/mois.
Exemple avec une userform où la Textbox1 est renseignée par une date au format jj/mm/aaaa. Au clic sur le CommandButton1 (bouton de validation)
J'espère que ça pourra t'aider...
À plus,
ThauTheme
Je choisis le format de date désiré dans la plage (A2:A2000 dans ton cas). Ensuite, plutôt que de renvoyer la valeur d'un contrôle contenant une date (TextBox1.Value par exemple) vers une cellule, je convertis sa valeur en numéro de série de date. De cette maniere, je suis sûr de ne jamais avoir inversion jours/mois.
Exemple avec une userform où la Textbox1 est renseignée par une date au format jj/mm/aaaa. Au clic sur le CommandButton1 (bouton de validation)
Private Sub CommandButton1_Click()
Dim D As Long
D = DateSerial(Year(Me.TextBox1.Value), Month(Me.TextBox1.Value), Day(Me.TextBox1.Value))
Range("A2").Value = D
End Sub
J'espère que ça pourra t'aider...
À plus,
ThauTheme
