Discussion :

[MarcelG]

Bonjour à tous,
J'ai un userform dont certains contrôles Textbox.
J'ai forcé le format (monétaire, date...) de ceux-ci par la solution "classique"
Private Sub Textbox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
exemple
Textbox1.value = Format(Textbox.value,"dd mmmm yy")
ou bien
Textbox2.value = Format(Textbox.value,"# ##0.00")
etc...
Le problème est que si j'envoie une valeur de Textbox1, le format s'affiche correctement (par exemple en date). Mais dès que je sors de Textbox2 alors le format de Textbox1 disparaît !!??
Je galère sur mon code depuis quelques heures (vérification des Tabindex...)
mais je n'arrive pas à m'expliquer cette anomalie.
Quelqu'un a-t-il une explication ? Merci pour votre aide. Cordialement.

[laurentabj]

Et ben c'est pas très clair tout ça...

Qui est TextBox dans ton form ? un troisième TextBox ?

Qu'entends-tu par envoyer une valeur de TextBox1 ?

Passe nous ton code, ce sera plus clair

[MarcelG]

Ce que j'ai voulu dire dans mon exemple.
Le formatage, dans mon usf de tous les Textbox commencent par cette procédure évènementielle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Textbox_Exit.......etc 
Textbox.value=Format(Textbox.Value, etc
End Sub

(Ici Textbox représente les Textbox en général, tels que je les ai formatés en monétaire ou en date)
Pus j'ai donné 2 exemples Textbox1 et Textbox2
Dans mon userform, si j'entre une valeur dans Textbox1 exemple 13/8/9 alors, après la touche Entrée activée, l'userform affiche 13 Août 2009. Très bien.
Si j'entre une valeur en Textbox2 exemple 500, l'userform affiche 500 €. Très bien, mais le problème est que, dès cette donnée entrée, le 1er Textbox s'affiche 13/08/2009.
En espérant m'être mieux exprimé. Merci

[laurentabj]

Voilà un code qui fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1.Value, "dd mmmm yy")
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = Format(TextBox2.Value, "# ##0.00")
End Sub

[MarcelG]

Merci.
Mais c'est justement le type de code que j'ai adopté.
Je viens de remarquer que c'est le Textbox précédent qui perd son format.
Si j'entre une valeur en Textbox3, c'est le Textbox2 qui perd son format.
Ce pb doit survenir d'une autre raison. Cordialement.

[laurentabj]

1/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Mon code
TextBox1.Value = Format(TextBox1.Value, "dd mmmm yy")

N'est pas la même chose que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Ton code
Textbox1.value = Format(Textbox.value,"dd mmmm yy")

2/ Où se trouve tes private sub ? Ils devraient être dans le module de ton userform

3/ j'ai testé et ça fonctionne