Vider Textbox et combobox

[apdf1]

Bonjour,

Voila j'ai un USF avec des textbox et combobox je souhaite vider les textbox et les combobox pour les textbox le code ci dessous et nickel mais j'aimerais y ajouté quelque lignes pour les combobox.

Private Sub btnviderT_Click()
Dim Ctl As MSForms.Control
For Each Ctl In Me.Controls
    If TypeOf Ctl Is MSForms.TextBox Then
If Ctl.Name <> "monnom1" Or Ctl.Name <> "monnom2" Then
        Ctl.Text = ""
End If
    End If
Next
End Sub

Je vous remercie d'avance et vous souhaite bonne soirée

Cordialement

Max

 

[apdf1]

Re : Vider Textbox et combobox

Bonsoir carcharodon

Je te remercie et te souhaite une bonne soirée

Max

 

[Softmama]

Re : Vider Textbox et combobox

Bonjour,

pour vider les combobox, une autre façon :

For Each Ctl In Me.Controls
    If TypeName(Ctl) = "ComboBox" Then Ctl.Clear
Next Ctl