MEFC selon contenu TEXTBOX

Bonjour à tous,

Sur le Blog j'ai trouver ce code :

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Range("a9:Z9000").Interior.ColorIndex = 2
    ListBox1.Clear

    If TextBox1 <> "" Then
        For ligne = 9 To 9000
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
            End If
        Next
    End If

End Sub

Il fait exactement ce que je cherche a une exception près : colorer toute la ligne et non une unique cellule.

Ci joint l'exemple de ce code.

J'ai donc essayer de changer le Cells après "THEN", les coordonnées, ect ... sans succès.

Merci de vos retours !

Bonjour S-excelement_parlant

Peut-être une idée à essayer, en changeant...

Cells(ligne, 1).Interior.ColorIndex = 43

Par :

Cells(ligne, 1).EntireRow.Interior.ColorIndex = 43

Bonjour,

Remplace le Cells par :

Rows(Ligne).Interior.ColorIndex = 43

C'est ça que tu veux ?

andrea73 a écrit :

Bonjour S-excelement_parlant

Peut-être une idée à essayer, en changeant...

Cells(ligne, 1).Interior.ColorIndex = 43

Par :

Cells(ligne, 1).EntireRow.Interior.ColorIndex = 43

Merci Andrea, c'est exactement cela que je cherchais ! Finalement j'avais essayer cette formule mais avec une faute de frappe a "entireROW" par "entierROW"

Merci à toi aussi Girodo de m'avoir proposer une solution !

(re)

S-excelement_parlant a écrit :

cette formule mais avec une faute de frappe a "entireROW" par "entierROW"