[XL-2007] Date dans Userform [Résolu]

[meumeu73.1]

Bonjour,

Lorsque j'ouvre ma userform, je demande la récupération d'une date :

Code :

1
2
        Valideur_Date.Text = Trim(.Range("G6").Value)
            Valideur_Date.Value = Format(Valideur_Date.Value, "dd/MM/yyyy")

Pas de problème

lorsque je valide la Userform, mon mois et mon jour sont inversés ?

Code :

1
2
        .Range("G6").Value = Application.WorksheetFunction.Substitute(Valideur_Date.Text, vbCrLf, Chr(10))
                Valideur_Date.Value = Format(Valideur_Date.Value, "dd/MM/yyyy")

Y a t il une solution pour éviter ce changement entre mois et jours ?

Par avance merci pour votre aide.

[jfontaine]

Bonjour,

Regardes ce post qui traite ce sujet

http://www.developpez.net/forums/d11...ion-jour-mois/

[meumeu73.1]

Désolé, mais c'est toujours pareil.

[jfontaine]

Quel est ton code après utilisation du DateValue ?

[meumeu73.1]

après, je ferme ma userform

Code :

Unload userform

je ne fais rien de plus.

je viens de mettre la cellule qui réceptionne la date en format texte et apparemment ça fonctionne.

[Ormonth]

Bonjour,

vois ce tutoriel :

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier

[meumeu73.1]

En fait j'ai mis :

Code :

1
2
        .Range("G6").Value = Application.WorksheetFunction.Substitute(Valideur_Date.Text, vbCrLf, Chr(10))
                Valideur_Date.Value = Format(Valideur_Date.Value, "@")