I
isabelle lesage
Guest
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
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