Discussion :

[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 :

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

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

[skorpio]

essay ce code

Code :

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

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

[zazaraignée]

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 :

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

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.

[SilkyRoad]

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 :

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

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 :

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

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