Pb de date textbox => excel

[bigmousse]

Bonjour,
Lorsque je veux copier la date d'un texte box dans une cellule celui-ci m'inverse les mois et l'année.

Lorsque je tape 10/11/2010 dans le textbox, et que j'execute le code
dans la cellule je recupère 11/10/2010.

With UserForm1
    MaBD.Cells(ROW_BD_NC + 1, 2) = .TB_Date.Value
    ...
End With

Je ne comprends pas vraiement, car je crois ça fonctionnait correctement avant..

Merci
Salutations
Mousse

 

[youky(BJ)]

Re : Pb de date textbox => excel

Bonjour Bigmousse,

If IsDate(.TB_Date) Then  MaBD.Cells(ROW_BD_NC + 1, 2) = DateValue(.TB_Date)

à tester . . .
Bruno

 

[bigmousse]

Re : Pb de date textbox => excel

Ca marche
Merci

 

[Pierrot93]

Re : Pb de date textbox => excel

Bonjour,

une autre solution est d'utiliser la fonction "CDate".

Range("A1").Value = CDate(TextBox1.Value)

bon après midi
@+

 

[youky(BJ)]

Re : Pb de date textbox => excel

Bonjour Pierrot,
Désolé de te contredire mais dans ce cas là un Cdate ou CVdate ne font pas l'affaire
Ceux-ci renvoient une variable de type date (pas forcement en version Francaise)
Par contre DateValue renvoie du texte qui correspond pour le cas de bigmousse.
je reconnais que je peux me tromper et c'est grosse galère et de plus tout peux changer en fonction des paramètres d'Excel.
Bonne fin de journée ou il vaut mieux être au chaud.
Bruno

 

[Pierrot93]

Re : Pb de date textbox => excel

Re,
bonsoir Bruno
perso, jamais de souci avec "cdate", à condition bien sur que la donnée traitée soit considérée comme une date par Excel / vba... maintenant effectivement cela peut jouer / interférer avec les paramètres Excel / régionaux....

Mais cela n'enlève rien à ton approche...

te souhaitant une bonne soirée.
@+

 

[bigmousse]

Re : Pb de date textbox => excel

Merci pour l'info
à+