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

Version imprimable

29/01/2008, 16h50
sat478

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

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

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:

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

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

Code:

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

30/01/2008, 15h41
sat478

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...

Bonsoir,

Bien sûr,

Code:

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:

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.

31/01/2008, 09h13
sat478

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.

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:

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

31/01/2008, 13h00
Bigalo

Bonjour,

Citation:

Envoyé par sat478

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

Cela me paraît très surprenant. Es-tu sûr de ne pas avoir modifié mes tests ?

Peux-tu indiquer ton code ?