RAZ d'un userform

Nicko · 26 Juillet 2006

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 · 26 Juillet 2006

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 · 26 Juillet 2006

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 · 26 Juillet 2006

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! · 26 Juillet 2006

Re : RAZ d'un userform

Bonsoir Nicko, Shock, Hellboy,

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

Code:

[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 · 27 Juillet 2006

Re : RAZ d'un userform

ah merci MyDearFriend voila une solution bien interressante !

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

RAZ d'un userform

Nicko

XLDnaute Occasionnel

Hellboy

XLDnaute Accro

Shock

XLDnaute Occasionnel

Nicko

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Nicko

XLDnaute Occasionnel

Discussions similaires

RAZ d'un userform

Nicko

XLDnaute Occasionnel

Hellboy

XLDnaute Accro

Shock

XLDnaute Occasionnel

Nicko

XLDnaute Occasionnel

myDearFriend!

XLDnaute Barbatruc

Nicko

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency