Sélectionner tous les contrôles d'un userform

**sat478** · 29/01/2008, 16h50

Bonjour,

je dispose d'un userform où j'ai disposé de boutons de commandes, de combo, de listbox...

A un moment donné, je cherche à pouvoir sélectionner tous les contrôles de type listbox et combobox afin de pouvoir les places en .Enabled=false

Est-il possible de sélectionner tous ces éléments ? Et si oui de quelle manière ?

Par avance merci pour votre aide.

sat478

**Bigalo** · 29/01/2008, 17h32

Bonjour,

En général sélectionner est une mauvaise idée, cela ne sert qu’à ralentir les traitements !

On peut lire ou modifier une propriété sans sélectionner l’objet concerné :

Code :

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

1
2
3
4
5
6
Dim Ctrl As Control
        For Each Ctrl In Controls
                If TypeOf Ctrl Is MSForms.ComboBox Or TypeOf Ctrl Is MSForms.ListBox Then
                    Ctrl.Enabled = False
                End If
        Next

**Singular** · 29/01/2008, 17h35

Un exemple rapide à met5tre dans le module d'un UserForm quelconque:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Click()
    Dim ctl As Control
 
    For Each ctl In Me.Controls
        If TypeOf ctl Is ListBox Or TypeOf ctl Is ComboBox Then
            ctl.Enabled = False
        End If
    Next ctl
End Sub

**sat478** · 30/01/2008, 15h41

Merci beaucoup pour vos réponses c'est exactement ce que je recherchais d'autant plus que je savais pas pour le ralentissement des traitements.

Pour autant, il n'est pas possible de mettre les valeurs à vide ? Autrement dit de dire value="" ou .clear ?

Afin de pouvoir mettre tous mes contrôles à vide ? Je n'ai pas trouvé ces options là lorsque j'utilise le with ctrl1...

**Bigalo** · 30/01/2008, 19h54

Bonsoir,

Bien sûr,

Code :

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

1
2
3
4
5
6
7
Dim Ctrl As Control
        For Each Ctrl In Controls
                If TypeOf Ctrl Is MSForms.ComboBox Or TypeOf Ctrl Is MSForms.ListBox Then
                    Ctrl.Enabled = False
                    Ctrl.ListIndex = -1
                End If
        Next

laissera affiché le contenu des listes, mais désélectionnera tout élément précédemment sélectionné

NB - Ne fonctionne que pour les Combo et les ListBoxes avec une seule colonne.

Code :

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

1
2
3
4
5
6
7
Dim Ctrl As Control
        For Each Ctrl In Controls
                If TypeOf Ctrl Is MSForms.ComboBox Or TypeOf Ctrl Is MSForms.ListBox Then
                    Ctrl.Enabled = False
                    Ctrl.Cleat
                End If
        Next

effacera le contenu de toutes les lstes.

**sat478** · 31/01/2008, 09h13

Bonjour Bigalo,

les options ".clear" ou ".ListIndex = -1" me donnent une erreur :

Erreur d'exécution 438
Propriété ou méthode non gérée par cet objet

Je suis en excel 2002.

**Singular** · 31/01/2008, 12h40

Pour déboguer, tu pourrais te créer deux variables, une de type ListBox et l'autre de type ComboBox, auxquelles tu pourrais assigner l'objet Control dans la boucle avant d'utiliser les méthodes mentionnées. Tu peux alors voir un peu plus ce qui se passe dans ta boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim ctl As Control
Dim lb As ListBox
Dim cb As ComboBox
 
For Each ctl In Me.Controls
    If TypeOf ctl Is ListBox Then
        Set lb = ctl
        lb.ListIndex = -1
    ElseIf TypeOf ctl = ComboBox Then
        Set cb = ctl
        cb.Clear
    End If
    ctl.Enabled = False
Next ctl