listbox noms feuille

[isabelle lesage]

rebonjour

Chrisophe, tu m'as bien aidée, mais est-il possible de definir soit le nombre de feuilles ou donner un nombre de page defini soit de 1 à 50 et de 51 à 100, ou une autre façon de delimiter un certain nombre de feuille, peux tu encore m'aider, merci
Isabelle

Auteur: @Christophe@ (---.195-201-80.adsl.skynet.be)
Date: 24-08-04 19:14
Pièce jointe: ListboxFeuilles.zip (10k)

Bonsoir,

Voici une solution belge, lol

Bonne soirée

@Christophe@

 

[Robert]

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

 

[isabelle lesage]

ok, je vais essayer, je vous remercie beaucoup
merci a tous