userform calendrier

[lolodu74]

Bonjour,

Je sélectionne une date dans un userform calendrier que j'affiche dans une textbox.
Quand je transfert le contenu de ma textbox dans une cellule excel, ma date est au format anglais.
Comment est ce que je peux faire pour que ma date s'affiche dans le format français.

Je vous en remercie.

Cordialement

Lolo

 

[Pierrot93]

Re : userform calendrier

Bonjour,

essaye la fonction "CDate" :

ActiveCell = CDate(TextBox1)

bonne journée
@+

 

[lolodu74]

Re : userform calendrier

Bonjour,

Oui j'ai déjà, essayé, cela marche, par contre cela génére un message d'erreur si ma textbox est vide.
Je souhaiterais que si ma textbox est vide et que je valide, que le contenu de ma cellule soit vide.

Cordialement

Laurent

 

[Pierrot93]

Re : userform calendrier

Re,

peut être comme ceci :

If TextBox1 <> "" Then ActiveCell = CDate(TextBox1)

ou bien :

If TextBox1 <> "" And IsDate(TextBox1) Then ActiveCell = CDate(TextBox1)

 

[lolodu74]

Re : userform calendrier

Re,

je ne sais pas trop ou rajouter le code dans mon fichier, donc le voici en pièce jointe pour un petit coup de main.

Je vous en remercie

Cordialement

Laurent

 

[Pierrot93]

Re : userform calendrier

Re,

je ne sais pas trop ou rajouter le code dans mon fichier, donc le voici en pièce jointe pour un petit coup de main.

bah... lorsque tu envoies la valeur de la textbox vers la cellule....

 

[Pierrot93]

Re : userform calendrier

Re,

A la place de :

vdate = CDate(.Txt_vdate.Value)

tu mets :

If .Txt_vdate.Value <> "" And IsDate(.Txt_vdate.Value) Then vdate = CDate(.Txt_vdate.Value)

 

[lolodu74]

Re : userform calendrier

Re,

A la place de :

vdate = CDate(.Txt_vdate.Value)

tu mets :

If .Txt_vdate.Value <> "" And IsDate(.Txt_vdate.Value) Then vdate = CDate(.Txt_vdate.Value)

Re,

Cela fonctionne par contre si je valide sans rien, j'affiche la dernière date qui a été saisie dans le textbox, est il possible d'avoir le contenu de la cellule vide à la place.

Merci

Laurent

 

[Pierrot93]

Re : userform calendrier

Re,

si je valide sans rien, j'affiche la dernière date qui a été saisie dans le textbox, est il possible d'avoir le contenu de la cellule vide à la place.

bah.. si textbox est vide.... elle est où la dernière valeur de cette textbox....

 

[Pierrot93]

Re : userform calendrier

Re,

Aarf je vien peut être de comprendre.... rajoute cette instruction :

vdate = ""

avant :

If .Txt_vdate.Value <> "" And IsDate(.Txt_vdate.Value) Then vdate = CDate(.Txt_vdate.Value)

 

[lolodu74]

Re : userform calendrier

Re,

Super, cela fonctionne nickel.

Merci bien.

Cordialement

Laurent

🙂🙂