Titre d'une feuille dans une cellule en VBA

  • Initiateur de la discussion Initiateur de la discussion Milan
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Milan

XLDnaute Nouveau
Bonjour,
J'utilise le code VBA ci-dessous pour afficher le nom de la feuille dans une cellule pour toutes les feuilles d'un classeur.

Private Sub Worksheet_Activate()
Dim sh As Worksheet

For Each sh In Worksheets
sh.Range("G2") = sh.Name
Next
End Sub

Le code fonctionne bien, mais je veux que le nom de la dernière page ne s'affiche pas.
Est-ce qu'il est possible de le faire et est-ce-que qq'un pourrait m'envoyer ce code(j'ai un rajout de feuilles dynamique) ??

Merci
 
Par contre ton code ne fonctionne pas correctement dans mon fichier.
et je suis censé deviner ce qui ne fonctionne pas??

le besoin exprimé c'est: mettre le nom de la feuille en G2 sauf pour la dernière feuille
dans ton fichier. la dernière.. c'est la feuille "Test"....

le besoin ne serait il pas plutot:
mettre le nom de la feuille en G2 SAUF pour la feuille Cover.??


VB:
Sub ListeSaufCover()
For Each ws In Worksheets
    If ws.Name <> "Cover page" Then ws.Range("G2") = ws.Name
Next ws
End Sub
 
Bonjour zebanx
Une fonction dans la cellule ne fonctionne pas correctement quand j'ajoute des pages avec un code VBA.

Vgendron
C'est tout bon, j'avais pas mis la bonne condition d'activation de ce code. le premier code que tu m'avais envoyé fonctionne bien.

Merci à tous les deux
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour