Discussion :

[Invité]

Bonjour à tous,

Dans une cellule d'une feuille Excel j'utilise une fonction que j'ai créé dans un module du classeur : NomFeuille()

Cette fonction toute simple retourne le nom de la feuille active

Code :

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

1
2
3
Function NomFeuille()
  NomFeuille = ActiveSheet.Name
End Function

Cela fonctionne très bien, sauf que si j'ai une autre feuille avec la même fonction, forcément tous mes calculs de la première feuille sont faussés !?

Ma question est donc :
Comment faire pour récupérer le nom de la feuille de la cellule appelante ?

Avec

Code :

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

Application.Caller

ça ne va pas puisque ça ne peut retourner qu'un "range"

Merci pour votre aide.

[Invité]

Plus la peine de chercher, j'ai trouvé.

Code :

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

1
2
3
4
5
6
7
8
9
Function NomFeuille()
  Dim AdrCel, NomAdr
  ' Récupère l'adresse complète (External:= True)
  AdrCel = Application.Caller.Address(0, 0, , 1)
  ' Récupère le nom de la feuille + l'adresse de la cellule
  NomAdr = Mid(AdrCel, InStr(1, AdrCel, "]") + 1)
  ' Récupère le nom de la feuille seul
  NomFeuille = Left(NomAdr, InStr(1, NomAdr, "'!") - 1)
End Function

Cordialement.

[bidou]

Code :

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

Application.Caller.Parent.Name

[Invité]

Heuuu ....

Bidou, en fait c'était ultra simple ! Mais fallait y penser