Bonjour,

Suite à une recherche effectuée dans une combobox, je veux colorer la ligne trouvée.

La combobox ne recherche que la valeur dans la colonne A, et je veux colorier la ligne jusqu'à la colonne E.

Problème : La fonction Range ne permet de colorier que seulement deux cellules.

Quelle instruction puis-je utiliser pour colorier toute les cellules jusqu'à la colonne E ?

Mon bout de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ComboBox1_Change()
 
    Application.ScreenUpdating = False
 
    Range("A3:A912").Interior.ColorIndex = 2
 
    If ComboBox1 <> "" Then
        For ligne = 3 To 912
            If Cells(ligne, 1) Like "*" & ComboBox1 & "*" Then
                Range(Cells(ligne, 1), Cells(ligne, 2)).Interior.ColorIndex = 43
            End If
        Next
    End If
 
End Sub
Merci d'avance