report du nom de l'onglet dans une cellule

[Pedro57]

bonjour le forum,

je voudrais savoir si il est possible de reporter le nom de l'onglet dans une cellule de la meme feuille ??

merci d'avance a tout le monde

 

[dg62]

Bonjour Pedro57


en vba,

Private Sub Worksheet_Activate()
Range('A1').Value = ActiveSheet.Name

End Sub

Alt f11 pour le VBE (visual basic editor)


feuil dans l'explorateur de projet, clic droit, code


coller le code

 

[Ashaar]

Bonjour,

On peut aussi faire ça en passant par une formule :

=STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+1;NBCAR(CELLULE('filename';A1))-TROUVE(']';CELLULE('filename';A1)))& ' '

Cdlt.

PS : Le & ' ' à la fin ne sert à rien, j'ai sottement recopié la formule sans l'adapter.

Message édité par: Ashaar, à: 17/05/2005 17:14

 

[Monique]

Bonjour,

Trois fois rien plus court :
=STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+1;32)

32, c'est le nb max de caractères du nom d'un onglet.
Pour que ça fonctionne, le classeur doit être enregistré.

 

[Ashaar]

Re,

Remplacer le calcul du nombre de caractère de l'onglet par la valeur max, fallait y penser.

Chapeau bas.

 

[Pedro57]

merci beaucoup a tous.
j ai choisi la formule de Monique , car le vba m'est totalement étranger, je suis novice
la formule marche tres bien

encor merci a tous pour votre aide, bonne journée