Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

initialisation des textbox d'un formulaire

  • Initiateur de la discussion Delcourt René
  • Date de début
D

Delcourt René

Guest
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
 
J

jon

Guest
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
 
R

Romuald

Guest
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
 
D

Delcourt René

Guest
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.
 
R

Roland

Guest
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…