Discussion :

[antonysansh]

Bonjour à tous,

Je besoin dans un UserForm de boucler sur tous les ComboBox de mon UF.
Je boucle donc sur tous les controls :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Test_Click()
 
    Dim UF As UserForm
    Dim CB As Control
 
    Set UF = MonUF
 
    For Each CB In UF.Controls
        'Test si CB est un ComboBox
    Next
 
End Sub

Savez-vous s'il est possible de tester le type de control pour savoir si ma variable CB est un ComboBox ou non ?


Pour le moment je contourne le problème en déclarant CB de type ComboBox au lieu de Control et je gère les problèmes d'attribution si le control n'est pas un ComboBox :

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 Test_Click()
 
    Dim UF As UserForm
    Dim CB As ComboBox
 
    Set UF = MonUF
 
    On Error Resume Next
 
    For Each CB In UF.Controls
        'Si pas un ComboBox le resume next passe au control suivant
    Next
 
End Sub

Merci d'avance pour votre aide

Antony

[Philippe Tulliez]

Bonjour,
La réponse dans ce tutoriel Utiliser les contrôles dans un UserForm, en VBA Excel

[antonysansh]

Merci Philippe,

J'ai passé tellement de temps sur ce tuto que j'ai honte d'avoir oublié cette partie