Effacer TextBox+ComboBox avec un CommandButton

Le
YeTi
Bonjour,

Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les
ComboBox) s'efface. Comment faire?

Voici une image pour illustrer mon UserForm

http://img137.imageshack.us/img137/7769/userformyf1.jpg

Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4324181
Bonjour.
me.combobox1.value = ""
me.textbox1.value = ""
etc.
Cordialement.
Daniel
"YeTi"
Bonjour,

Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les
ComboBox) s'efface. Comment faire?

Voici une image pour illustrer mon UserForm

http://img137.imageshack.us/img137/7769/userformyf1.jpg

Merci d'avance


JB
Le #4324161
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
On 19 mar, 11:22, YeTi
Bonjour,

Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les Text Box et les
ComboBox) s'efface. Comment faire?

Voici une image pour illustrer mon UserForm

http://img137.imageshack.us/img137/7769/userformyf1.jpg

Merci d'avance


YeTi
Le #4324131
Merci, c'est parfait


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
On 19 mar, 11:22, YeTi
Bonjour,

Voilà, j'ai fait un UserForm avec des TextBox, des ComboBox et des
CommandButton. J'aimerais que lorsque je clique sur le CommandButton
"Effacer", tout ce qui a été tapé ou sélectionné (dans les TextBox et les
ComboBox) s'efface. Comment faire?

Voici une image pour illustrer mon UserForm

http://img137.imageshack.us/img137/7769/userformyf1.jpg

Merci d'avance







Publicité
Poster une réponse
Anonyme