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

[ThierryAIM]

... surtout que je me sens tout petit par rapport à beaucoup de personne.

la n'est pas la question, on est là pour t'aider, et on a tous débuter un jour

Mais je ne comprends pas ou est ton problème

Sous Excel 2003, le code que je t'ai donné marche bien (cf la copie d'écran)

[zoumzoum59]

je crois que je sais d'ou viens le problème ma user form ne fait pas parti du fichier excel, elle fait parti d'une macro complemetaire et donc avec la prorpriete ThisWorkbook la combobox maffiche le nom de la feuille unique de ma macro complementaire.

Comment je peux affecter le code au classeur qui est ouvert et actif au lieu d'utiliser ThisWorkbook ?

[zoumzoum59]

Je viens de trouver c'etait tout simple encore une fois.

J'avais la reponse dans ma question:

Code :

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

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

Merci pour tout.

[zoumzoum59]

J'ai une autre question qui decoule du code ci dessus.

Je voudrais savoir s'il est possible de ne pas afficher dans ma combobox les feuilles masquées ou autre solution de ne pas afficher la premiere feuilles (qui serait masquée).

Si quelqu'un peut me donner un petit coup de pouce pour modifier le code.

Merci

[SfJ5Rpw8]

un test sur feuille.visible te permet de savoir si la feuille est masquée ou pas

[zoumzoum59]

Merci bbil pour ton info apparement ça fonctionne voici mon code final.

Si quelque chose cloche merci de m'en faire part.

Code :

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

1
2
3
4
5
6
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Worksheets
    If Feuille.Visible Then
        NomFeuille.AddItem Feuille.Name
    End If
Next