[XL-2007] code listbox a modifier pour une litview [Résolu]

[grisan29]

Bonjour a vous tous
Le code ci-dessous fonctionne avec une listbox, mais comment faire pour qu’il fonctionne dans une listview

Code :

1
2
3
4
For i = 0 To Nb - 1
    If UserForm1.ListBox1.Selected(i) = True Then
        Element_Select = True
        Sheets(F1).Activate

J’essai de remplacer le code ci-dessus par celui-ci mais ça bug

Code :

1
2
3
4
For i = 0 To Nb - 1
    If UserForm1.ListView1.ListSubItems.Add(i) = True Then
        Element_Select = True
        Sheets(F1).Activate

Merci de votre compréhension
Cordialement

[pijaku]

Bonjour,
Boucle sur un contrôle ListView et teste si la ligne est sélectionnée :

Code :

1
2
3
4
5
6
Dim Lign As Integer
For Lign = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(Lign).Selected = True Then 
        'bla bla VOTRE CODE ICI
    End If
Next Lign

[grisan29]

Bonjour Pijaku
un grand MERCI
Tasolution me vas parfaitement a moi maintenant de l'adapter, tu a fait ta part et je t'en remercie

cordialement

Pascal