Boucle sur combobox

[Nanir]

Bonjour,

J'ai du mal a formuler sur vba...
En gros : j'ai une liste de valeur variable, qui correspond à des mois (ici nbmois).
J'aimerai qu'en lancant un userform, un test soit fait sur cette liste de valeur, afin d'y afficher uniquement les combobox qui m'interessent...

J'ai fait ca :


Private Sub UserForm_Initialize()

For Each c In Range("nbmois").Rows

For Each ctrl In Me.Controls

If TypeOf ctrl Is combobox Then

If combobox = c Then
combobox.Visible = True
End If

End If

Next ctrl

Next c

End Sub

Ca ne fonctionne pas... Pouvez vous m'aider à mieux comprendre le problème?
Merci beaucoup.

 

[tototiti2008]

Re : Boucle sur combobox

Bonjour Nanir,

Ok, je comprend à peu près le but,sauf pour la partie là :

If combobox = c Then

Tu vérifie si la valeur de la combobox est le nom du mois ?

comment sais-tu quelles Combobox doivent être affichées ?

 

[Nanir]

Re : Boucle sur combobox

Bonjour tototiti,

En fait j'ai nommé les combobox janvier, février, mars... pour faire un test entre les valeurs de la liste et les noms des combos

 

[Nanir]

Re : Boucle sur combobox

J'aimerai afficher uniquement les combos dont les noms qui figurent dans la liste, au démarrage de l'userform.

Je sais pas si je suis clair...

 

[tototiti2008]

Re : Boucle sur combobox

Re,

à tester :

Private Sub UserForm_Initialize()
Dim c As Range, ctrl As Control
    For Each c In Range("nbmois").Cells
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "ComboBox" Then
                If ctrl.Name = c.Value Then
                    ctrl.Visible = True
                End If
            End If
        Next ctrl
    Next c
End Sub

 

[Épaf]

Re : Boucle sur combobox

Hello,
Je ne sais pas si j'ai bien compris mais que vient faire .Rows dans

For Each c In Range("nbmois").Rows

Range("nbmois") est bien une plage de cellules, non ?
Si c'est le cas, .rows est inutile voire nuisible (...)
Tu dis
A+

 

[Nanir]

Re : Boucle sur combobox

J'ai testé le code mais c'est toujours pas bon.

Ci-joint un fichier exemple.

J'aimerais que les mois affichés dans "nbmois" soient visibles dans l'userform... Et masquer les autres...

 

[tototiti2008]

Re : Boucle sur combobox

Re,

Edit : Oups désolé

Tu as modifié le code que je t'ai donné
Je partais du principe que chaque contrôle était masqué (visible = false) par défaut
sinon le code peut le faire :

Private Sub UserForm_Initialize()
Dim c As Range, ctrl As Control
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "ComboBox" Then
             ctrl.Visible = False
        End If
    next ctrl
    For Each c In Range("nbmois").Cells
        For Each ctrl In Me.Controls
            If TypeName(ctrl) = "ComboBox" Then
                If ctrl.Name = c.Value Then
                    ctrl.Visible = True
                End If
            End If
        Next ctrl
    Next c
End Sub

 

[Nanir]

Re : Boucle sur combobox

Ca fonctionne parfaitement avec ce nouveau code!
Merci beaucoup!

Je vais essayer de faire de même pour les labels... Si j'y arrive.

 

[Nanir]

Re : Boucle sur combobox

Petite adaptation pour les labels :

Private Sub UserForm_Initialize()

Dim c As Range, ctrl As Control

For Each ctrl In Me.Controls
ctrl.Visible = False
Next ctrl


For Each c In Range("nbmois").Cells
For Each ctrl In Me.Controls
If TypeName(ctrl) = "ComboBox" Then
If ctrl.Name = c.Value Then
ctrl.Visible = True
End If
End If



If TypeName(ctrl) = "Label" Then
If ctrl.Caption = c.Value Then
ctrl.Visible = True
End If
End If

Next ctrl
Next c

End Sub




Merci!!!