initialisation des textbox d'un formulaire

[Delcourt René]

Que cette journée vous soit douce et profitable...

Voici le code d'un userform nommé "Impression".
en cliquanr sur le bouton contrôle effacer, la macro n'efface qu'une des 5 textbox. En recliquant sur le bouton, il efface la deuxième et ainsi de suite.
Pourtant quand je suis la macro pas à pas, toutes les textbox sont initialisée???

Que passa?

Public Sub Annuler_Click()
Unload Impression
impr = 0
End Sub


Public Sub Effacer_Click()
Impression.UserForm_Initialize
End Sub

Public Sub OK_Click()
Unload Impression
impr = 1
End Sub

Public Sub UserForm_Activate()
Dim ret As Integer
ret = MsgBox("Garder les informations?", vbYesNo, "Impression")
If ret = vbYes Then
Exit Sub
Else
UserForm_Initialize
End If
End Sub

Public Sub UserForm_Initialize()

Impression.TextBox1.Value = ""
Impression.TextBox2.Value = ""
Impression.TextBox3.Value = ""
Impression.TextBox4.Value = ""
Impression.TextBox5.Value = ""
Impression.TextBox1.SetFocus
End Sub

 

[jon]

chez moi ça marche, les textboxes sont effacées à l'initialisation
mais question, pourquoi utilises-tu l"évènement activate ?
affiche tu ton formulaire en mode non modal ?


bye
Stéphane

 

[Romuald]

Mets le code suivant dans une fonction privée et appelle la à partir de UserForm_Initialize() et de Effacer_Click(), ça serait plus propre et ça fonctionnerait peut-être mieux


Impression.TextBox1.Value = ""
Impression.TextBox2.Value = ""
Impression.TextBox3.Value = ""
Impression.TextBox4.Value = ""
Impression.TextBox5.Value = ""
Impression.TextBox1.SetFocus

 

[Delcourt René]

Merci de participer à mon problème.

Cela ne va pas mieux!
Cependant quand j'effectue le code pas à pas, chaque champ est effacé; sinon seul le premier l'est.

 

[Roland]

Bonsoir René

Tes TextBox sont-ils liès à des cellules? Si oui tu as peut-être un conflit à l'initialisation entre cette liaison et ton code. Essaie de mettre une MsgBox devant tes 5 lignes juste pour voir si de retarder l'initialisation la rend opérante.

A suivre Roland