Couleur colonne initiale après mise à jour

**Olivierporcinet** · 24/04/2018, 13h06

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** · 24/04/2018, 13h31

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** · 24/04/2018, 14h00

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

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

**Olivierporcinet** · 24/04/2018, 14h44

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** · 24/04/2018, 15h14

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** · 24/04/2018, 15h36

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

**Menhir** · 24/04/2018, 15h58

Envoyé par Olivierporcinet

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

Remplace Columns(1) par Range("A2:A500").

**Olivierporcinet** · 24/04/2018, 16h07

OK mais toutes les autres cellules sont blanches après la sélection (qui se met bien en bleu).

Ce qui m'intéresse c'est que tout redevienne dans les couleurs respectives comme avant cette sélection.

Ne devrais-je pas ajouter quelque chose comme

Code :

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

InteriorColor.........

??

Pour résumer : voici le code pour l'instant

Code :

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

1
2
3
4
5
6
7
8
9
Sub Bouton5_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

Je ne sais pas si il faut modifier le code ou alors mettre un autre code sur

Code :

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

worksheet

Le titre de la colonne ne doit pas changer de couleur non plus. Il se trouve en "A1"

**mercatog** · 24/04/2018, 16h50

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
16
Sub Bouton5_Cliquer()
Static Ex As Long
Dim Var As String
Dim c
 
Var = InputBox("Enter la référence")
c = Application.Match(Var & "*", [A:A], 0)
If IsNumeric(c) Then
    With Cells(c, 1)
        If Ex > 1 Then Cells(Ex, 1).Interior.Color = .Interior.Color
        Ex = c
        .Select
        .Interior.ColorIndex = 8
    End With
End If
End Sub

Sans le code worksheet_selectionchange

**Menhir** · 24/04/2018, 17h47

Envoyé par Olivierporcinet

OK mais toutes les autres cellules sont blanches après la sélection (qui se met bien en bleu).
Ce qui m'intéresse c'est que tout redevienne dans les couleurs respectives comme avant cette sélection.

Là, on est en train d'avancer à tâtons en tirant les vers du nez pour obtenir des bribes d'informations que tu distilles au compte-goutes.
Bref, on est en train de perdre notre temps.

Fais une demande claire, complète et précise de ce que tu souhaites et on pourra proposer quelques chose de concret.
En attendant, je m'abstiendrai.

**patricktoulon** · 24/04/2018, 19h37

re
oui moi aussi je suis perdu la dans sa demande

**Olivierporcinet** · 25/04/2018, 10h36

Bonjour,

Je joins le fichier en annexe.

Lorsque je clic sur "Recherche", j'indique le nom dans l'inputbox et la cellule correspondante se met en bleu.

Ce que je recherche :

- Après la recherche, la cellule doit revenir à sa couleur de départ si je sors de la cellule ou si je fais une autre recherche.

- La cellule "A1" (Titre de la colonne) ne doit pas être concernée par la recherche.

Bonne journée.

Merci

**mercatog** · 25/04/2018, 10h50

#9

**Olivierporcinet** · 25/04/2018, 11h58

#9 ?

**mercatog** · 25/04/2018, 12h30

Réponse n° 9 que tu n'as pas testé

**Olivierporcinet** · 25/04/2018, 12h35

J'ai testé la réponse 9.

La cellule se met bien en bleue mais reste dans cette couleur quand je clic sur une autre.

La cellule A1 est toujours accessible

Cordialement

**Menhir** · 25/04/2018, 12h35

Envoyé par Olivierporcinet

Je joins le fichier en annexe.

Etant donné que beaucoup de participants n'ouvrent pas les pièces jointes, ça ne va pas beaucoup faire avancer les choses.
https://www.developpez.net/forums/d8...s-discussions/

- Après la recherche, la cellule doit revenir à sa couleur de départ si je sors de la cellule ou si je fais une autre recherche.

C'est quoi "sa couleur de départ" ?
Si c'est la même couleur que les autres cellules, alors les codes déjà proposés répondent à la question.
Si chaque cellule peut avoir une couleur particulière, alors ce n'est pas possible puisque Excel ne la garde pas en mémoire.
Ou alors, il faudrait l'enregistrer (avec l'adresse de la cellule) en variable permanente, ce qui serait peu fiable.

- La cellule "A1" (Titre de la colonne) ne doit pas être concernée par la recherche.

J'ai déjà répondu à ça dans mon message #7.

**Olivierporcinet** · 25/04/2018, 12h40

La couleur de départ est une couleur de fond.

chaque cellule peut avoir une couleur différente.

Merci

**patricktoulon** · 25/04/2018, 12h46

re
@mercatog
tout reste blanc chez moi avec post 9

ce que je voudrais savoir car j'ai un doute
le demandeur tape il un numero de ligne dans l'input ou une valeur a chercher

**Olivierporcinet** · 25/04/2018, 12h48

dans l'input, je tape une valeur.

par ex. Olivier

Couleur colonne initiale après mise à jour

Macros et VBA Excel

Discussions similaires

Partager

Partager