XL 2007 Shape + remplissage couleur

lynyrd

XLDnaute Impliqué
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.
 

Fichiers joints

Paf

XLDnaute Barbatruc
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:
VB:
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:

VB:
With Worksheets("Feuil1").Range("F1")
    .Interior.ColorIndex = 3
    .Select
End With
A+
 

lynyrd

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

Paf

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

Discussions similaires


Haut Bas