Discussion :

[Yanluo]

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

[rvtoulon]

bonjour,

En bref je veux pouvoir faire (ComboBox & i).value

essaye dans ta boucle

Code :

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

Userform1.Controls("Combobox" & i).Value

[jfontaine]

Salut,

Juste une question rvtoulon, comment faire la meme chose si l'object est sur la feuille. j'ai su mais me souviens plus

[rvtoulon]

Bonjour jfontaine,
il me semble que ceci doit fonctionner:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim obj As OLEObject
i = 1
'Si control active x de formulaire
 'boucle sur chaque objet de la feuille
 For Each obj In ActiveSheet.OLEObjects
 'si l'objet est un combobox alors
  If TypeOf obj.Object Is MSForms.ComboBox Then
    vnom = obj.Object.Value
    MsgBox "La valeur du Combobox" & i & " est " & vnom
    i = i + 1
  End If
 Next obj

EDIT: Regarde ici pour plus de détails sur les autres types de control:http://excel.developpez.com/faq/?page=ObjFormulaire