Discussion :

[Olivierporcinet]

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Bouton3_Cliquer()
    Dim CC As Range
    Set CC = Columns(1).Find(InputBox("Enter la référence"))
    If Not CC Is Nothing Then
        Columns(1).Interior.ColorIndex = 0
        CC.Select
        CC.Interior.ColorIndex = 8
    End If
End Sub

Et supprime la seconde macro.

[Olivierporcinet]

toujours le même problème, ma colonne "A" redevient blanche

Les cellules A2:A2000 ne reprennent pas leur couleur de départ

[Olivierporcinet]

J'ai peut-être trouvé une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton5_Cliquer()
    Dim CC As Range
    Set CC = Columns(1).Find(InputBox("Enter la référence"))
    If Not CC Is Nothing Then
        Columns(1).Interior.ColorIndex = 8
        CC.Select
        CC.Interior.ColorIndex = 0
    End If
End Sub
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Columns(1).Interior.ColorIndex = 24
End Sub

Mais comment faire pour que cela ne s'applique qu'à partir de A2 ?

Par contre, erreur lors de la recherche : ne respecte pas le mot recherché, renvoie à un autre.

Essai avec ...............

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application. Match

: Aucun problème.

Merci

[patricktoulon]

re
je pense que la question aurais due etre
dans colonne "A" qui a une couleur je voudrais dans la plage utilisée de cette colonne avoir les ligne qui correspondent a une chaine recherchée d'une couleur et celles qui ne corresponde pas d'une autre couleur
les cellules non concerné(apres la derniere ligne utilisée) restent de la couleur initiale

si c'est ca la reponse est dans la question si c'est pas ca il faut etre plus clair

[Olivierporcinet]

Oui, ça doit être cela.

Je pense que je ne suis pas loin mais quelque chose m'échappe encore.

je bloque.

Je ne vois pas comment faire pour appliquer cela de A2 à A500

Merci