Discussion :

[Trystan441]

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

[Thautheme]

Bonjour Trystan, bonjour le forum,

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

[joe.levrai]

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/

[Patrice740]

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.

[Trystan441]

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 !

[Menhir]

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 :

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

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

[Trystan441]

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 :

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

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,

[joe.levrai]

Code :

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

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

[Menhir]

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

[Trystan441]

Bonjour à tous,

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

Bonne journée à vous,

Trystan

[Invité]

Bonsoir,

Code :

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

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