Discussion :

[chito79000]

Bonjour,

J'aimerais avoir une petite aide au sujet de mon code.

Ce code permet de lister les onglets. Cependant, je voudrais qu'il commence a lister qu'à partir de l'onget "Modèle"....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub lister()
Dim j As Integer
 
z = 4
For j = 1 To Sheets.Count
Cells(z, 5) = Worksheets(j).Name
z = z + 1
Next j
End Sub

[unparia]

Bonjour

je voudrais qu'il commence a lister qu'à partir de l'onget "Modèle"....

je crains que cela ne veuille pas dire grand-chose dans la mesure où les onglets peuvent à tout moment être déplacés (y compris par inadvertance/maladresse) et se retrouver donc avec un index autre que celui attribué à l'origine.
Tu peux cependant y parvenir sans complications, mais à condition de faire précéder leur nom d'un préfixe et d'attribuer des préfixes dans l'ordre alphabétique (il ne resterait alors plus qu'à les trier)

[halaster08]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub lister()
Dim j As Integer
 
z = 4
For j = Sheets("Modèle").index To Sheets.Count
Cells(z, 5) = Worksheets(j).Name
z = z + 1
Next j
End Sub

[joe.levrai]

Bonjour,

très astucieux de boucler à partir de l'index de la feuille Modele

mais attention, tester au préalable son existence ne sera pas du luxe

et surtout, traiter la collection Sheets OU la collection Worksheets, mais ne pas hybrider les deux

[unparia]

Quid si (comme je l'ai évoqué dans mon message plus haut), les onglets sont déplacés (par inadvertance ou maladresse) ?
L'ordre des index s'en trouvera modifié et lister à partir de l'index de l'un d'entre eux ne donnera alors pas le résultat souhaité.

Prendre alors au moins (si cette solution est retenue) la précaution d'empêcher de tels déplacements (en masquant, par exemple, la barre des onglets).

[joe.levrai]

J'ai peut-être mal compris le problème.
C'est ainsi qu'il faut procéder, si son souhait est TRES exactement de "lister les feuilles situées après la feuille X, à un instant T".

Quoi qu'il en soit, la fatigue n'est jamais bon amie, je me rend compte que boucler sur toute la collection ou en partant de la feuille en question, ça revient un peu au même au final. On y gagne quelques éventuelles feuilles non testées mais au prix d'un test d'existence.

Je laisse quand même mon pour la note artistique

[halaster08]

mais attention, tester au préalable son existence ne sera pas du luxe

En effet, mais vu la demande j'avais supposé qu'elle existe forcément.

et surtout, traiter la collection Sheets OU la collection Worksheets, mais ne pas hybrider les deux

J'ai recopié son code j'ai juste changé la partie en gras, je n'avais pas vu ce détail

[RyuAutodidacte]

Bonjour,
Autre solution (non testé : sur mon phone), car apparemment on ne liste pas tous les onglets …
On récupère l'index de la feuille modèle puis on boucle à partir de son index to sheets.Count
Schématiquement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub lister()
Dim j As Integer
'Ici Récupération de l'index de la feuille modèle (j'ai pas le code en tête) 
z = 4
For j = indexDeMaFeuilleModele To Sheets.Count
Cells(z, 5) = Worksheets(j).Name
z = z + 1
Next j
End Sub