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.
;0)
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)
C'est parfait.
Vous êtes génial.
Votre aide m'a été précieuse.
Heuuu génial !!! nan, je ne pense pas ... ^^