Listbox nom des feuilles

[isabelle lesage]

Bonjour,
J'avais reçu cette méthode qui m'as super bien aidée, mais peut on choisir les feuilles soit la 1, la 7 et la 10 sans imposé les feuilles a ne pas affichées.
Merci
Isabelle

Salut Isabelle, salut le forum

J'ai utilisé la méthode de Christophe que j'ai modifié :

Dim Sh As Worksheet
Dim x As Integer
For x = 1 To 50 'à adapter selon ton cas
Set Sh = Sheets(x)
ListBox1.AddItem Sh.Name
Next x

Si tu veux ne pas afficher la feuille 25 (par exemple) dans l'intervalle, tu peux dans ce cas rajouter :

Dim Sh As Worksheet
Dim x As Integer
For x = 1 To 50
If x = 25 Then GoTo fin
Set Sh = Sheets(x)
ListBox1.AddItem Sh.Name
fin:
Next x

mais il te faudra un If...Goto fin pour chaque feuille de l'intervalle que tu ne voudras pas afficher.


J'espère que cela pourra t'aider.

À plus,

Robert

 

[K@d]

Bonjour,

je ne comprends pas tout mais apparement tu veux lister les noms de certaines feuilles spécifiques et pas d'autres... En reprenant le code ci-dessus :

Dim ShName as string
Dim x As Integer

'pour toutes les feuilles du classeur
For x = 1 To thisworkbook.sheets.count

ShName=sheets(i).name

'en fonction du numéro de la feuille
Select case x

'si égal à 1, 7 ou 10 (etc...) on ajoute le nom de la feuille
Case 1,7,10
ListBox1.AddItem ShName

End select

Next x

C'est ce qu'il te fallait ?

Clément

 

[K@d]

Oups...
Il fallait lire sheets(x).name

 

[isabelle lesage]

ok merci,
je vais me servir des deux versions car cela m'arrange le mieux pour mon travail, car il me faut minimum 600 pages et donc avec les num, c'est un peu plus simple et comme cela j'apprend aussi comment en réalisé pour d'autre prog excel
je vous remercie encore de l'aide
Merci
Isabelle