vider un userform

[akramenergie]

Bonjour tous le monde
j'ai un userfrme ou j'ai des combobox des textbox et des listbox
je voudrais ajouté un boton reset pour vider tout les donné saisie dans le userform
comment fair ???
j'ai pensé à Userform_Initialize
🙂

 

[nrdz83]

Re : vider un userform

bonjour pour ma pârt je viens de faire cette formule et ça fonctionne

Private Sub BoutMiseBlanc_Click()
ComboBox1.ListIndex = -1
End Sub


Mon bouton "RAZ" je l'ai appelé BoutMiseblanc
et c'est ma combobox1 que je voulais éffacer.
Si ça peut t'aider amitiés

 

[akramenergie]

Re : vider un userform

je trouve pour mon cas c pas trop pratique car j 'ai beaucoup de combobox et de list box et de text box

 

[Pierrot93]

Re : vider un userform

Bonjour,

essaye peut être le code ci dessous, si j'ai bien compris, à placer dans le module de l'USF concerné, nom du bouton et de l'USF à adapter :

Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub

bon après midi
@+

 

[BOISGONTIER]

Re : vider un userform

Bonjour,

Private Sub B_raz_Click()
  Dim c As Control
  For Each c In Me.Controls
     Select Case TypeName(c)
        Case "TextBox"
          c.Value = ""
        Case "CheckBox"
          c.Value = False
        Case "ListBox", "ComboBox"
          c.ListIndex = -1
     End Select
  Next c
End Sub

JB
Formation Excel VBA JB

 

[nrdz83]

Re : vider un userform

Bonjour boisgontier, super ta formule , je viens de l'adapter a mon Userform du coup, ça commence à rentrer.
Une petite question comment vous faite pour vous souvenir de tout ces codes,?
Car à chauque fois je suis bleuffé, mes amitiés, bye