...
Cells(i, 2).EntireRow.Interior.Color = RGB(255, 255, 255)
...
Range("B" & i).EntireRow.Interior.Color = RGB(0, 255, 0)
...
Bonjour Alexis,
Essaie en modifiant tes lignes comme suit:
Cordialement.Code:... Cells(i, 2).EntireRow.Interior.Color = RGB(255, 255, 255) ... Range("B" & i).EntireRow.Interior.Color = RGB(0, 255, 0) ...
RE:
Si ça marche.
Tu as simplement du texte en B50. Si tu l'effaces, tu n'auras que la ligne 3 en vert. Par contre, tu ne dois pas avoir de ligne vide entre la 1ère et la dernière sinin même punition.
non ça ne marche pas regarde le fichier
Private Sub ListBox1_Click()
TextBox1 = ListBox1
Range("B3:B" & Rows.Count).EntireRow.Interior.Color = RGB(255, 255, 255)
Set cel = Range("B3:B" & Rows.Count).Find(TextBox1)
cel.Select
cel.EntireRow.Interior.Color = RGB(0, 255, 0)
End Sub