RAZ d'un userform

[Nicko]

bonjour à tous,

Est-il possible de reinitialiser un userform sans le fermer ?

J'ai dans mon userform 2 listbox et 12 boutons d'option qui, à l'ouverture, sont tous vide.

j'aimerais après avoir cliquer sur le bouton OK(donc après une premiere saisie) que tous redeviennent vide.

Comment faire ???

 

[Hellboy]

Re : RAZ d'un userform

Bonjour a tous

Oui c'est possible:

Private Sub CommandButton1_Click()
With Me
  .Hide
   .OptionButton1.Value = 0
   .OptionButton2.Value = 0
   ' etc
End With

End Sub

 

[Shock]

Re : RAZ d'un userform

bjr,
je me permets d'apporter une correction,
si j'ai bien compris la demande de Nicko, il veut laisser le USF ouvert?
dans ce cas, enlève la ligne ".Hide" de ton code!
bye

et, au cas où :
pour les listbox, c'est "ListBox1.Clear"

 

[Nicko]

Re : RAZ d'un userform

Oui, j'avais bien pensé à cette solution, mais je me demandais si il n'y avait pas plus rapide plutot que de reprendre chaque 'Objet' !

 

[myDearFriend!]

Re : RAZ d'un userform

Bonsoir Nicko, Shock, Hellboy,

Si le Userform contient beaucoup de contrôles, on devrait pouvoir faire comme ça :

[SIZE=2]Sub RAZusf()
[COLOR=navy]Dim [/COLOR]Ctrl[COLOR=navy] As [/COLOR]Control
      [COLOR=navy]For Each[/COLOR] Ctrl[COLOR=navy] In [/COLOR]Me.Controls
            [COLOR=navy]Select Case[/COLOR] TypeName(Ctrl)
            [COLOR=navy]Case[/COLOR] "TextBox": Ctrl.Text = ""
            [COLOR=navy]Case[/COLOR] "CheckBox": Ctrl.Value = [COLOR=navy]False[/COLOR]
            [COLOR=navy]Case[/COLOR] "ComboBox": Ctrl.Clear
            [COLOR=green]'etc...[/COLOR]
            [COLOR=navy]End Select[/COLOR]
      [COLOR=navy]Next[/COLOR] Ctrl
[COLOR=navy]End Sub[/COLOR][/SIZE]

Cordialement,

 

[Nicko]

Re : RAZ d'un userform

ah merci MyDearFriend voila une solution bien interressante !

je cours de ce pas faire l'essai !!!!