Discussion :

[stranger21]

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 :

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

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 :

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

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!

[patricktoulon]

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 :

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

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

[Theze]

Bonjour,

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

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

[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 :

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

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 :

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

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!