Passer une variable comme nom de controle ActiveX

Version imprimable

08/10/2018, 15h41
stranger21

Passer une variable comme nom de controle ActiveX
Bonjour.

J’éprouve des difficultés a coder une partie de mon programme. J'aimerais pouvoir copier la liste complète d'une combobox pour l'attribuer a une autre combobox.
Je peux le faire via ce bout de code :

Code:

Sheets("test").ComboBox2.List = Sheets("test").ComboBox1.List

Mais ce que j'aimerais bien, c'est qu'a la place de donner au compileur le nom de mes objets (combobox1,combobox2,...), je puisse utiliser des variables dans lesquelles sont contenues le nom de mes combobox (ex nomShape = "combobox" & i ; testCombo = "combobox" & i + 1).

Donc j'arrive a un bout de code qui ressemble a ceci, mais qui ne marche pas du tout :
Code:

1 2 3 4 5 6 7 Sub Change() i = 1 nomShape = "combobox" & i testCombo = "combobox" & i +1 Sheets("test").Activate Sheets("test").(nomShape).List = Sheets("test").(testCombo).List End Sub
Je vous le dis de suite, le compileur n'aime pas (rien que la dernière ligne est en rouge) mais je n'ai pas d'autre idée pour utiliser ces variables pour cibler mes combobox. Est ce que quelqu'un aurait une syntaxe différente a me proposer?

D'avance merci!

re
et bien je te le dis tout de suite aussi c'est normal ta ligne en rouge (jaune l'ors de l'execution);)

tout d'abords est tu sur que tes comboboxs soient des controls activx ou des controls formulaire?????

au cas ou ce serait bien des activX
les activX on les attrape par la collection oleobjects
Code:

1 2 3 4 5 6 7 8 9 Sub Change() i = 1 nomShape = "combobox" & i testCombo = "combobox" & i +1 Sheets("test").Activate Sheets("test").oleobjects(nomShape).List = Sheets("test").oleobjects(testCombo).List End Sub

Bonjour,

Si les ComboBox sont issus de la barre d'outils "Formulaire" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Change()
 
    Dim nomShape As String
    Dim testCombo As String
    Dim I As Integer
 
    I = 1
    nomShape = "combobox" & I
    testCombo = "combobox" & I + 1
 
    With Sheets("test")
 
        .Shapes(testCombo).ControlFormat.List = .Shapes(nomShape).ControlFormat.List
 
    End With
 
End Sub

09/10/2018, 13h20
stranger21
Rebonjour.

Tout d'abord merci pour votre aide!

Je confirme que je travaille bien sur des contrôles ActiveX.

Visiblement je ne suis pas doué car je n'ai pas réussi a faire tourner ton bout de code en ajoutant cette ligne :

Code:

Sheets("test").oleobjects(nomShape).List = Sheets("test").oleobjects(testCombo).List

Par contre cela m'a donne de nouveaux indices et je suis parvenu a faire ce que je souhaitais grâce a a une modification de cette dernière ligne :
Code:

1 2 Set myDoc = ThisWorkbook.Sheets("test") myDoc.OLEObjects(nomShape).Object.list = myDoc.OLEObjects(testCombo).Object.list
Par curiosité, j'ai aussi teste le code de Theze. Il marche correctement ^^.

Encore un tout grand merci, vous me retirez une épine du pied, 2 semaines que je me casse les dents sur cette ligne!