vider un userform

nrdz83

XLDnaute Impliqué

• 23 Juillet 2008

• #2

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

 

Vote positif 0 Vote négatif

A

akramenergie

XLDnaute Occasionnel

• 23 Juillet 2008

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Juillet 2008

• #4

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 :

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 23 Juillet 2008

• #5

Re : vider un userform

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

nrdz83

XLDnaute Impliqué

• 23 Juillet 2008

• #6

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

 

Vote positif 0 Vote négatif