Active Shape ?

mromain

XLDnaute Barbatruc

• 17 Novembre 2010

• #2

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 :

VB:

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

a+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 17 Novembre 2010

• #3

Re : Active Shape ?

Bonjour,

Dato à dit:

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

Cliquez pour agrandir...

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

Code:

Msgbox Application.Caller

A+
kjin

 

Vote positif 0 Vote négatif

D

Dato

Guest

• 17 Novembre 2010

• #4

Re : Active Shape ?

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

 

Vote positif 0 Vote négatif

Z

zefirstfan

Guest

• 11 Mars 2012

• #5

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.

 

Pièces jointes

• Shape active 2.xlsm

  18.1 KB · Affichages: 118

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 11 Mars 2012

• #6

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"

 

Pièces jointes

• Shape.xlsm

  22.9 KB · Affichages: 155

Vote positif 0 Vote négatif

Z

zefirstfan

Guest

• 11 Mars 2012

• #7

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.

 

Vote positif 0 Vote négatif