Discussion :

[alliance]

Bonjour à tous,
Dans une listeview j'insere 2 types d'éléments (eleves et profs). Je voudrais colorier les lignes des élèves en bleu et celles des profs en rouges. Est ce possible? Si oui comment?

Merci

[SilkyRoad]

bonjour

tu peux tester cette macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Command1_Click()
Dim i As Integer, j As Integer
 
'La procedure verifie si la 1ere colonne de la ListView contient
'le mot "Eleve" : si oui , le texte de la ligne passe en bleu
'si non le texte de la ligne passe en rouge
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Text = "Eleve" Then
    ListView1.ListItems(i).ForeColor = RGB(0, 0, 255)
 
    For j = 1 To ListView1.ColumnHeaders.Count - 1
    ListView1.ListItems(i).ListSubItems(j).ForeColor = RGB(0, 0, 255)
    Next j
 
    Else
    ListView1.ListItems(i).ForeColor = RGB(255, 0, 0)
 
    For j = 1 To ListView1.ColumnHeaders.Count - 1
    ListView1.ListItems(i).ListSubItems(j).ForeColor = RGB(255, 0, 0)
    Next j
 
    End If
Next i
 
ListView1.Refresh
End Sub

bon apres midi
michel