Concaténer pour obtention d'une variable
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:
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é.
