Référence à la cellule contenant la fonction

Bonjour,

J'ai créé une petite function toute simple qui renvoie le nom de l'onglet dans lequel se trouve une cellule.

Code:

---

1 2 3

Function Onglet(Cellule As Range) As String Onglet = Cellule.Worksheet.Name End Function

---

Je voudrais l'améliorer en rendant Optional le paramètre Cellule : s'il n'est pas renseigné, la fonction devra renvoyer l'onglet de la cellule dans laquelle elle se trouve.
Je me doute bien que la propriété ActiveCell n'est pas applicable dans ce cas.
J'ai fouillé dans l'aide en ligne mais c'est le type d'information qui n'est pas facile à trouver.

D'où ma question :
Existe-il un élément de VBA Excel qui permette de récupérer dans une fonction la référence de la cellule dans laquelle cette fonction est utilisée ?

Merci d'avance.

Salut,

Tu disposes de la fonction FEUILLE() dans les fonctions natives, qui te retourne le numéro de la feuille, mais il n'y a pas (apparemment) son équivalent brut dans les WorksheetFunctions.


Comme je ne veux pas t'induire en erreur, tu aurais un exemple à nous donner, histoire de voir ce qui s'en rapprocherait le plus stp ?

Bonjour,

Peut-être ceci:

Code:

---

1 2 3 4 5 6 7

Public Function Onglet(Optional Cellule As Range) As String If Cellule Is Nothing Then Onglet = ActiveSheet.Name Else Onglet = Cellule.Worksheet.Name End If End Function

---

Cordialement.

Bonjour,

essai ceci :

Code:

---

1 2 3

Function Onglet() As String Onglet = Application.Caller.Parent.Name 'ici la propriété caller renvois l'object range qui appel la fonction End Function

---

Bon test

Philippe

Merci pour vos réponse et veuillez excuser ces remerciements tardifs.

Ce que je cherchais est bien la propriété Caller.
Je savais que ça existait mais impossible de remettre la main dessus. Je n'avais pas pensé à la chercher dans Application.

Merci aussi aux autres qui ont répondu.
C'est vrai qu'une méthode simple aurait été de mettre la cellule de la fonction en paramètre type Range pour récupérer sa Worksheet.Name.
C'est tout simple mais je n'y avait pas pensé.

Merci encore.