Colorer ligne listview sous condition

Bonjour le forum,

voila je souhaiterai améliorer la lecture de ma base de donnée en colorant les ligne de ma listview en rouge lorsque que la colonne "Quantité" est inférieur la colonne "Besoin" .

je ne pense pas que ce doit être très compliqué (enfin pour vous)

merci par avance à ceux qui me fileront un coup de main

192stock-4.xlsm (289.16 Ko)

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

Salut cousinhub

merci pour ce bout de code j'ai réussi l'adapter pour mon besoin

tu m'a été d'une grande aide à bientôt

bonjour cousinhub, theconquer et le forum

est ce normal que lors du clic sur commande la ligne se met en premier en poussant les autres

Pascal

Bonjour

je suppose que tu parles du bouton "bon de commande" , dans ce cas oui c'est volontaire que mon dernier ajout apparaisse sur la première ligne du tableau c'est juste pour avoir un meilleur visuel des dernières entrées

Rechercher des sujets similaires à "colorer ligne listview condition"