Bonjour,
Une proposition de fonction personnalisée (éditée après tests) :
Function NOMFEUILLE(Cellule As Range) As String
Application.Volatile
NOMFEUILLE = Cellule.Worksheet.Name
End Function
à appeler sur la feuille, à la cellule voulue, comme ça :
=NOMFEUILLE(A1) 'ou ="cpt "&NOMFEUILLE(A1) pour obtenir le rendu du fichier...
On met en argument n'importe quelle cellule de la feuille et c'est bon...
Puis une autre fonction personnalisée :
function FEUILLE_X(IndexFeuille as byte) as string
application.volatile
FEUILLE_X = Sheets(IndexFeuille).name
end function
à appeler sur la feuille bilan ainsi :
=FEUILLE_X(1) 'ou FEUILLE_X(A1) si A1 vaut 1
pour avoir le nom de la première feuille.
Cdlt,