Probleme de couleurs dans listview

Bonjour le forum

J'aimerai colorisé les lignes du listview en fonction de la colonne 1

S'il y a "Mesure" dans la colonne 1 alors la ligne serait en vert

 'Si dans la colonne 1 du tableau journal, il y a "Mesure" alors
         If .ListItems(Ligne).ListSubItems(2) = "mesure" Then
            Dim d As Byte
            'On selectionne l'item de la colonne "1" en orange
            .ListItems(Ligne).ListSubItems(2).ForeColor = RGB(34, 120, 15)
            For d = 1 To 11
            Next d
         End If

Lorsque j'utilise ce code, il me donnes cette erreur.

capture d ecran 2024 06 10 133932

Pourtant, je l'utilise dans une autre listview et ça fonctionne

Peut-être qu'avec la première colonne, ce n'est pas possible

Cordialement

Bonjour

Mesure avec le M en majuscule ou en minuscule

Crdlt

Re,
J'ai oublié de joindre le fichier
14journal.xlsm (58.76 Ko)

Cordialement

Re JOCO7915,

Mesure en majuscule "MESURE"

Cordialement

Rechercher des sujets similaires à "probleme couleurs listview"