[VBA E] nom de feuille dans une combobox

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

Code:

---

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 :roll:

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:

---

1 2 3 4 5

Dim Feuille As Worksheet For Each Feuille In ThisWorkbook.Worksheets   ComboBox1.AddItem Feuille.Name Next

---

:roll:

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

je suppose que tu plaisantes :

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:

---

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

Citation:

---

Envoyé par zoumzoum59

... 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)

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 ?

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

J'avais la reponse dans ma question:

Code:

---

1 2 3 4 5

Dim Feuille As Worksheet For Each Feuille In ActiveWorkbook.Worksheets   ComboBox1.AddItem Feuille.Name Next

---

Merci pour tout.

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

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

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

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

Code:

---

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

---