Shape + remplissage couleur

[lynyrd]

Bonsoir le forum
Jaimerai que lorsque je clique sur
- la shape rectangle la cellule "F1" ait un remplissage en rouge
- la shape cercle la cellule "F2" ait un remplissage en vert
Merci.

 

[Paf]

Bonjour,

utiliser "affecter une macro" du menu contextuel issu du clic droit sur le shape.
une fenêtre s'ouvre et propose le nom (par exemple) : Rectangle1_QuandClic
cliquer sur nouvelle
et rentrer le code:

Worksheets("Feuil1").Range("F1").Interior.ColorIndex = 3

Le lien hypertexte utilisé empêche la macro de s'exécuter. Dans le menu contextuel du clic droit sur le shape cliquer sur supprimer le lien.
Si le lien est nécessaire pour sélectionner F1 (ou F2), dans la macro utiliser plutôt code:

With Worksheets("Feuil1").Range("F1")
    .Interior.ColorIndex = 3
    .Select
End With

A+

 

[lynyrd]

Ok
Mais il faudrait que quand la cellule "f2" est selectionnée,que celle de "f1" redevienne sans remplissage.
Merci.

 

[Paf]

une ligne à rajouter dans chaque macro !
Et je crois que ....ColorIndex = xlNone supprime la couleur de fond

 

[lynyrd]

ok merci