Vba Format Date Anglais/Français Résolu/Fermé

Question

Bonjour, 

Je souhaite afficher une boite de saisie de date sous la forme "jj/mm/aaaa".

Lorsque l'utilisateur saisit la date sous la forme indiquée, cette date s'affiche dans le fichier sous la forme "mm/jj/aaaa"

-----------------------------------------------------------------------------------------
ActiveCell.FormulaR1C1 = InputBox("Saisir la Date sous la forme jj/mm/aaaa")
    Selection.NumberFormat = "dd/mm/yyyy"
-----------------------------------------------------------------------------------------

Auriez vous une idée pour m'aider, je vous remercie d'avance.

jc80 · Answer

Bonjour

essaie avec Selection.Format Date ("dd/mm/yyyy) 
ou  Day(Now) & "_" & Month(Now) & "_" & Year(Now) 
 au lieu de Selection.NumberFormat = "dd/mm/yyyy" 
Cordialement

Varin · Answer

Merci, mais j'ai essayé les deux solutions et je n'obtient aucun résultat.

Cordialement

pijaku · Answer

Bonjour,

Essaie ceci :
Sub test()
Dim maDate As Date, strDate As String
    strDate = InputBox("Saisir la Date sous la forme jj/mm/aaaa")
    maDate = CDate(strDate)
    ActiveCell.Value2 = maDate
End Sub

Varin · Answer

Bonjour,

Merci, c'est impeccable !

Plus simplement

Sub Date()
Dim Date As Date
    Date= InputBox("Saisir la Date sous la forme jj/mm/aaaa")
    ActiveCell.Value = Date
End Sub

Cordialement

Vba Format Date Anglais/Français

4 réponses

Discussions similaires