Module classe shapes dynamiques

Bonjour

Je me suis inspiré de ce classeur :

On clique sur un département = MsgBox avec N° de celui-ci.

Dans le fichier ci-dessous je cherche à créer des shapes sur la 2° feuille par macro (ça, ça me parait ok) et à les rendre dynamiques (un clic sur l'un deux permettra d'avoir des infos - ça, ça ne fonctionne pas du tout ). Quelque chose m'échappe, je n'arrive pas à reproduire l'exemple ...

Merci d'avance

Bonjour,

Pour ce besoin, on peut se passer de module de classe.

Lors du dessin on ajoute .OnAction = "Clic" juste à la suite de .Visible = True

et on ajoute une procédure Clic :

Sub Clic()
    MsgBox Application.Caller
End Sub

Et c'est tout

Pierre

Génial !!!

Quelle honte, suis là-dessus depuis hier ;

Merci beaucoup Pierre et bonne journée