Lister toutes les feuilles du classeur dans un userform

T

TOINE38

XLDnaute Occasionnel

• 9 Janvier 2011

• #2

Re : Lister toutes les feuilles du classeur dans un userform

Oups petite erreur , ce n'est que les 3 premières qui ne doivent pas s'afficher.

Merci
Toine38

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Janvier 2011

• #3

Re : Lister toutes les feuilles du classeur dans un userform

Bonjour Toine,


en pièce jointe, un exemple à adapter

à+
Philippe

 

Pièces jointes

• 111.zip

  17.3 KB · Affichages: 163
• 111.zip

  17.3 KB · Affichages: 160
• 111.zip

  17.3 KB · Affichages: 176

Dernière édition: 9 Janvier 2011

Vote positif 0 Vote négatif

T

TOINE38

XLDnaute Occasionnel

• 10 Janvier 2011

• #4

Re : Lister toutes les feuilles du classeur dans un userform

Merci philippe,

J'ai réussi à composer un bout de code en faisant des recherches sur le forum, mais je n'arrive pas à le modifier afin que les 3 premières feuilles ne s'affichent pas dans la liste.
ci dessous le code créé:

Private Sub UserForm_Initialize()
Dim temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next i
Me.ComboBox1.List = temp
Me.ComboBox1.ListIndex = 0
End Sub

Si quelqu'un à une suggestion ?

Merci par avance
Toine 38

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 11 Janvier 2011

• #5

Re : Lister toutes les feuilles du classeur dans un userform

Re,

avec ceci:

Code:

Private Sub UserForm_Initialize()
Dim temp()
For i = 4 To Sheets.Count
ReDim Preserve temp(4 To i)
temp(i) = Sheets(i).Name
Next i
Me.ComboBox1.List = temp
Me.ComboBox1.ListIndex = 0
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

T

TOINE38

XLDnaute Occasionnel

• 12 Janvier 2011

• #6

Re : Lister toutes les feuilles du classeur dans un userform

Bonsoir,

Merci philippe, sa fonctionne nickel.
C'est super sympha

Toine

 

Vote positif 0 Vote négatif