XL 2010 Origine appel fonction en VBA

[mécano41]

Bonjour,

Comment puis-je savoir si une fonction en VBA a été appelée depuis une feuille de calculs ou depuis un autre code VBA?
(au début de ma fonction, j'ai : Set PlgSel=Application.Caller et un traitement utile pour un appel depuis une feuille mais qui met évidemment une erreur si j'appelle la fonction depuis une Sub...)

... rien trouvé par recherche ni dans l'aide ...

Cordialement

 

[Phil69970]

Bonjour Mecano41, le forum

Dans ta fonction tu peux mettre ceci :

Test =1
Msgbox "Coucou j'ai été appelé " & Test & " fois"
Test = Test + 1

Et/ou mettre un point d'arret dans ta fonction et F8 pas à pas pour voir qui la appelé.

@Phil69970

 

[pierrejean]

Bonjour mécano41
peut-être prévoir un paramètre (exemple 1 pour utilisation sur une feuille et 0 pour utilisation a partir du vba)
style Mafonction(range,1) ou Mafonction(range,0)

 

[mécano41]

Bonjour Phil,

Merci pour ta réponse mais ce que je cherche une instruction qui, mise au début de ma fonction, m'indiquera par ex. 1, si l'appel vient d'une feuille et 2 si l'appel vient d'une sub.

Cordialement

 

[mécano41]

Salut PierreJean,

Merci. Oui, c'est ma solution de secours...mais je voulais l'éviter...

Cordialement

 

[pierrejean]

Re
ou

On Error Resume Next
Set PlgSel = Application.Caller
  If Err.Number = 0 Then
     jeviens = 1
  Else
     jeviens = 2
  End If
On Error GoTo 0

 

[mécano41]

Par traitement d'erreur, cela devrait convenir. Merci!

Cordialement

 

[pierrejean]

Re
Attention
prevois une

function retour()

 on error goto 0

end function

en cas !!!!

 

[mécano41]

Merci! Bonne soirée!

 

[eriiic]

Bonjour à tous,

Comment puis-je savoir si une fonction en VBA a été appelée depuis une feuille de calculs ou depuis un autre code VBA?

tu peux utiliser THIScell :

Function test() As String
    Dim ori As Range
    On Error Resume Next
    Set ori = Application.ThisCell
    On Error GoTo 0
    If ori Is Nothing Then
        ' appel depuis vba
    Else
        ' appel depuis excel
        Debug.Print ori.Address 'ref d'appel
        Debug.Print ori.Parent.Name 'nom feuille d'appel
        Debug.Print ori.Parent.Parent.Name 'nom classeur d'appel
    End If
    Set ori = Nothing
End Function

eric

 

[mécano41]

Bonsoir,

Merci pour l'info.

Cordialement