Macro fonction InputBox

[laraviole]

Bonsoir le Forum,

Pour saisir des nombre j'utilise dans une macro une boite de dialogue et cela fonctionne bien mais quand il s'agit d'une date saisie sous la forme 11/04/2010 ma cellule me donne 04/11/2010 alors que le format est bon. Aprés le 12éme jour du mois tout est ok la date est dans le bon sens. Y a t-il quelque chose à rajouter dans la commande ?
Ci dessous mon code

Range("L2").Select
Dim DateVal
DateVal = InputBox("Saisir Date", "Fraicheur des données")
ActiveCell.FormulaR1C1 = DateVal

Merci pour votre aide

 

[Papou-net]

Re : Macro fonction InputBox

Bonsoir laraviole,

Peut-être tout simplement comme ceci :

Range("L2").Select
Dim DateVal
DateVal = InputBox("Saisir Date", "Fraicheur des données")
ActiveCell.FormulaR1C1 = [COLOR="Blue"][B]Cdate([/B][/COLOR]DateVal[COLOR="Blue"][B])[/B][/COLOR]

Espérant avoir répondu.

Cordialement.

 

[laraviole]

Re : Macro fonction InputBox

Bonsoir Papou-net,
Tu as bien répondu, plus de problème
C'est génial, merci pour ton aide
Cordialement