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

Signaler
-
Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
-
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.

4 réponses

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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 494
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++
Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 291
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
Merci, mais j'ai essayé les deux solutions et je n'obtient aucun résultat.

Cordialement
Messages postés
12185
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
21 septembre 2020
2 494
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