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
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