Test procédure source

Bonjour,

Je me posais la question suivante :

Dans le cas d'appel de procédure, est-il possible de tester qu'elle est la procédure source ?
Je m'explique :

J'ai des données à compiler (jusque là, rien d'extraordinaire). Pour cela je me greffe sur une extraction que je fais tourner. Sauf que, je n'ai pas besoin qu'elle réalise toutes les actions prévues.

En somme, est ce que j'ai moyen de dire à ma macro :
- Je te lance à partir de cette procédure, donc tu ne vas faire que ce que je te demande.

Bonne journée à vous,

Trystan

Bonjour Trystan, bonjour le forum,

Regarde peut-être du coté de Application.Caller...

Bonjour,

Application.Caller ne fonctionnera pas dans ce cadre, on l'utilisera par exemple pour identifier des clics boutons présents sur des feuilles

Pour ma part, ayant par le passé ouvert une discussion similaire, nous en étions resté à des solutions simples :

- transmettre sous forme de paramètre le nom de la procédure appelante à la procédure appelée
- utiliser une variable ou un tableau public qui va stocker l'information

d'autres solutions très lourdes sont également abordées
https://www.developpez.net/forums/d1...ure-appelante/

Citation:

---

Envoyé par Trystan441

Dans le cas d'appel de procédure, est-il possible de tester quelle est la procédure source ?

---

Dans ce cas Application.Caller ne donne pas le nom de la procédure appelante.
Le plus simple est de transmettre le nom de la procédure appelante dans les arguments de la procédure appelée.

Merci pour vos retours,

Effectivement, je suis tombé sur ton post Joe pendant mes recherches mais je n'ai pas réussi à me dépatouiller,

Ca m'a plutôt l'air technique de gérer !

Citation:

---

Envoyé par Trystan441

En somme, est ce que j'ai moyen de dire à ma macro :
- Je te lance à partir de cette procédure, donc tu ne vas faire que ce que je te demande.

---

Solution simple : mettre un paramètre à la macro appelée.
Au plus simple, tu mets un paramètre String et, dans ton Call, tu mets le nom de la macro appelante.
Un peu plus sophistiqué, tu crées un paramètre définissant ce que tu comptes faire dans la macro appelée, en utilisant par exemple un code binaire ou unune suite de caractères que tu décomposeras avec un Mid().

Code:

---

1 2 3 4 5 6 7 8

Sub Test(PP As String) If Mid(PP, 1, 1) = "1" Then Action 1 End If If Mid(PP, 2, 1) = "1" Then Action 2 End If ... etc ....

---

J'essaye tant bien que mal de tester cela, sans succès ...

Je bloque sur l'insertion du paramètre dans la procédure appelée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub testappel()   Dim i As String i = "testappel"   TestAppelTest(i as String)   End Sub   ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   Sub TestAppelTest()   If i = "testappel" Then MsgBox ("OK") Else MsgBox ("Non") End If   End Sub

---

Y aurait-il quelqu'un pour m'indiquer ce qui cloche ?

Merci,

Code:

---

1 2 3 4 5 6 7

Sub testappel() TestAppelTest "testappel" End Sub   Sub TestAppelTest(i As String) If i = "testappel" Then MsgBox "OK" Else MsgBox "Non" End Sub

---

C'est la procédure appelée qui doit être munie d'un paramètre.
La procédure appelante, quant à elle, fourni l'argument dudit paramètre

Bonsoir,

Code:

---

1 2 3 4 5 6 7 8 9

Sub testappel() TestAppelTest End Sub   Sub TestAppelTest(Optional Byval i As Integer=0) msgbox i If i <10 then TestAppelTest i + 1   End Sub

---

Citation:

---

Envoyé par Trystan441

Y aurait-il quelqu'un pour m'indiquer ce qui cloche ?

---

Pour compléter ce qui a été écrit :
https://docs.microsoft.com/fr-fr/off...call-statement
https://docs.microsoft.com/fr-fr/off.../sub-statement

Bonjour à tous,

Merci pour vos retours ! Je suis un peu plus éclairé !

Bonne journée à vous,

Trystan