Récupérer l'objet exécutant la macro

Bonjour,

Dans Excel 2016, j'aimerais récupérer les caractéristiques (méthodes, propriétés) de l'objet m'ayant servi à exécuter une macro dans la macro elle-même.

Pour donner un exemple concret, j'ai créé des boutons en insérant des formes, que j'ai nommées et libellées, auxquels je voudrais attribuer une macro (unique) qui redirigerait vers la feuille portant le nom du bouton sur lequel je clique.
J'ai utilisé des formes plutôt que des contrôles ActiveX par habitude et par soucis d'esthétisme. S'il s'avère que l'opération n'est possible qu'avec les boutons ActiveX, je réviserai ma façon de faire.

Créer une macro et l'associer au clic sur une forme, pas de problème. Par contre récupérer des infos sur la forme sur laquelle j'ai cliqué à l'intérieur même de ma macro, je coince.

J'ai entendu parler de 'Me' qui fait référence à l'instance de la classe dans laquelle je me trouve. Sauf que mon code se trouve dans un module standard et pas un module de classe, et c'est incompatible avec l'utilisation de 'Me'.

Avez-vous d'autres pistes ?

Je vous joins un fichier exemple. Ce sera plus parlant pour moi de voir le code dans son contexte.

Merci pour votre aide.

Bien à vous,

Bonjour,

Application.Caller devrait te renvoyer le nom de la forme (Shape) sur laquelle tu as cliqué

Bonjour tototiti2008,

Cela fonctionne bien. Merci :D

Cependant, Application.Caller me renvoie ici un String, et non l'objet de type Shape.
J'ajouterais pour compléter le sujet que pour utiliser les méthodes et propriétés de l'objet Shape qui a exécuté la macro il faut utiliser un bout de code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test() 'Déclaration de ma variable de type Shape Dim MyShape As Shape   'Instanciation de l'objet Set MyShape = ActiveSheet.Shapes(Application.Caller)   'Utilisation de l'objet MyShape.Rotation = 120 End Sub

---

Encore merci.

Bien à vous,

Citation:

---

Envoyé par Catab

Pour donner un exemple concret, j'ai créé des boutons en insérant des formes, que j'ai nommées et libellées, auxquels je voudrais attribuer une macro (unique) qui redirigerait vers la feuille portant le nom du bouton sur lequel je clique.

---

Il serait bien plus simple de faire ça en ajoutant un lien hypertexte à l'objet.

Citation:

---

Je vous joins un fichier exemple.

---

Sauf que beaucoup de participants n'ouvrent pas les fichiers joints : https://www.developpez.net/forums/d8...s-discussions/

Même si la discussion est résolue,
Est ce que un Me.ActiveControl.Name fonctionne sous 2016?

Citation:

---

Envoyé par Menhir

Il serait bien plus simple de faire ça en ajoutant un lien hypertexte à l'objet.

---

Je suis d'accord. Et pour tout t'avouer, je n'y ai pas pensé dans ce cas-ci (pas le réflexe lorsque le lien ne sort pas du classeur...). Cela dit, connaitre la façon de récupérer des infos sur l'élément appelant était important à mes yeux au delà de cet exemple.

Citation:

---

Envoyé par Menhir

Sauf que beaucoup de participants n'ouvrent pas les fichiers joints : https://www.developpez.net/forums/d8...s-discussions/

---

J'ai connu d'autres forums Excel qui encourageaient l'ajout d'un fichier en exemple. De mon point de vue tout à fait personnel, je trouve que ça ajoute beaucoup de clarté à une explication. Loin de moi l'envie d'être assisté sans effort, d'autant plus que la mise en place d'un exemple parlant et qui ne divulgue aucune info à caractère privé est un travail en soit. Je crois d'ailleurs avoir fait preuve de précision dans ma demande. J'ai également prouvé avoir effectué des recherches. Aussi j'ose espérer que l'ajout d'un exemple me sera pardonné.

Citation:

---

Envoyé par bobby5169

Est ce que un "Me.ActiveControl.Name" fonctionne sous 2016?

---

Le mot clé 'Me' n'est pas reconnu lorsque utilisé dans un module 'standard'. Y compris dans ce cas-ci.
Sans connaître suffisamment le sujet, je dirais que tu parles surement dans le cadre d'un UserForm. Je n'ai malheureusement pas le loisir (ni le temps et les connaissances nécessaires) de t'apporter une réponse.

Bien à vous,

Citation:

---

Envoyé par Catab

De mon point de vue tout à fait personnel, je trouve que ça ajoute beaucoup de clarté à une explication.

---

De mon point de vue personnel, ça ajoute beaucoup au danger inutilement encouru par le répondant.
J'ai déjà connu une expérience malheureuse sur ce forum-même. Comme le corbeau de la fable, on ne m'y reprendra pas deux fois.

Bonjour

Citation:

---

J'ai connu d'autres forums Excel qui encourageaient l'ajout d'un fichier en exemple.

---

pas celui-ci, qui invite au contraire expressément à l'éviter :
https://www.developpez.net/forums/d8...s-discussions/
A tort ou à raison ?
Et certains, dont moi-même, refusent d'ouvrir un classeur tiers. Ont-ils tort ? Ont-ils raison ? Peu importe de le savoir. Le fait est qu'ils refusent et qu'ils sont les seuls maîtres de leurs décisions. ;)

re
j'ai du mal a comprendre le besoins du application.caller
quand tu affecte une nouvel macro au clic d'un shap la sub nomdushape_click se créé

le nom du shape fait partie du nom de la sub click
reprends le dans la sub avec

Code:

---

1 2	set shap= shapes("nomdushape") msgbox shap.name ' ou toute autre propertie accesible en lecture

---

ou alors argumente le.onaction en vba

Citation:

---

Envoyé par patricktoulon

quand tu affecte une nouvel macro au clic d'un shap la sub nomdushape_click se créé

---

J'imaginais bien qu'il devait y avoir quelque chose du genre qui se passait. Pourquoi serait-ce différent d'un event sur une worksheet après tout... ?

Par contre si ce bout de code s'écrit bien quelque part, peux-tu m'indiquer où le trouver dans l'interface VBA ?

Merci.

Bien à vous,

Bonjour,

il faut faire une différence entre Shape (objet graphique) et contrôle ActiveX (OLEObject je crois)
Les contrôles ActiveX créent un code événementiel dans la feuille où ils ont été insérés, pas les Shapes (forme dessinée par exemple)
Pour les Shapes, on a donc que Application.Caller
Pour les contrôles ActiveX, Me devrait marcher je pense (à moins que ça ne désigne la feuille, à tester) dans le code événementiel

re
les controls AcivX ont leur propre evenement dans l'editeur vba dans le modules de la feuille

pour les shapes et control formulaire (non ActivX" ) click droit dessus et (affecter une macro puis nouvelle ) et elle se créée dans le module de la feuille il n'y a pas d'autre evenement )


j'ai une shape qui s'appelle "toto" je click droit de ssus et afecter une macro puis nouvelle dans la fenetre de la lmiste des macros
automatiquement la sub (sub toto_click() )va se créer dans le module de la feuille

vous le voyez toto dans le nom de la sub ou pas????
pourquoi aller chercher app.caller ??????

et dans la sub

Code:

---

1 2 3

sub toto_click () msgbox activesheet.shapes("toto"). proriété ' celle que tu veux end sub

---