Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Listview couleur sous condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion creolia
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

creolia

XLDnaute Impliqué
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

Code: 
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
 
Trier par date Trier par votes
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 🙂
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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



Code: 
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
 
Vote positif 0 Vote négatif
Re : Listview couleur sous condition

Hello tout le monde,

Peut-être avec des ElsiIf
Code: 
             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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Listview couleur sous condition

Re, Yes merci pour l'info Klin, je n'étais jamais sûr (d'ailleurs j'ai fais l'erreur 😀), maintenant je saurais !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
332
Piment
P
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
  • Question Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
754
TooFatBoy
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
S
  • Question Question
XL 2021 LISTVIEW alimenté avec OptionButton + CheckBox
Réponses
3
Affichages
618
ChTi160
D
  • Résolu(e)
Microsoft 365 Affichage de certaines colonnes dans une listview
Réponses
3
Affichages
485
Diane272727
D
D
  • Question Question
Microsoft 365 Charger une listview ne VBA
Réponses
4
Affichages
1 K
doudel
D
G
  • Question Question
Autres Exporter listview après un filtrage? bugge (2007)
Réponses
6
Affichages
1 K
ChTi160
T
  • Question Question
Microsoft 365 Configuration d'une ListView
Réponses
6
Affichages
903
TCHIS
T
D
  • Résolu(e)
Microsoft 365 Mise en forme ligne listview date dépassée
Réponses
10
Affichages
2 K
TCHIS
T
Génération de QR Codes
Réponses
5
Affichages
1 K
mromain
J
  • Question Question
Autres Problème de compréhension macro
2
Réponses
16
Affichages
3 K
fanch55
G
  • Question Question
XL 2010 Alimenter listview avec 4 Combobox
Réponses
3
Affichages
1 K
ChTi160
F
  • Question Question
Autres Listview et format de nombre
Réponses
10
Affichages
4 K
FOUQUET Yves
F
Y
  • Question Question
XL 2010 remplir listview lignes et colonnes avec un seul ligne horizontale
Réponses
4
Affichages
2 K
yahya belbachir
Y
X
  • Question Question
XL 2019 Listview Mise a jour
Réponses
4
Affichages
2 K
Xplor
X
  • Question Question
couleur Police dans listview selon condition
Réponses
1
Affichages
2 K
poussy67
  • Question Question
XL 2016 Erreur d’exécution 35600
Réponses
4
Affichages
1 K
Staple1600
  • Question Question
besoins de stoker plus de 350 image(icon)
Réponses
9
Affichages
1 K
patricktoulon
G
  • Question Question
XL 2010 diminuer colonne listview
Réponses
7
Affichages
1 K
gena
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…