Active Shape ?

[Dato]

Bonjour,

J'ai une même macro affectée à trois shapes. Ces trois shapes possèdent trois noms différents du style "Mesure n°1", "Mesure n°2" et "Mesure n°3".

La macro devrait ressemblé à ça

If ActiveShapes.Name = "Mesure n°2" Then
msgbox("Blabla")
Else msgbox ("Blabla2")
End if


Je sais que l'orthographe est fausse, mais j'ai 2 questions :

- lorsqu'on clique sur un shape à la quel une macro est affecté, est-ce que la forme est tout de même activé ?

- Si c'est le cas connaissez vous l'orthographe exact du "ActiveShapes" ?


Merci d'avance

 

[mromain]

Re : Active Shape ?

Bonjour Dato,

Tu peux récupérer le nom de la Shape qui a lancé la macro avec Application.Caller. Ça donnerai une macro de ce genre :

MsgBox Application.Caller
If Application.Caller = "Mesure n°2" Then
    MsgBox ("Blabla")
Else
    MsgBox ("Blabla2")
End If

a+

 

[kjin]

Re : Active Shape ?

Bonjour,

- lorsqu'on clique sur un shape à la quel une macro est affecté, est-ce que la forme est tout de même activé ?

Comment ne le serait-elle pas si tu as clické dessus ?
Si tu souhaites connaître la forme qui a appelé la macro

Msgbox Application.Caller

A+
kjin

 

[Dato]

Re : Active Shape ?

"Application.Caller" C'est exactement se que je cherchais ! Merci beaucoup !

 

[zefirstfan]

Re : Active Shape ?

Bonjour Les XLDownloadeurs,

je pensais trouver mon bonheur sur ce topic mais ca bloque!
Les explications sont sur le fichier feuille 1.
Merci d'avance et bon dimanche.
Zeuf.

 

[laetitia90]

Re : Active Shape ?

bonjour tous
comme je comprends
si tu rajoute des rectangles il faut qu'il soit reference en feuil 2 autrement error vu quand feuile3 des formules

dans chaque shape tu appel la macro "test"

 

[zefirstfan]

Re : Active Shape ?

Bonsoir Laetitia,
Et voila, 2 problemes pour aujourd'hui, 2 solutions trouvées grace au forum.
Je dis bravo et un grand merci.
Bonne fin de week end.
Zeuf.