reprendre l'ensemble des noms des feuilles d'un classeur

  • Initiateur de la discussion Initiateur de la discussion akyare
  • 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 !

akyare

XLDnaute Nouveau
Bonsoir,

Est-il possible dans une feuille excel de reprendre l'ensemble des noms des feuilles d'un classeur ?

Si j'ai dans un classeur 20 feuilles, la première se nomme "jeux", le deuxième "hobby", la 3ème "vacances" et ainsi de suite, je veux avoir sur une feuille à la cellule A1: "jeux", à la cellule A2: "hobby", etc...
Et il faut aussi que si je décide de changer le nom d'une feuille, en relançant la macro la mise à jour se fait aussi...

Est-ce que c'est faisable ?
 
Re : reprendre l'ensemble des noms des feuilles d'un classeur

Merci à toi aussi Boisgontier.

J'ai encore une autre demande...

J'aimerais ,que sur la feuille qui reprend tous les noms des feuilles, qu'en clickant sur le nom (dans la cellule A1 par exemple) je sois dirigé directement dans la feuille correspondant.

En clair qu'il y ait un lien (ou hyperlien)...

J'espère que vous avez compris ma requête 🙂
 
Re : reprendre l'ensemble des noms des feuilles d'un classeur

Bonsoir,


Code:
Affiche un sommaire avec hyperliens
La maj est automatique si une feuille est ajoutée

Private Sub Worksheet_Activate()
    Range("C6").Select
    Range(ActiveCell, [C65000].End(xlUp)).ClearContents
    For i = 2 To Sheets.Count
      nf = Sheets(i).Name
      ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & _
         nf & "'" & "!A1", TextToDisplay:=nf
      ActiveCell.Offset(1, 0).Select
    Next i
End Sub



JB
Formation Excel VBA JB
 

Pièces jointes

- 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

Réponses
12
Affichages
629
Retour