Coloré toute la ligne listview

BLBATHOR Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Bonjour,
Je voudrais crée un code qui permet de parcourir une listview et cherche un mot dans la colonne par ex:3, s'il le trouve il va coloré toute la ligne par une couleur, Comment faire, Merci d'avance.


A voir également:

6 réponses

via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonjour

Où est ta liste ? Comment est organisé ton tableau ? autant de choses qu'il faut connaître pour t'indiquer un code adapté
Pour cela il faut un exemple de ton fichier (la fichier, pas une image) que tu poste sur https://mon-partage.fr/ tu fais créer un lien que tu copies et reviens coller ici en l'accompagnant d'explications plus précises

Cdlmnt
Via
0
BLBATHOR Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Re
je souhaite colore en rouge les ligne dans les quel la colonne 3 contient le mot Néan

https://www.cjoint.com/c/HCBub2GkktQ
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Re

Par une mise en forme conditionnelle comme tu en as déjà mis dans ta feuille avec la formule =$C1="Néan" s'appliquant à la plage $A:$S
0
pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
C'est dans la listview que je que la ligne se colore sous condition
Cordialement
0
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
OK
Désolé je n'ai pas l'option Listview disponible sur mon poste actuel
Re^pose ta question sur le forum pour que quelqu'un d'autre puisse te répondre

Cdlmnt
Via
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Me.ComboBox2 = Me.ListView1.ListItems(I).ListSubItems(4).Text

Pas de Combobox2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

cherche un mot dans la colonne par ex:3
Quelle colonne ???????????? Quel mot ????????????

Si click autre ligne que ligne 1 listview: plante!!!!!!!!!!!!!!!!!!!!!!

Mot clef: porte nawak
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Ai decortique votre code, fichier modifie pour couleur texte ligne listview si texte colonne 2= "Mot Cle". J'ai mis rouge, a vous de mettre la bonne couleur. Couleur de font pas modifiable facilement, il faut une reference complementaire

https://mon-partage.fr/f/cZphQ81d/
0
BLBATHOR Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour et merci
c'est presque ca
le mot clé est néant
je souhaite que dans la listview si une ligne contiens le mot clé dans la colonne 2 alors la police de la
passe au rouge
Cordialement
0
BLBATHOR Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Re
j'ai essayé ca mais bug si vous voyez pourquoi ?
Cordialement

Sub IniLvw12(a As Long)
Dim x
Dim I
Dim J
With ListView1
.ListItems.Add , , Sheets("BIBLIOTHEQUE DE PRIX TCE").Cells(a, 1)
x = .ListItems.Count
For I = 1 To 13
.ListItems(x).ListSubItems.Add , , Sheets("BIBLIOTHEQUE DE PRIX TCE").Cells(a, I + 1)
Next
.ListItems(x).ListSubItems.Add , , a
For I = 1 To .ListItems.Count
If .ListItems(I) = TextBox1 Then .ListItems(I).Bold = True
For J = 1 To .ColumnHeaders.Count - 1
If .ListItems(I).ListSubItems(J).Text = TextBox1 Then
For c = 1 To .ColumnHeaders.Count
.ListItems(I).ListSubItems(c).Bold = True
If .Cells(I, 2) = "néant" Then
.ListItems(I).ListSubItems(1).ForeColor = vbRed
.ListItems(I).ListSubItems(2).ForeColor = vbRed
.ListItems(I).ListSubItems(3).ForeColor = vbRed
.ListItems(I).ListSubItems(4).ForeColor = vbRed
.ListItems(I).ListSubItems(5).ForeColor = vbRed
.ListItems(I).ListSubItems(6).ForeColor = vbRed
.ListItems(I).ListSubItems(7).ForeColor = vbRed
.ListItems(I).ListSubItems(8).ForeColor = vbRed
.ListItems(I).ListSubItems(9).ForeColor = vbRed
.ListItems(I).ListSubItems(10).ForeColor = vbRed
.ListItems(I).ListSubItems(11).ForeColor = vbRed
.ListItems(I).ListSubItems(12).ForeColor = vbRed
.ListItems(I).ListSubItems(13).ForeColor = vbRed
End If
Next c
End If
Next J
Next I
End With
End Sub
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Ben le fichier (qui est le votre) que j' ai modifie, vous ne l'avez pas ouvert ????????????????????????????????????????

Pourquoi ceci:
 If .Cells(I, 2) = "néant" Then

Pourquoi avoir un mot cle a saisir si c'est ecrit en "dur" dans le code ??????????????????????
0
BLBATHOR Messages postés 11 Date d'inscription   Statut Membre Dernière intervention  
 
Re
je l'ai ouvert
mais dans votre modification qui se rapproche très fortement de ma demande
la condition de mot clé se déclenche selon la saisie dans la textbox
alors que je souhaite que la condition se déclenche au chargement de la listview
j' espère être suffisamment explicite
Cordialement
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
se déclenche au chargement de la listview
Ben oui, si j'entre portnawak ou un code art en effet la listview se remplit plus ou moins avec des lignes. Donc vous voulez que la ligne qui a en colonne 2 "Néan" se colore en rouge. Pas de probleme je vous arrange ca


Fichier modifie: https://mon-partage.fr/f/rvyGAxXT/
J'ai mis un t a la fin de néant ca parle mieux
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Je regarde comment vous remplissez la listview et fais ce qu'il est possible

A+

Si choix sur un mot d'une colonne et pas seulement un caractere sur n'importe quelle colonne, c'est jouable
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Vous avez besoin de chercher dans quelles colonnes en fin de compte et c'est des "mots" complets, pas de recherche sur un seul caracteres en dehors de la colonne H??
0
pyrus2047 Messages postés 153 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
Je souhait faire une recherche dès le premier caractère dans les 10 colonnes
Cordialement
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Je regarde la chose, mais je comprends pas votre logique!!!!!!
0