Colorer toute la ligne d'une listview sous condition

  • Initiateur de la discussion Initiateur de la discussion baguidi
  • 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 !

baguidi

XLDnaute Occasionnel
salut le forum,

je viens vers le forum pour me faire aider sur mon application. En effet j'ai une listview qui doit colorier toutes les lignes dont la colonne du montant engagé est égale à 0.
Dans le cas présent seule la colonne N°1 est colorier et c'est lorsque l'on clique sur la ligne que toute la ligne se colore au lieu de se faire instantanément lorsqu’on appui sur le ToggleButton "Marquer les tâches non exécutées. pareil quand on annule toujours par le même bouton.

merci le forum
 

Pièces jointes

Re : Colorer toute la ligne d'une listview sous condition

Bonsoir Baguidi,

Désolé pour toi, mais tu ne peux pas colorer une ligne dans une ListView,
juste changer la couleur du texte
Code:
.ListItems(x).ForeColor = &HC00000

A+
 
Re : Colorer toute la ligne d'une listview sous condition

Bonsoir baguidi
Bonsoir Bruno
Bonsoir le Forum

voila ce que j'ai changé pour répondre ( je pense ) à la demande.

Code:
Private Sub MiseEnForme(£numerolist As Integer, £nucolo As Integer, £valeur As Integer)

Dim £i As Long
Dim £j As Long

With Userform2
   With .Controls("ListView" & (£numerolist))
'*************************************************
For £i = 1 To .ListItems.Count
'**************************************************
    If .ListItems(£i).ListSubItems(£nucolo) = £valeur Then
        .ListItems(£i).ForeColor = &HFF& ' ROUGE
        .ListItems(£i).Bold = True
  '*****************************************************
           For £j = 1 To .ColumnHeaders.Count - 1
  '*****************************************************
              .ListItems(£i).ListSubItems(£j).ForeColor = &HFF& ' ROUGE
              .ListItems(£i).ListSubItems(£j).Bold = True
           Next
    Else
        .ListItems(£i).ForeColor = &H0& 'NOIR
           For £j = 1 To .ColumnHeaders.Count - 1
              .ListItems(£i).ListSubItems(£j).ForeColor = &H0& ' NOIR
           Next £j
    End If
Next £i
 End With
    .Repaint

End With
End Sub

Idem pour la procédure MiseEnForme2

Arfffffffffff : Je ne sais pas comment colorer le texte que j'ai ajouté, Modifié , entre les balises CODE

Bonne fin de Soirée
Jean Marie
 
Dernière édition:
- 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

Retour