Discussion :

[buhrne]

Salut le forum,

Voila j'ai une 2 procédures qui se lancent séparément mais qui à un moment peuvent faire appel au même userfrm en cours de route.
Je voudrais savoir s'il existe un moyen à la fin de l'execution du usf de savoir à paritr de quel procédure il à été lancé et en fonction de l'origine, lancer une autre procédure.

Ex:

macro A ==......==>usf
macro B ==......==>usf

usf==...==>si origine = macro A alors call macro A'
si origine = macro B alors call macro B'


C'est possible où utopique?

[fred65200]

tu peux mettre une variable publique comme ceci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Public temoin As String
Sub Macro1()
temoin = "macro1"
UserForm1.Show
 
End Sub
Sub Macro2()
temoin = "macro2"
UserForm1.Show
 
End Sub

Dans le UserForm

Code :

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

1
2
3
4
Private Sub UserForm_Activate()
MsgBox "UserForm appelé par la macro " & temoin
 
End Sub

@+