Microsoft 365 Couleur lignes Listview à partir de la valeur d'une colonne

[Diane272727]

Bonjour,
Je fais appel de nouveau à votre précieuse aide.
Dans la listview, comment mettre en couleur certaines lignes ?
Par exemple où la colonne b = 0.

Idéalement, je souhaiterai que la ligne soit remplie en couleur (par exemple en bleu).
Si ce n'est pas possible , en texte bleu.

Merci beaucoup pour votre aide.
Bien cordialement,

 

[vgendron]

Hello

pour écrire la ligne en rouge

Private Sub FilterListView()
    Dim rngCell As Range
    Dim LstItem As ListItem
    Dim RowCount As Long, ColCount As Long
    Dim i As Long, j As Long

    Me.ListView1.ListItems.Clear

    RowCount = Tbl.DataBodyRange.Rows.Count
    ColCount = Tbl.DataBodyRange.Columns.Count
   
    With Tbl.DataBodyRange
        'Remplir la Listview
        For i = 1 To RowCount
             If Not .Cells(i, 1).EntireRow.Hidden Then
                 Set LstItem = Me.ListView1.ListItems.Add(Text:=.Cells(i, 1).Value)
                 For j = 2 To ColCount
                    LstItem.ListSubItems.Add Text:=.Cells(i, j).Value
                 Next j
                 LstItem.ListSubItems.Add Text:=CStr(i)
                 If LstItem <> "" Then
                    Me.ListView1.ListItems(i).ForeColor = RGB(255, 0, 0)
                    For j = 2 To ColCount
                        Me.ListView1.ListItems(i).ListSubItems(j).ForeColor = RGB(255, 0, 0)
                    Next
                End If
             End If
        Next i
    End With
    Tbl.AutoFilter.ShowAllData ' suppression du filtre auto
End Sub

voir ici

Utiliser le contrôle ListView en VBA Excel

Utiliser le contrôle ListView en VBA Excel

silkyroad.developpez.com

 

[Diane272727]

génial merci beaucoup , ça fonctionne très bien.
est ce que vous savez s'il est possible de surligner en couleur ces lignes (en bleu par exemple) ?

 

[vgendron]

De ce que j'ai vu dans les recherches: c'est impossible

 

[Diane272727]

ok merci beaucoup 🙂