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

- - Dernière réponse : pijaku
Messages postés
12253
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
- 8 avril 2016 à 15:26
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.
Afficher la suite 

4 réponses

Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1067
0
Merci
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
0
Merci
Merci, mais j'ai essayé les deux solutions et je n'obtient aucun résultat.

Cordialement
Messages postés
12253
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
2215
0
Merci
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

0
Merci
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
pijaku
Messages postés
12253
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
2215 -
Plus simplement, oui.
Mais je voulais juste, par mon code, te montrer qu'une InputBox renvoie un String :
Dim strDate As String
    strDate = InputBox("Saisir la Date sous la forme jj/mm/aaaa")

Et que l'on peut convertir un String représentant une date, en Date :
maDate = CDate(strDate)

Voilà.
A++