XL 2019 Peut-on lancer une macro (une Sub) à partir dans une cellule comme pour une fonction

[p'tit vieux]

Bonjour à tous
Comme l'indique le titre (enfin je crois) je désire savoir si je peux écrire l'appel à une macro directement dans une cellule comme on le fait avec une fonction.
Est ce possible sans passer par un bouton ou autre mais en saisissant, par exemple, le nom de la Sub()?

 

[Dranreb]

À moins d'une réinitialisation intempestive du projet VBA je ne vois pas pourquoi la collection Consigne aurait perdu des valeurs tant que la ExecuterConsigne n'est pas invoquée.
Quant à la variable AddressCellelle n'est pas de moi et je ne lui voit aucune utilité.
Il va de soit que la Workbook_SheetCalculate ne doit pas être dans le classeur de macros mais dans le classeur utilisateur. Dans son module ThisWorkbook pour être précis. Lui seul sait que des évaluations de formules ont été effectuées chez lui. Elle doit néanmoins invoquer la ExecuterConsignes du classeur de macros, car lui seul détient la collection Consignes.

 

[p'tit vieux]

Merci,

Quant à la variable AddressCellelle n'est pas de moi et je ne lui voit aucune utilité.

En effet, la variable AddressCellelle est de moi elle est utilisé lorsque je déplace ton code dans un Add-In ((fichier externe donc) car, comme dis plus haut j'ai remarqué que l'adresse de cellule qui déclenche la fonction est perdue (ActiveCell.Adress est la cellule de droite celle suite à la validation). Donc je me suis servi de cette variable pour garder la cellule de la fonction. Le but est de pouvoir faire le test:

If InStr(1, Range("A1").Formula, "=Addition(") > 0 Then

Cela juste pour qu'elle ne soit exécutée que si nécessaire.

Il va de soit que la Workbook_SheetCalculate ne doit pas être dans le classeur de macros mais dans le classeur

Tout à fait d'accord.
Dans le cadre de mon développement c'est ce qui me gène.
Sinon votre solution fonctionne très bien si la F(Addition) est dans le même projet.

Une de vos lignes de code a attiré mon attention "Application.Caller.WorkSheet".
Je cherche et essaie de comprendre ce que cela peut apporter et comment ça marche.
Pour l'instant ce que j'ai trouvé est très très très succin. Même pas trouvé une arborescence de l'objet Application.Caller. Si vous aviez un lien vers plus d'explication je suis preneur. Merci

Je continue de fouiner et je reviens vers vous
Encore merci et à très vite
(… aprés achat d'aspirine. … c'est dur de s'y remettre après prés 20 ans d'arrêt )

 

[Dranreb]

La cellule qui invoque la fonction n'est pas perdue même si elle est dans un autre projet, qu'est ce que vous racontez. Elle est connue dans la Function comme Application.Caller.
Et la propriété Worksheet d'un objet Range représente la feuille contenant la plage que le Range représente.

 

[p'tit vieux]

Encore raison LOL
Mais comme dit dans mon précédent post "encore eut il fallu que je le susse" la Function Application.Caller )
Donc, après avoir cherché, j'ai trouvé (entre autre): Function Application.Caller.Adress
Intéressante d'ailleurs.
Désolé si pour vous j'ouvre des "portes ouvertes" mais techniquement je ne suis plus à la page.
D'ailleurs c'est assez frustrant de s'apercevoir que l'on est largué.
Merci.

Cdlt

 

[Dranreb]

Le nom qu'un objet porte dans une collecition, ou son adresse si c'est un Range, n'est jamais aussi intéressant que l'objet lui même. Sont-ce des adresses de cellules que je stocke dans ma collection Consignes ? Non, ce sont des objets Range qui les représentent directement !