Problème de format de date

Bonjour le forum,

j'ai un souci avec un formatage de date :

With Sheets(vNomFeuille)

.Cells(vLigne, 2) = Range("DateVisa").NumberFormat = "dd.mm.yyyy"

End With

renvoie la valeur FAUX dans la cellule cible

With Sheets(vNomFeuille)

.Cells(vLigne, 2).NumberFormat = "dd.mm.yyyy"

.Cells(vLigne, 2) = Range("DateVisa")

End With

renvoie la date correctement formatée, mais je trouve lourd. Y aurait-il moyen de d'insérer la valeur et la formater en même temps?

Merci de votre aide

Salut François

Ci-dessous une manière de procéder :

Sheets(vNomFeuille).Cells(vLigne, 2) = Format(Range("DateVisa"),"dd.mm.yyyy")

Restant à ta dispo !

Excellent, merci