Discussion :

[GRIMPMASTER]

Bonjour ,
je cherche toujours a colorer une ligne d'une listview selon des valeurs dans la 6eme colonne ... bon j'arrive tout juste a colorer le texte mais pas la ligne complète .
ce code permet de colorer le text "Enabled" ou "desabled" de la 6eme colonne de la listview.

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
Dim i As Integer
Dim j As Integer
  For i = 1 To lvStudentInfo.ListItems.Count
      j = 6
If lvStudentInfo.ListItems(i).ListSubItems(j).Text = "Enabled" Then
        lvStudentInfo.ListItems(i).ListSubItems(j).ForeColor = vbRed
 
Else
      If lvStudentInfo.ListItems(i).ListSubItems(j).Text = "Desabled" Then
        lvStudentInfo.ListItems(i).ListSubItems(j).ForeColor = vbBlue
 
Else
        lvStudentInfo.Refresh
 
   End If
   End If
  Next

[l_autodidacte]

S'il s'agit de la couleur du texte d'une ligne, on peut utiliser ce

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
Private Sub Command1_Click()
    Dim I As Integer, K%
 
    For I = 1 To lvStudentInfo.ListItems.Count
      For K = 1 To 6
        If lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Enabled" Then
                lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbRed
                lvStudentInfo.ListItems(I).ForeColor = vbRed
 
        ElseIf lvStudentInfo.ListItems(I).ListSubItems(6).Text = "Disabled" Then
                lvStudentInfo.ListItems(I).ListSubItems(K).ForeColor = vbBlue
                lvStudentInfo.ListItems(I).ForeColor = vbBlue
        End If
      Next K
    Next I
    lvStudentInfo.Refresh
End Sub

Mais s'il s'agit de la couleur de fond d'une ligne(arrière-plan), il faut passer par un SubClassing car la propriété BackColor pour un Item(Ligne) n'est pas disponible.
Voici un exemple :

[petchy08]

Bonjour,
je m'excuse de m'incrusté dans le sujet,
super bien ton code l_autodidacte , mais comment faire si on veut sélectionné toute les lignes en rouge si dans la 6eme colonne c'est supérieur ou égal à 4
merci
cordialement

[ProgElecT]

Salut

Il existe un tutoriel Utiliser le contrôle ListView en VBA Excel, bien qu'en VBA, cela peut dépanner car il n'y a quasiment aucune différence de codage.

[petchy08]

j'ai fait ça et ça fonctionne

Code :

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

1
2
If lvStudentInfo.ListItems(I).ListSubItems(6).Text >= 16 Then
            SetLIBackColor lvStudentInfo, I, vbRed

bonne soirée

[GRIMPMASTER]

Merci a vous tous , le code de l_autodidacte à résolu mon problème.
Merci encore.

[GRIMPMASTER]

Une autre solution simple et efficace qu'on m'a proposée : Listview_1.rar