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