Discussion :

[stephadm]

Bonsoir au forum,

Dans le code ci-dessous, je vide toutes les TextBox et ComboBox mais certaines restent remplies, pourquoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CommandButton3_Click()
Dim objControl As Control, objControl2 As Control
    For Each objControl In UserForm1.Controls
        If TypeOf objControl Is msforms.TextBox Then
            objControl.Text = ""
        End If
    Next
    For Each objControl2 In UserForm1.Controls
        If TypeOf objControl2 Is msforms.ComboBox Then
            objControl2.Text = ""
        End If
    Next
End Sub

Merci d'avance

Stephanie

[HopPopPop]

Bonsoir à tous,

Lesquelles, Textbox ou ComboBox, voire les deux ?

cordialement.

[stephadm]

Bonsoir HopPopPop et au forum

En fait, il n'y a que certaines Textbox qui ne se vident pas ! Le code cité ci-dessus vide à la fois les TextBox et les ComboBox.

Une idée, merci ?

Stephanie

[mercatog]

Avec une seule boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton3_Click()
Dim objControl As Control
 
For Each objControl In UserForm1.Controls
    If TypeOf objControl Is MSForms.TextBox Then
        objControl.Text = ""
    ElseIf TypeOf objControl Is MSForms.ComboBox Then
        objControl.ListIndex = -1
    End If
Next objControl
End Sub

[stephadm]

Bonsoir Mercatog, HopPopPop et au forum,

Mercatog, votre solution fonctionne parfaitement,

Merci à vous

Stephanie