XL 2013 Imputbox Format Date

Bari

XLDnaute Nouveau
Bonjour à tous,

Voila je suis débutant sur excel (macro), et je fais face à un problème.
j'ai un soucis avec mon format date, Quand je mets une date sur imputbox il me met en format américain cad 01/08/2018 se transforme en 08/01/2018. j'aimerais conserver un format Français. ( jj/mm / aaaa )

Avez vous des indices voir des solutions par rapport à cela ? Merci

Sub a1()

Dim resultat As String

resultat_dateannul = InputBox("Saisir la date de l'OD au format jj/mm/aaaa", "Quel est la date d'annulation ?", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox

If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat

End If

Range("C2").Select
ActiveCell.FormulaR1C1 = resultat_dateannul

End Sub
 

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 867
dernier inscrit
XFPRO