Non onglet

job75

XLDnaute Barbatruc

• 29 Juin 2013

• #2

Re : Non onglet

Bonjour J.-P.,

Par exemple, exécuter :

Code:

Sub NomsFeuilles()
Dim T$(), n%
ReDim T(1 To Sheets.Count)
For n = 1 To Sheets.Count
  T(n) = Sheets(n).Name
Next
[A1].Resize(n - 1) = Application.Transpose(T)
End Sub

A+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 29 Juin 2013

• #3

Re : Non onglet

Hello,

Collez ce bout de code dans un CommandButton...

Code:

    Dim ws As Worksheet
    
    lign = 2
    
    For Each ws In Worksheets
        Cells(lign, 1).Value = ws.Name
        lign = lign + 1
    Next ws

La liste se fait en A2:Ax.


EDIT : Oups slt Job

 

Vote positif 0 Vote négatif

J

J.-P.

XLDnaute Occasionnel

• 29 Juin 2013

• #4

Re : Non onglet

Merci job 75 et Hulk pour solution mais je colle ou ce code dans WBA ?.
J.-P.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Juin 2013

• #5

Re : Non onglet

Bonjour.
Si vous joignez votre classeur au format .xls, je vous l'équipe d'une feuille "Aide" qui liste les feuilles, les noms et les macros contenus dans le classeur, avec une place à droite pour les descriptions

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 29 Juin 2013

• #6

Re : Non onglet

Bonjour à tous,

Tu colles ce ou ces codes dans un module standard et tu les appelles par Alt F8 ou par un bouton auquel tu auras affecté une des macros.



A+ à tous

 

Pièces jointes

• Modules_Module.png

  5.3 KB · Affichages: 41
• Modules_Module.png

  5.3 KB · Affichages: 40

Dernière édition: 29 Juin 2013

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Juin 2013

• #7

Re : Non onglet

Mais j'ai mal interprété la question on dirait… J'ai compris les noms de plages définis aux niveaux des feuilles. …Que ma feuille "Aide" liste aussi d'ailleurs. Et un clic dessus y aboutit. Pareil pour les noms et les macros.

 

Vote positif 0 Vote négatif