Récupérer dans une cellule le nom d'une autre feuille

Bonjour Forum !

Y a-t-il une fonction qui permette de récupérer dans une cellule le nom d'une autre feuille (par exemple la feuille suivante) ?

Merci.

Bonjour,

ce code te permettra de lister les noms de toutes les feuilles de ton classeur dans la 1ere colonne de ta 1ere feuille.

Sub Sheet_Name()

Dim aa As Long

Sheets(1).Select
Range("A1").Select

aa = Sheets.Count
For a = 1 To aa
    ActiveCell = Sheets(a).Name
    ActiveCell.Offset(1, 0).Select
Next a

End Sub

Cordialement

Bonjour,

Tu peux utiliser la fonction LIRE.CELLULE des macros XL4.

1) Tu crée un Nom

Nom : Test

Fait référence à : = LIRE.CELLULE(62;Feuil2!A1)

2) Tu places la formule suivante dans la Feuil1

=Test

Résultat : [Classeur1]Feuil2

Enfin, si tu souhaites ne conserver que le nom de la feuille, tu modifies la formule

=STXT(Test;TROUVE("]";Test)+1;9^9)

A+

Bonjour,

Heuuu, frangy, si on connait le nom de la feuille ce n'est pas plus simple de taper directement Feuil2 dans la cellule ?

eric

Bonjour eriiic,

J'ai confiance en gloub, je suis sûr qu'il a une bonne raison pour justifier sa demande .

Dans le cas contraire, je me serais quand même bien amusé avec la fonction LIRE.CELLULE.

A+

Bonjour à tous,

avec une fonction personnalisée :

Function nomFeuille(offset As Long) As String
    nomFeuille = Worksheets(Application.Caller.Worksheet.Index + offset).Name
End Function

Syntaxe : =nomFeuille(offset)

offset étant l'offset de la feuille (par rapport à la feuille où est inscrite la fonction) dont on désire le nom.

Ex :

=nomFeuille(0) : nom de la feuille où est la fonction

=nomFeuille(-1) : nom de la feuille précédente

=nomFeuille(1) : nom de la feuille suivante

=nomFeuille(2) : nom de la feuille 2 feuilles à droite

#VALEUR si la feuille n'existe pas.

eric

Merci à tous pour vos contributions, c'est cool.

J'ai toute la gamme des solutions.