report du nom de l'onglet dans une cellule

dg62

XLDnaute Barbatruc

• 17 Mai 2005

• #2

Bonjour Pedro57


en vba,

Code:

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

 

Vote positif 0 Vote négatif

A

Ashaar

XLDnaute Junior

• 17 Mai 2005

• #3

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 17 Mai 2005

• #4

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é.

 

Vote positif 0 Vote négatif

A

Ashaar

XLDnaute Junior

• 17 Mai 2005

• #5

Re,

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

Chapeau bas.

 

Vote positif 0 Vote négatif

P

Pedro57

XLDnaute Nouveau

• 18 Mai 2005

• #6

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

 

Vote positif 0 Vote négatif