liste d'onglet

[bobjazz]

Bonjour le Forum
Je voudrais avoir une feuille qui m'affiche tous les noms des autres feuilles qui sont suceptiles de bouger, soit en nom, soit en nombre du même classeur. j'ai fait une recherche, mais cela ne colle pas.

Merci et encore Bonnes Fêtes

Bobjazz

 

[Temjeh]

Re : liste d'onglet

Bonjour

Si j'ai bien compris ceci liste tes feuilles en col A:

Dim n As Byte
For n = 2 To Sheets.Count
Range("A" & n - 1) = Worksheets(n).Name
Next n


La feuille récapitulation doit être la première car n = 2 To Sheets.Count la pass

A+

Temjeh

 

[Dan]

Re : liste d'onglet

Bonjour Bobjazz,

J'espère que tu vas bien.

Vois ce lien dans lequel notre ami Ti avait réalisé une macro sur ce sujet --> VeriTi V 3, le site des amis d'Excel et OOo - Feuille - Afficher nom feuille

A te lire

Edition : Désolé Temjeh. Je pense que la macro que tu proposes correspond encore mieux à cette demande.

 

[bobjazz]

Re : liste d'onglet

Bonjour Temjeh et Dan

j'ai oublié le site de Veriti
Sinon Temjeh, je ne vois pas ce que tu veux dire, excuse

Merci robert

 

[Dan]

Re : liste d'onglet

Re,

Bobjazz, la macro de temjeh va te mettre dans la colonne A de la feuille 1 toutes les feuilles de ton classeur. La première feuille ne sera, quant à elle, pas mentionnée.

A bientôt

 

[Temjeh]

Re : liste d'onglet

Rebonjour

Ce que je veut dire??

Ce code (macro) fait ce que tu demande! ...voir zip

Ptêtre que tu le veut automatique alors met le dans la feuil sous sélectionchange

A+

Temjeh

 

[bobjazz]

Re : liste d'onglet

Re Bonjour Dan

Je viens de voir ton lien
mon but, c'est d'afficher en temps réel les noms de chaques feuilles dans une feuille, la premiere qui liste les autres
exempple dans mon fichier
Merci à vous Temjeh et Dan

Bobjazz

 

[bobjazz]

Re : liste d'onglet

Re Bonjour Temjeh

Merci, il se met à jour

Passe de Bonnes Fêtes

Bobjazz

 

[bobjazz]

Re : liste d'onglet

Excuse Temjeh
Est il possible de mettre le lien dans la colonne A dans chaque nom pour allez directement dans la feuille concerné

Merci de ta patience

Bobjazz

 

[Temjeh]

Re : liste d'onglet

Bonjour

Oui le code est:

Dim n As Byte
For n = 2 To Sheets.Count
Range("A" & n - 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Worksheets(n).Name & "!A1", TextToDisplay:=Worksheets(n).Name
Next n

Il sélectionne la cell A1

A+

Temjeh

 

[bobjazz]

Re : liste d'onglet

Re Bonjour Temjeh

Merci exactement ca que je voulais

Merci de ta patience

Passe de Bonnes Fêtes

Bobjazz

 

[papapaul]

Re : liste d'onglet

😎 Grace a xld j'ai un petit truc
C'est peut être pas ce que tu veux
Mais bon , y a des idées.
@+😉

 

[bobjazz]

Re : liste d'onglet

Bonjour papapaul

ce n'est pas exactement ce que je voulais, mais ton usf est interessant pour la suite que je veux donner à mon fichier

Merci à tout le monde

bobjazz

 

[papapaul]

Re : liste d'onglet

🙂 chu content de rendre service
Bonnes fêtes aux xldeurs🙄