Autres Couleur et Item(I).subitem(J)

[bernardrustrel]

Bonjour à tous.
Je m'interroge sur la possibilité de récupérer la couleur d'un "Item et/ou Subitem" d'une "Listview" à condition bien entendu que cette dernièere aii des lignes colorées.

J'essaie en vain par le biais de
With Userform.Listview1
For I=1 to .ListItems.Count
If .Listem(I).Forecolor= VbBlue Then MsgBox "ok"
next I

Mais apparait erreur 458, aussi fais je appel à vos connaissances et vous remercie par avance
Cordialment Bernard

 

[sylvanu]

Bonsoir Bernard,
Peut être y a t-il une erreur avec .Listem(I) au lieu de .ListItems(I).
Ce code marche correctement :

    With UserForm1.ListView1
        For I = 1 To .ListItems.Count
            Couleur = .ListItems(I).ForeColor
        Next I
    End With