Discussion :

[Manu6753]

Bonjour,

Pourriez-vous me renseigner comment déclarer une variable destinée à être incrémentée pour pouvoir récupérer le nom de plusieurs objets de type ComboBox à l'aide d'une boucle ?

Le principe serait le suivant (disponible également en pièce-jointe:

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
Private Sub Workbook_Open()
 
   Dim varInt As Object
 
   For m = 1 To 5
 
      varInt = "ComboBox" & m
 
      Worksheets("Feuil1").varInt.Clear
 
      For n = 1 To 4
 
         Worksheets("Feuil1").varInt.AddItem Cells(n, 1).Value
 
      Next n
 
   Next m
 
End Sub

Merci pour votre lecture et votre aide

Manu

[jerome.vaussenat]

Salut,

Pour faire référence à tes objets, tu peux utiliser cette syntaxe.

Code :

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

Worksheets("Feuil1").OLEObjects("ComboBox" & m).Object.Clear

En espérant que cela t'aidera ...

[Manu6753]

Bonsoir Jérome,

Merci pour ton aide, j'ai donc essayé ce code :

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
Private Sub Workbook_Open()
 
   For m = 1 To 5
 
      Worksheets("Feuil1").OLEObjects("ComboBox" & m).Object.Clear
 
 
      For n = 1 To 4
 
         Worksheets("Feuil1").OLEObjects("ComboBox" & n).Object.AddItem Cells(n, 1).Value
 
      Next n
 
   Next m
 
End Sub

et maintenant cela fonctionne parfaitement

[Pierre Fauconnier]

Salut.

Je te propose plus simple (Attention, il s'agit bien de m dans "ComboBox" & m et pas de n comme dans ton code).

La propriété List permet de se passer du Clear et de la boucle d'alimentation, car List accepte un tableau comme valeur, et range("a1:a4").Value est un tableau (ne pas oublier le .Value !!)

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
  For m = 1 To 5
    Worksheets("Feuil1").OLEObjects("ComboBox" & m).Object.List = Range("a1:a4").Value
  Next m
 
End Sub

[Manu6753]

Génial ! Je vais pouvoir enfin poursuivre mon code

Un grand merci à vous et une très bonne soirée