Discussion :

[zoumzoum59]

Bonjour

Je cherche une solution pour recuperer les noms des feuilles d'un classeur Excel et de les mettre dans un combobox.

j'ai fait des recherches mais j'ai riens trouvé jusque là pourtant ça a du deja etre posé comme question !

Donc si quelqu'un peut m'aider

[ThierryAIM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Feuille As Worksheet
    For Each Feuille In ThisWorkbook.Worksheets
        Debug.Print Feuille.Name
    Next

A toi de jouer pour remplir la combo (je ne sais pas ou elle se trouve, et le code est différent, suivant si elle est sur une feuille ou une UserForm)



et à mon avis, tu n'as pas du chercher bien longtemps

[zoumzoum59]

merci ThierryAIM

Mais ton code me renvoie toujours la meme valeur "feuil1", mais il n'y a aucune feuil1 dans mon classeur.

sinon le code que j'ai est celui ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
 
    ComboBox1.AddItem Feuille.Name
Next

[ThierryAIM]

[jmfmarques]

Ah.....
Voilà que nous découvrons que Feuille.Name génère "Feuil1" qui n'existe pas (il est fort, ce M. VB... )

[ThierryAIM]

je suppose que tu plaisantes :

[zoumzoum59]

non je ne pense pas plaisanter j'essaie d'etre le plus serieux possible sur le forum surtout que je me sens tout petit par rapport à beaucoup de personne.

avec mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Activate()
 
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
 
    ComboBox1.AddItem Feuille.Name
Next
 
End Sub

j'obtiens bien uniquement feuil1

Merci

modéré par Thierry