Inversion dd/mm/yyyy en mm/dd/yyyy

Bonjour,

Tout d'abord, meilleurs voeux à tous, et surtout bonne santé !!

Je me suis permis de créer un compte sur ce forum car j'ai un petit soucis. En général plutôt autodidacte, j'ai parcouru beaucoup de sujet et de cours VBA concernant ce problème mais je suis bloqué.

J'ai un userform où je rentre une date. Je récupère les données de mon UserForm au moment de la validation du userform. Cette date, je veux la copier dans une autre feuille de calcul, juste avant l'écriture dans la cellule, le format de ma date est bonne (dd/mm/yyyy), malgré tout elle apparaît en format (mm/dd/yyyy). Je ne comprends pas. Pour précision, j'ai forcé le format de ma date avant l'envoie dans ma cellule comme cela :

idDate = Format(ajoutRdv.dateRdv, "dd/mm/yyyy")

Comme j'ai dit :

            MsgBox idDate
            Worksheets("RDV PATIENT").Cells(index + 1, 3) = idDate

M'affiche bien le bon format.

Je précise aussi que le format de mes cellules qui accueillent les dates, sont au format date avec comme paramètres régionaux France au format dd/mm/yyyy

Quelqu'un peut il m'éclairer s'il vous plaît ?

Cordialement

Bonjour,

Et meilleurs vœux, tout pareil.

Peut-être en utilisant cette syntaxe?

Worksheets("RDV PATIENT").Cells(index + 1, 3) = CDate(ajoutRdv.dateRdv)

En ayant pris le soin de bien vérifier la valeur "Date"

If IsDate(ajoutRdv.dateRdv) then.....

Bonne journée

Bonjour,

Autre proposition, convertissez votre date à récupérer en double, puis recopiez-la au bon format, exemple

Madate = CDbl(Range("A1").Value)
Range("A2").Value = Format(Madate, "m/d/yyyy")

Cdlt

Parfait !

Réponse claire et précise, mais surtout efficace! Ça fonctionne.

Je te remercie beaucoup. Je savais bien que c'était un problème de format mais n'avait pas vu cette fonction.

Cordialement