Coloré toute la ligne listview

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

Bonjour
C'est dans la listview que je que la ligne se colore sous condition
Cordialement

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

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
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

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,

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??

Bonjour
Je souhait faire une recherche dès le premier caractère dans les 10 colonnes
Cordialement

Re,

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