Sujet Précédent Sujet Suivant

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

Fermé
onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015 - Modifié par onemouv le 6/05/2015 à 11:29
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 mai 2015 à 09:45
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 14473 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 13 septembre 2024 2 728
6 mai 2015 à 12:09
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 305
6 mai 2015 à 12:14
Bonjour
La liste de tes clients se trouvent en quelle colonne et à partir de quelle ligne?
0
onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015
6 mai 2015 à 13:33
Bonjour,

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

merci
0
Réponse 3 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 305
6 mai 2015 à 14:17
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 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015
6 mai 2015 à 15:32
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 305 > onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015
6 mai 2015 à 16:26
supprime cette ligne
Range("A33:A95").Interior.ColorIndex = -4142
0
onemouv Messages postés 7 Date d'inscription mardi 5 mai 2015 Statut Membre Dernière intervention 7 mai 2015
7 mai 2015 à 09:06
super merci beaucoup
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 305
7 mai 2015 à 09:45
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