Discussion :

[Menhir]

Bonjour,

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

Code :

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

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.

[Jean-Philippe André]

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 ?

[EricDgn]

Bonjour,

Peut-être ceci:

Code :

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

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.

[Phil Free]

Bonjour,

essai ceci :

Code :

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

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

[Menhir]

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.