Listview couleur sous condition

[creolia]

Bonjour

je reviens vers vous pour un petit coup de pouce j'essais de modifier un code quima été donnée par PARITEC fut un moment mais je beug un peu


le voici

Private Sub UserForm_Initialize()
Dim i As Long
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Nom", 60
       .Add , , "Type", 60, 2
       .Add , , "Valeur", 60, 2
    End With
 .View = lvwReport
 .FullRowSelect = False
 .Gridlines = True
        For i = 3 To Sheet1.Range("A65536").End(xlUp).Row
           .ListItems.Add , , Sheet1.Cells(i, 1)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(i, 2)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(i, 3)
           
             If Sheets("Sheet1").Cells(i, 3) > 3 Then
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF00&   ' '&HFF0000
             Else
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF
             End If
        Next
End With
End Sub

je souhaite simplement ajouter une nouvelle condition sauf au lieu de <3 je mettrais <10 en plus
j'ai un peut tout tenter mais j'y arrive pas

pouvez vous m'aider

merci d'avance

 

[pierrejean]

Re : Listview couleur sous condition

bonjour creolia

Teste:

If Sheets("Sheet1").Cells(i, 3) > 3 and Sheets("Sheet1").Cells(i, 3) <10 Then

 

[Paritec]

Re : Listview couleur sous condition

Bonjour Créolia le forum
j'ai pas compris ta demande, sauf au lieu de <3 je mettrais <10 en plus
tu veux quoi?
pas sur mais dis moi
a+
Papou 🙂

Sheets("Sheet1").Cells(i, 3) > 3  and Sheets("Sheet1").Cells(i, 3)< 10  Then

EDIT : Bonjour Pierrejean excuse j'avais pas vu ta réponse

 

[creolia]

Re : Listview couleur sous condition

bonjour merci pierre jean j'essais de suite


Bonjour paritec non je veut inserer dans ton code une condition suplementaire

à bientot

 

[creolia]

Re : Listview couleur sous condition

Re bonjour

je vient de jeter un oeil à la proposition


mais mon but est d'ajouter une nouvelle condition

ect
c'est a dire
si cellule 3 est <720 orange

si cellule 3 est <365 rouge


si cellule 3 est < 0 rose



pour l'intant le code me permet uniquement de faire

si inferieure à 3 rouge

sinon vert


merci j'espere avoir été claire

 

[Paritec]

Re : Listview couleur sous condition

Bonjour Créolia le forum
tu es sur de ta condition si cellule 3 est < 0 rose donc des chiffres négatif?
a+
papou 🙂

 

[creolia]

Re : Listview couleur sous condition

re paritec je confirme

j'ai 3 condition dont

si cellule 3 est < 0 rose


j'ai essayer en essayan de faire elseif a la place de Else et ajouter ma condition mais sa fontionne pas

Private Sub UserForm_Initialize()
Dim i As Long
With ListView1
    With .ColumnHeaders
       .Clear
       .Add , , "Nom", 60
       .Add , , "Type", 60, 2
       .Add , , "Valeur", 60, 2
    End With
 .View = lvwReport
 .FullRowSelect = False
 .Gridlines = True
        For i = 3 To Sheet1.Range("A65536").End(xlUp).Row
           .ListItems.Add , , Sheet1.Cells(i, 1)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(i, 2)
           .ListItems(.ListItems.Count).ListSubItems.Add , , Sheet1.Cells(i, 3)
           
             If Sheets("Sheet1").Cells(i, 3) > 3 Then
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF00&   ' '&HFF0000
          [COLOR="Red"]   Elseif[/COLOR] .ListItems [COLOR="red"]then[/COLOR](.ListItems.Count).ListSubItems(2).ForeColor = &HFF
             End If
        Next
End With
End Sub

aurais tu une idée merci a bientot

 

[Hulk]

Re : Listview couleur sous condition

Hello tout le monde,

Peut-être avec des ElsiIf

             If Sheets("Sheet1").Cells(i, 3) > 0 Then
               .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = #FF00CC
             Elseif Sheets("Sheet1").Cells(i, 3) > 365 Then
                 .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = #FF0000
             ElseIf Sheets("Sheet1").cells(i, 3) > 720 Then
                 .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = #FF9900
             Else
                 .ListItems(.ListItems.Count).ListSubItems(2).ForeColor = &HFF
             End If

 

[klin89]

Re : Listview couleur sous condition

Bonjour le forum,
Bonjour Hulk, creolia, Paritec, pierrejean

Dans le jeu des comparaisons, c'est l'opérateur qui établi l'ordre des conditions 😱 😀

Ainsi si des valeurs sont > à d'autres valeurs, il faut commencer par les valeurs les plus élevées.
Donc dans cet ordre >720 >365 >0

Dans l'autre cas, si des valeurs sont < à d'autres valeurs, il faut commencer par les valeurs les moins élevées.
Donc dans cet ordre <0 <365 <720

Klin89

 

[creolia]

Re : Listview couleur sous condition

Bonjour

Merci a tous j'ai trouver La solution entre temps qui se rapproche de celle de hulk

à bientot

 

[Hulk]

Re : Listview couleur sous condition

Hello,

Ca serait sympa de partager ta solution...

 

[Hulk]

Re : Listview couleur sous condition

Re,

Dans le jeu des comparaisons, c'est l'opérateur qui établi l'ordre des conditions

Ainsi si des valeurs sont > à d'autres valeurs, il faut commencer par les valeurs les plus élevées.
Donc dans cet ordre >720 >365 >0

Dans l'autre cas, si des valeurs sont < à d'autres valeurs, il faut commencer par les valeurs les moins élevées.
Donc dans cet ordre <0 <365 <720

Yes merci pour l'info Klin, je n'étais jamais sûr (d'ailleurs j'ai fais l'erreur 😀), maintenant je saurais !

 

[creolia]

Re : Listview couleur sous condition

Re comme je l'ai dit plus haut j'ai tenter la même solution que la tienne

et donc sa a fonctionner

merci a bientot