Dimensionner les dates d'une colonne
Fermé
Modisdonc
Messages postés
8
Date d'inscription
lundi 3 avril 2017
Statut
Membre
Dernière intervention
26 avril 2017
-
26 avril 2017 à 16:57
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 26 avril 2017 à 17:13
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 26 avril 2017 à 17:13
A voir également:
- Dimensionner les dates d'une colonne
- Déplacer une colonne excel - Guide
- Colonne word - Guide
- Figer une colonne excel - Guide
- Additionner colonne excel - Guide
- Trier colonne excel - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
Modifié le 26 avril 2017 à 17:15
Modifié le 26 avril 2017 à 17:15
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
