Date non conforme
Résolu
Philou73CH
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
Bonjour / Bonsoir,
Je suis ennuyé avec le format de date. J'ai créé une Userform ( si c'est bien le therme exact??) pour choisir des dates. Dans la liste depuis laquelle je fais les propositions, j'ai mis le format JJJJ JJ MMMM AAAA. Et cette boîte me met en jj/mm/aaaa. Et après cela reste tout le temps ainsi, même si je reporte à d'autres cellule.
Vous trouverez ci-dessous le dossier.
http://cjoint.com/?0Aydhzwbyw5
D'avance je vous remercie de m'avoir lu et vous remercie pour l'aide que vous pouvez m'apporter.
Je suis ennuyé avec le format de date. J'ai créé une Userform ( si c'est bien le therme exact??) pour choisir des dates. Dans la liste depuis laquelle je fais les propositions, j'ai mis le format JJJJ JJ MMMM AAAA. Et cette boîte me met en jj/mm/aaaa. Et après cela reste tout le temps ainsi, même si je reporte à d'autres cellule.
Vous trouverez ci-dessous le dossier.
http://cjoint.com/?0Aydhzwbyw5
D'avance je vous remercie de m'avoir lu et vous remercie pour l'aide que vous pouvez m'apporter.
1 réponse
-
Bonjour,
Il faut copier/coller le bout de code ci dessous, en lieu et place du With Worksheets("Liste") ... End With.
With Worksheets("Liste") For x = 2 To .Range("Dateinter").Count If .Range("Dateinter").Cells(x, 1) <> "" Then mDate = .Range("Dateinter").Cells(x, 1).Value ListBox1.AddItem Format(mDate, " dddd dd mmmm yyyy") '.Range("Dateinter").Cells(x, 1) Point = Point + 1 End If Next x End With
;0)
