Date version anglaise

Bonjour à tous,

Pouvez-vous m'aider ?

Voici un début de macro qui me pose problème :

Sub Tri_par_séance()

Dim resultat As String

resultat = InputBox("Quelle est la date recherchée ?")

If resultat <> "" Then

Range("F4") = resultat

End If

Cela fonctionne sauf que lorsque j'écris un jour inférieur à 12, alors il me renvoi ce jour en mois.

Par exemple, j'écris 06/11/2019 (06 novembre 2019), il me renvoie 11/06/2019 (11 juin 2019).

Pouvez-vous m'aider svp ?

Merci d'avance,

Cordialement,

jéjé

Bonjour jeje62600,

Le problème résulte du fait que tu déclare ta variable en "String" qui est du Texte, si dans ton inputBox tu attends une date, il faut que tu déclares en Date.

Rechercher des sujets similaires à "date version anglaise"