Vider tous les textbox et combobox finissant par 1
Bonjour les passionnés d'excel
Je voudrais un code pour vider tout les textbox et tous les combobox de mon userform dont le nom finit par 1
ex: nom des textbox = qte1 , client1, adresse1
Merci d'avance pour votre aide
Amicalement
Bonjour
Private Sub CommandButton1_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is MSForms.ComboBox Then
If Right(ctl.Name, 1) = 1 Then
ctl = ""
End If
End If
Next
End Sub
Merci pour la rapidité belkacem64
ça fonctionne nikel
avec une petite exception
tous finissant par 1 sauf : ttva1
c'est possible ?
Si vous voulez une exception pour le texbox : ttva1
Private Sub CommandButton2_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is MSForms.TextBox Or TypeOf ctl Is MSForms.ComboBox Then
If Right(ctl.Name, 1) = 1 Then
If Not ctl.Name = "ttva1" Then
ctl = ""
End If
End If
End If
Next
End Sub
Magnifique
C'est parfait
Un grand