EXCEL: créer un bouton qui colore une cellule (macro)

onemouv Messages postés 7 Statut Membre -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour à tous,

J'ai besoin d'aide pour trouver un solution à mon problème sur excel....
Je suis débutant, et j'ai encore un problème.

Je vous donne un exemple de ce que j'aimerai réaliser:

EXEMPLE : En un clic sur un bouton et une valeur en C2 (un numéro de client C0252645) que j'aurai rentré,
je voudrais que ça trouve ce numéro de client dans la liste de mes clients qui seront juste en dessous, et colorie la cellule en question
( peu importe la couleur.. )

Je ne sais pas si c'est très clair, MERCI D'AVANCE si vous arrivez à me sauver

Bonne journée
A voir également:

3 réponses

Réponse 1 / 3
via55 Messages postés 14730 Date d'inscription   Statut Membre Dernière intervention   2 750
 
Bonjour

Pas besoin d'un bouton, le seul fait de changer la valeur en C2 peut faire colorer par mise en forme conditionnelle la bonne cellule :

Selectionner la plage complète avec les n°S de clients
Accueil - Mise en forme conditionnelle
Nouvelle règle
Appliquer une formule ...
et comme formule entrer =$C$2 avant de choisir avec Format la couleur de remplissage

Cdlmnt
Via
0
Réponse 2 / 3
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Bonjour
La liste de tes clients se trouvent en quelle colonne et à partir de quelle ligne?
0
onemouv Messages postés 7 Statut Membre
 
Bonjour,

La liste est dans la colonne A, de la ligne 33 à 95

merci
0
Réponse 3 / 3
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Re,
macro sans besoin de bouton: la cmacro se déclenche en valisdant C2
à installer dans le module de la feuille concernée 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
    Range("A33:A95").Interior.ColorIndex = -4142
    If Target <> "" Then
        On Error GoTo inconnu
        Cells(Columns("A").Find(Target, Range("A32")).Row, "A").Interior.ColorIndex = 6
    End If
End If
Exit Sub
inconnu:
    MsgBox Target & " inconnu(e) dans la liste"
End Sub
0
onemouv Messages postés 7 Statut Membre
 
Merci, c'est tout à fait ça que je veux !! ah ah

Mais j'aimerai que les cellules reste en couleur même si j'en rentre une autre, tu penses que c'est possible ?
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318 > onemouv Messages postés 7 Statut Membre
 
supprime cette ligne
Range("A33:A95").Interior.ColorIndex = -4142
0
onemouv Messages postés 7 Statut Membre
 
super merci beaucoup
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
Suite à ta demande en MP
"mettre C2 à rian
réponse sur le forum 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then
    Range("A33:A95").Interior.ColorIndex = -4142
    If Target <> "" Then
        On Error GoTo inconnu
        Cells(Columns("A").Find(Target, Range("A32")).Row, "A").Interior.ColorIndex = 6
    End If
    Application.EnableEvents = False
        Target = ""
    Application.EnableEvents = True
End If
Exit Sub
inconnu:
    MsgBox Target & " inconnu(e) dans la liste"
End Sub
'--------------------------------------------
Sub SOS_macros_désactivées()
    'très utile si on sort accidentellement de la macro _
     après Application.EnableEvents = False _
     et que les macros ne répondent plus
    Application.EnableEvents = True
End Sub
0