Affichage du nom de feuille

Le
ple_ain
Bonjour,

Existe-t-il une fonction, ou une autre méthode, pour afficher
le nom de la feuille (nom de l'onglet) dans une cellule de cette feuille ?

Merci bien pour toute réponse.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #4481531
Re bonjours
Ma réponse dans ton premier post :

Salut à toi
Je te propose cette macro à inclure dans ThisWorkbook :

Private Sub Workbook_Open()
For I = 1 To Sheets.Count
Sheets(I).Range("A1") = Sheets(I).Name
Next
End Sub

A l'ouverture de ton document tu auras le nom de chaque onglet dans la
cellule A1 de chacun d'entre eux

Celà te convient-il ???
Dis moi !!!!



Bonjour,

Existe-t-il une fonction, ou une autre méthode, pour afficher
le nom de la feuille (nom de l'onglet) dans une cellule de cette feuille ?

Merci bien pour toute réponse.





ple_ain
Le #4481521
Bonjour et merci pour la réponse.

Effectivement la macro s'exécute à l'ouverture du classeur
mais j'ai l'erreur "variable non définie".
Ne connaissant rien au VB, je cherche une solution par les formules...

Merci


"FFO"
Re bonjours
Ma réponse dans ton premier post :

Salut à toi
Je te propose cette macro à inclure dans ThisWorkbook :

Private Sub Workbook_Open()
For I = 1 To Sheets.Count
Sheets(I).Range("A1") = Sheets(I).Name
Next
End Sub

A l'ouverture de ton document tu auras le nom de chaque onglet dans la
cellule A1 de chacun d'entre eux

Celà te convient-il ???
Dis moi !!!!



Bonjour,

Existe-t-il une fonction, ou une autre méthode, pour afficher
le nom de la feuille (nom de l'onglet) dans une cellule de cette feuille
?

Merci bien pour toute réponse.







FFO
Le #4481481
Je n'ai pas du tout cette anomalie, je viens de reessayer
As tu bien pris tout le code ???

Si oui je te propose afin de ne pas renouveler les essais en fermant et
reouvrant ton document un peu contraignant d'inclure dans une macro la partie
centrale du code :

For I = 1 To Sheets.Count
Sheets(I).Range("A1") = Sheets(I).Name
Next

d'executer la macro et au message d'erreur de faire Debogage et de me
communiquer la partie surlignée en jaune afin que je cerne la difficulté

Merci à toi


Bonjour et merci pour la réponse.

Effectivement la macro s'exécute à l'ouverture du classeur
mais j'ai l'erreur "variable non définie".
Ne connaissant rien au VB, je cherche une solution par les formules...

Merci


"FFO"
Re bonjours
Ma réponse dans ton premier post :

Salut à toi
Je te propose cette macro à inclure dans ThisWorkbook :

Private Sub Workbook_Open()
For I = 1 To Sheets.Count
Sheets(I).Range("A1") = Sheets(I).Name
Next
End Sub

A l'ouverture de ton document tu auras le nom de chaque onglet dans la
cellule A1 de chacun d'entre eux

Celà te convient-il ???
Dis moi !!!!



Bonjour,

Existe-t-il une fonction, ou une autre méthode, pour afficher
le nom de la feuille (nom de l'onglet) dans une cellule de cette feuille
?

Merci bien pour toute réponse.












AV
Le #4481361
Existe-t-il une fonction, ou une autre méthode, pour afficher
le nom de la feuille (nom de l'onglet) dans une cellule de cette feuille ?


=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)

AV

Francois L
Le #4480971
Bonjour et merci pour la réponse.

Effectivement la macro s'exécute à l'ouverture du classeur
mais j'ai l'erreur "variable non définie".
Ne connaissant rien au VB, je cherche une solution par les formules...


Bonjour,

Il n'y aurait pas un
Option Explicit
quelque part ?

Essaie avec ce code...
Private Sub Workbook_Open()
Dim i As Integer '** a rajouter
For i = 1 To Sheets.Count
Sheets(i).Range("A1") = Sheets(i).Name
Next
End Sub

--
François L

Publicité
Poster une réponse
Anonyme