Module de classe : Déclaration de Shapes sur Sheets

Bonjour,

Je reviens avec ma bête noire la déclaration d'objet en classe... Quand les objets sont sur un USF je sais faire, mais là ils sont sur feuille... et en plus ils seront plusieurs centaines...

On dispose d'objets Shapes sur une feuilles : Seuls ceux dont le nom commence par "Exa" doivent être déclarés dans une classe avec un Events "Click" qui renverra Msgbox Mid(Obj.Name, 3)

Merci pour votre apport.

A+

Bonjour,

nul besoin de classe vu la demande, lors de la création du modèle : Sh.OnAction = "EventClick", puis une Sub :

Sub EventClick()
    MsgBox (Mid(Application.Caller, 4, 3))
End Sub

Ce qui renverra le "chiffre" après "HEX".
Le deuxième avantage d'affecter une macro à la forme, c'est qu'on ne peut plus la sélectionner par erreur avec le clic gauche !

@ bientôt

LouReeD

Bonjour LouReed

... Et si je veux leur affecter des propriétés j'agrandis le tableau c'est çà ?

A+

Le tableau Data qui regroupe toutes les données des shapes ? Oui par exemple.

@ bientôt

LouReeD