XL 2010 Origine appel fonction en VBA

Phil69970

XLDnaute Barbatruc

• 23 Août 2020

• #2

Bonjour Mecano41, le forum

Dans ta fonction tu peux mettre ceci :

VB:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Août 2020

• #3

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)

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 23 Août 2020

• #4

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 23 Août 2020

• #5

Salut PierreJean,

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

Cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Août 2020

• #6

Re
ou

VB:

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 23 Août 2020

• #7

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

Cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Août 2020

• #8

Re
Attention
prevois une

VB:

function retour()

 on error goto 0

end function

en cas !!!!

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 23 Août 2020

• #9

Merci! Bonne soirée!

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 23 Août 2020

• #10

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?

Cliquez pour agrandir...

tu peux utiliser THIScell :

VB:

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

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 23 Août 2020

• #11

Bonsoir,

Merci pour l'info.

Cordialement

 

Vote positif 0 Vote négatif