Réinitialiser un UserForm qui contient des TextBox

Question

Bonjour,

J'ai une userform (UF2) qui contient plusieurs textbox et combobox.
L'utilisateur fait des choix, valide en cliquant sur un bouton ce qui a pour effet d'affecter 
a des cellules la valeurs des box.

Mon pb, c'est que lorsque je re fais appel &#224; UF2, ben les box sont tjs remplie...
Merci de me d&#233;bloquer!

Big G

econs · Answer

dans le module de UF2, tapes ceci : (non test&#233;, mais je pense que &#231;&#224; doit aller)


Private Sub UF2_Initialize()

Text1.Text = ""

Text2.Text = ""

End Sub




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Big_G · Answer

Ok, merci
je v tester

Big G

phantom_2005 · Answer

Un peu long si t'as 50 textboxs

Essaies c&#224;:

Private Sub UF2_Initialize()

Dim ctl As Control

For Each ctl in UF2.Controls
   Select Case TypeName(ctl)
   Case "Textbox","Combobox":
      ctl.Value=""
   End Select
Next ctl

End Sub

En esp&#233;rant t'avoir aid&#233;,
@+


--------------------------------------------------------------------------------
Phantom_2005

Réinitialiser un UserForm qui contient des TextBox

3 réponses

Discussions similaires