Coloré toute la ligne listview
BLBATHOR
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 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.
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.
6 réponses
-
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
-
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
-
-
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
-
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
-
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 -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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/-
-
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 -
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 ?????????????????????? -
-
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
-
-
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
