Lister toutes les feuilles du classeur dans un userform

[TOINE38]

Bonjour

Pour mon appli, je cherche à afficher une liste de toutes les feuilles du classeur (exceptée les 32 premières) lorsque je clique sur un commandbutton.
Je souhaiterais aussi pouvoir en cliquant sur le nom de la feuille dans la liste crée
que celle ci s'imprime.

Etant vraiment au début de l'apprentissage en VBA, j'aurais besoin d'un petit coup de main

Merci par avance
Amicalement
Toine38

 

[TOINE38]

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

 

[phlaurent55]

Re : Lister toutes les feuilles du classeur dans un userform

Bonjour Toine,


en pièce jointe, un exemple à adapter

à+
Philippe

 

[TOINE38]

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

 

[phlaurent55]

Re : Lister toutes les feuilles du classeur dans un userform

Re,

avec ceci:

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

 

[TOINE38]

Re : Lister toutes les feuilles du classeur dans un userform

Bonsoir,

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

Toine