Discussion :

[oscar.cesar]

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

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

seul la prmier colonne change de couleur mais pas les autres ????

[ucfoutu]

Bonjour,

Voilà comment (un exemple) on se réfère à la colonne 3 de la ligne 2

Code :

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

1
2
 
ListView1.ListItems(2).SubItems(3)

Si tu veux traiter toute la ligne, tu peux utiliser une boucle For... Next... pour désigner tous les subitems (colonnes autres que la première) d'une ligne.

[oscar.cesar]

oui merci
je connais

mais la propriete forecolor n'existe pas (en tout cas je la trouve pas)

ListView1.ListItems(lig).SubItems(2).forecolor=coul

[oscar.cesar]

bon je m'en sors comme ca
c'est peut pas top mais bon

Code :

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

ListView1.ListItems(lig).ListSubItems.Item(2).ForeColor = coul

[Fouinard]

Pour savoir si un nombre est pair ou impair utilise le modulo 2 de l'index de la ligne si il est égal à 0 c'est un nombre pair... Utilise une boucle for pour parcourir toutes les lignes de ta listview et avec la valeur de l'index tu changes ou non la couleur du texte avec ForeColor.

ex :
1 Mod 2 -> 1
2 Mod 2 -> 0
3 Mod 2 -> 1
...