Remplir plusieurs combobox

**bavmorda1** · 04/03/2013, 11h33

* Bonjour, *

Bon y a pas j'ai beau lire tous les posts à ce sujet, et dieu c'est que ça déjà été traité dans tous les sens, mais j'y arrive pas, ou plutot je trouve pas ce qui pourrait etre le mieux pour mon cas.

Je m'explique, dans ma userform j'ai 2 pages et dans ces deux pages j'ai des combobox que je veux remplir avec les memes données (données que j'ai généré précédemment).
les combobox que je veux remplir sont nommés comme suit
1er page A1CB1....... jusqu'à A10CB1
2eme page B1CB1.....jusqu'à B10CB1.

y a-t-il une méthode avec for each par exemple, qui me permettrait de données aux combobox les valeurs de la combo A1CB1?

* Merci *

**Daniel.C** · 04/03/2013, 15h52

Bonjour,

J'ai supposé que le combobox "A1CB1" était alimenté par "RowSource" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Dim C As Control, Txt As String
    Source = Me.Controls("A1CB1").RowSource
    With Application
        For i = 1 To 2
            For Each C In Me.Controls("Multipage1").Pages(n).Controls
                If C.Name <> "A1CB1" Then
                    If TypeOf C Is ComboBox Then
                        Txt = C.Name
                        Txt = .Substitute(Txt, "CB1", "")
                        Txt = .Substitute(Txt, "A", "")
                        Txt = .Substitute(Txt, "B", "")
                        If IsNumeric(Txt) Then
                            If CInt(Txt) < 11 Then
                                C.RowSource = Source
                            End If
                        End If
                    End If
                End If
            Next C
        Next i
    End With

**bavmorda1** · 05/03/2013, 16h58

Merci pour ta réponse j'ai récupéré et adapté.

Par contre chtite question vu que tu as l'air de magner le as control sans difficulté.
je voudrais mettre dans une variable c, qui serait public, le nom d'une combobox afin de lui appliquer une info c.enabled= true comment faire?

j'ai essayé
c=combox.name
c.name = combobox.name
c.tag= combobox.name
ou juste
c.name = "combobox"
Mais je vois bien vu que ça marche pas qu'il y a un truc que j'ai pas assimilé