parcourir une listBox

Bonjour a tous ,


je veux parcourir une listBox et pour chaque élement de la liste je doit apler d'autre macro du genre :

for i= NombreElement de la list

Code:

---

1 2 3 4 5 6 7

for i= NombreElement de la list chmap = listbox.item(i).text .... ......... .... next

---

je ne sais pas comment traduire cette syntaxe en VBA

merci de votre aide

essay ce code

Code:

---

1 2 3 4 5 6 7 8 9

iL = Worksheets("Feuil1").Cells(65535,1).End(xlUp).Offset(1).Row 'récupère le nombre de lignes rempli dans ta feuil1   For i = 1 to (iL - 1) Combobox1 = Worksheets("Feuil1").Range("A" & i) If Combobox1.ListIndex = -1 Then Combobox.AddItem Worksheets("Feuil1").Range("A" & i) End If Next i

---

Citation:

---

Envoyé par k-eisti

Bonjour a tous ,


je veux parcourir une listBox et pour chaque élement de la liste je doit apler d'autre macro du genre :

for i= NombreElement de la list

Code:

---

1 2 3 4 5 6 7

for i= NombreElement de la list chmap = listbox.item(i).text .... ......... .... next

---

je ne sais pas comment traduire cette syntaxe en VBA

merci de votre aide

---

Tu peux réexpliquer ça clairement. J'ai bien compris que tu veux parcourir les éléments d'une listBox, mais pas ce que tu veux faire ensuite pour chacun des éléments.

bonsoir


Je n'ai pas bien compris non plus, le but de la procédure:


pour boucler sur les éléments d'une ListBox

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim i As Integer   For i = 0 To ListBox1.ListCount - 1 MsgBox ListBox1.List(i) Next i End Sub

---

Pour déclencher une macro dont le nom correspond à la ligne sélectionnée:

Code:

---

1 2 3 4 5 6

Private Sub CommandButton2_Click() If ListBox1.ListIndex = -1 Then Exit Sub   Application.Run ListBox1.List(ListBox1.ListIndex) 'Application.Run ListBox1 End Sub

---

michel