Macro fonction InputBox

laraviole · 14 Avril 2010

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 · 14 Avril 2010

Re : Macro fonction InputBox

Bonsoir laraviole,

Peut-être tout simplement comme ceci :

Code:

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 · 14 Avril 2010

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

Macro fonction InputBox

laraviole

XLDnaute Junior

Papou-net

XLDnaute Barbatruc

laraviole

XLDnaute Junior

Discussions similaires