changer couleur forme si déplacement

[jtitin]

Bonjour à tous
est il possible de changer par VBA la couleur de fond d'une forme si déplacement de celle ci dans une zone nommée (zone1, zone2..)
exemple: j'ai un cercle bleu nommé Marc je le sélectionne et le déplace en zone1 il prend la couleur de fond rouge comme celle de Mercel.
si je le déplace en zone2 il devient vert comme Louis etc. etc

si possible ne pas utiliser le nom ou texte de la forme mais la sélection -> Shapes.select

merci pour aide

 

[DoubleZero]

Re : changer couleur forme si déplacement

Bonjour, jtitin, le Forum,

Une suggestion dans le fichier joint.

A bientôt

 

[jtitin]

Re : changer couleur forme si déplacement

oui merci DoubleZero
c'est ce que je cherche à obtenir
y a t'il un moyen d'éviter le bouton de lancement macro
juste au déplacement et désélection de l'objet

merci encore DoubleZero

 

[DoubleZero]

Re : changer couleur forme si déplacement

Re-bonjour,

Oui, en remplaçant ceci :

Sub CommandButton1_Click()
Call Couleur_forme_adapter_au_champ
End Sub

par cela :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Couleur_forme_adapter_au_champ
End Sub

A bientôt