Date non conforme

Résolu
Philou73CH -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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.
A voir également:

1 réponse

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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)
0
Philou73CH
 
Merci à vous,
C'est parfait.
Vous êtes génial.
Votre aide m'a été précieuse.
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
De rien.

Heuuu génial !!! nan, je ne pense pas ... ^^
0