Bonjour,

J'essaie de contrôler un grand nombre de liste déroulante en utilisant une string avec une variable incrémentielle. J'ai besoin de pouvoir accéder à la valeur contenu dans ComboBox9, 11, 13, 15 jusqu'à 169. (Je n'ai pas fait ma boucle while encore dans mon extrait de Code). Je ne trouve pas la bonne syntaxe pour que VBA identifie (ComboBox & i) en tant que la liste déroulante ComboBox9. En bref je veux pouvoir faire (ComboBox & i).value

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 i As Integer
i = 9
Dim box As String
box = "ComboBox"
Dim BoxSet As String
BoxSet = box & i
Dim BoxResult As String
BoxResult = BoxSet.Value
 
    ChDir "C:\Users\Desktop\Grille de montage en attente"
    Workbooks.Open Filename:= _
        "C:\Users\Desktop\Grille de montage en attente\Grille Montage V2-1.xlt" _
        , Editable:=True
        Sheets("SITE Principal").Select
    Range("B36").Value = BoxSet.Value
    ChDir "C:\Users\Desktop\Test_Macro"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Desktop\Test_Macro\Grille Montage V2-1 test.xlt", _
        FileFormat:=xlTemplate8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
        ActiveWorkbook.Close
Votre aide est très apprécié.