Bonjour,

J’ai les macros suivantes qui me permettent de rechercher un nom dans une colonne via un inputbox. :

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
Sub Bouton3_Cliquer()
    Dim Var As String, c As Long
    Var = InputBox("Enter la référence")
    c = Application.Match(Var & "*", [A:A], 0)
    If IsNumeric(c) Then
        Cells(c, 1).Select
        Cells(c, 1).Interior.ColorIndex = 8
    End If
End Sub
 
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns(1).Interior.ColorIndex = 0
End Sub
Le problème :

La colonne « A : » a une couleur de remplissage.
De ce fait, lorsque la recherche a été faite, toute la colonne redevient blanche.

Y-a-t ’il un moyen pour que la colonne "A:" conserve sa couleur de remplissage initial après la recherche ?


Quelqu’un peut m’aider ?

Merci.

Bonne journée