Bonjour,
Je ne sais pas si c'est possible de colorier la cellule entière dans le ListView,, mais avec ce code, je mets en police rouge les quantités et les besoins, si le besoin est supérieur à la quantité disponible.
Sub Alimente_ListView()
' Remplissage
Dim J As Long, Nb As Long
Dim I As Integer
For I = 1 To 6
Me.Controls("TextBox" & I) = ""
Next I
With Me.ListView1
.ListItems.Clear
For J = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To 6
If Ws.Cells(J, I) Like "*" & Me.TextBox7 & "*" Then Exit For
Next I
If I < 7 Then
' On remplit la première colonne de la listview avec la valeur de la variable
' Et dans la clé on note l'adresse de la ligne
.ListItems.Add , Ws.Cells(J, "A").Address, Ws.Cells(J, "A")
Nb = Nb + 1
' On remplit les autres colonnes de la listview
For I = 2 To 6
.ListItems(Nb).ListSubItems.Add , , Ws.Cells(J, I)
Next I
If Ws.Cells(J, 4) < Ws.Cells(J, 6) Then
.ListItems(Nb).ListSubItems(3).ForeColor = vbRed
.ListItems(Nb).ListSubItems(5).ForeColor = vbRed
End If
End If
Next J
End With
End Sub
Bon courage