Macro avec argument sur objet feuille excel

Bonjour à tous,

J'ai un petit problème sous excel.
J'aimerai pouvoir affecter une macro avec argument à des objets d'une feuille excel.
Je précise :
J'ai une carte de France, sur laquelle j'ai ajouté des ronds (forme automatique). Chaque rond correspond à une ville de France.
Il faudrait que lorsque je clique sur une ville, cela m'actualise un TCD avec la ville correspondante :

Code:

---

1 2 3

Public Sub Carte_de_France(ville As String) PivotTables("MonTCD").PivotFields("Entrepôt").CurrentPage = ville End Sub

---

Le problème c'est que pour affecter une macro à un objet, je dois faire clique droit affecter une macro et choisir dans la liste, mais pas moyen de faire passer mon argument.

Avez vous des idées ?

Merci de otre aide.

Franzz

Il faut que tu récupère au début de la macro la forme automatique selectionnée pour ensuite appeler ta procédure avec paramètre

Je dis une bêtise. Enfin, c'est un peu plus compliqué que ça, tu pourrais à la rigueur faire comme ça en bouclant sur les shapes et regardant les coordonnées de la souris. Mais bon, le plus simple c'est quand même sans doute de faire une macro par ville qui appelle simplement la procédure avec le bon paramètre.

Bonsoir ZebreLoup

Merci pour ta réponse, et j'ai bien fait comme tu as dit à savoir une macro par ville.

Frannzz