VBA : Utiliser les N° de Feuille plutôt que leurs noms d'onglet Fermé

Question

Bonsoir,
Je souhaiterai remplace le nom des onglets par leur n° de feuille.
En vue d’ajouté une dizaine de feuille.
Je ne trouve pas la bonne syntaxe.
Merci à vous pour votre aide.

Private Sub UserForm_Initialize()Dim S As Worksheetsh = Array("Index", "Paramètre")       ’Remplacer : Index par Feuil9, Paramètre par feuil8 etc…ListBox1.MultiSelect = fmMultiSelectExtendedFor Each S In Worksheetst = Application.Match(S.Name, sh, 0)    If IsError(t) Then        ListBox1.AddItem S.Name    End IfNextTextBox1 = 0End Sub

Frenchie83 · Answer

Bonsoir,

Essayez ceci pour récupérer le code de la feuille "Index"
NomFeuil = Worksheets("Index").CodeName

A adapter

Cdlt

hokousai · Answer

Bonsoir Frenchie83,

le numéro de feuille je le connais, c'est feuil9

eriiic · Answer

Bonjour,

pas bien clair tout ça.
Le n° de feuille c'est .Index, c'est un nombre qui dépend de la position de la Feuille...
Elle désignée également par son nom et son codename (montré par Frenchie)
Si tu pouvais corriger ton titre pour ceux qui font une recherche avant de demander stp.
On ne peut utiliser un codename qu'en l'écrivant directement. Il n'est pas dans une collection. Donc l'utiliser dans une boucle, c'est mort...
Par contre tu peux boucler sur toutes les feuilles et contrôler son codename dedans.
eric

VBA : Utiliser les N° de Feuille plutôt que leurs noms d'onglet

3 réponses

Discussions similaires