bonjour
dans une listview
je cherche à changer la couleur pour toutes les lignes pair/impair
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 ...................... ListView1.ListItems(lig).ForeColor = coul ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 1).Value 'N°fiche col2 ListView1.ListItems(lig).ListSubItems.Add , , Sheets("feuil2").Cells(lignedebut, 2).Value 'typeinstall clo3
seul la prmier colonne change de couleur mais pas les autres ????
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 If (lig And 1) = 0 Then coul = vbRed Else coul = vbYellow 'detecte le nb si paire en rouge sinon jaune
Partager