Discussion :

[Catab]

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,

[tototiti2008]

Bonjour,

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

[Catab]

Bonjour tototiti2008,

Cela fonctionne bien. Merci

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[Menhir]

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.

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/

[bobby5169]

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

[Catab]

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.

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é.

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,

[Menhir]

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.

[unparia]

Bonjour

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.

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou alors argumente le.onaction en vba

[tototiti2008]

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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