Initialiser UserForm et ComboBox dans une macro

Bonjour à tous,

après bien des recherches, je n'ai pas trouvé la solution de mon problème, malgré les nombreuses aides déjà données sur le sujet un peu partout sur internet.

Pour faire simple, j'ai besoin d'ouvrir une fenêtre qui va me permettre de sélectionner une feuille d'un classeur pour en récupérer le nom. Cela, au sein d'une macro. Je voulais donc faire une combobox pour lister les feuilles. Mais impossible de faire quoique ce soit désormais.

Dans ma Macro :

Code:

---

1 2 3

If varTemp = False Then ChoixFeuille.Show End If

---

J'ai un message d'erreur qui me dit : propriété ou méthode non géré par l'objet. Ma Userform s'appelle bien ChoixFeuille... Et se trouve bien dans le même classeur que ma macro.

Ensuite, j'essaye de remplir la combobox, dans le code de la userform j'ai donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize()   Dim Feuille As Worksheet Dim Classeur As Workbook   Workbook = ActiveWorkbook For Each Feuille In Classeur.Feuille ComboBox_Classeur.AddItem Feuille.Name Next Feuille   End Sub

---

Mais là encore, je ne suis pas tellement sur du truc...

Merci par avance de votre aide !! :)


Phifou

Bonjour,

L'erreur vient de là :

Code:

---

1 2	Workbook = ActiveWorkbook

---

au lieu de :

Code:

---

1 2	Set Classeur = ActiveWorkbook

---

Hervé.

Et aussi :

Code:

---

1 2	For Each Feuille In Classeur.Worksheets

---

Hervé.

Merci beaucoup. J'ai corrigé ces deux erreurs, mais la macro ne veux toujours pas s’exécuter.

le

Code:

---

ChoixFeuille.show

---

ne marche pas... Toujours la même erreur...

Merci pour les réponses, pour ce qui est du lancement de ma userform, ça ne fonctionnait pas car j'avais mal appelé ma combobox, donc de l'erreur bête et stupide.

Merci pour a réponse. ;)

quel est ton code en entier?

Hum, si tu parle pour initialiser ma Userform, voici :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() Dim wb As Workbook   For Each wb In Workbooks ComboBox_Classeur.AddItem wb.Name   Next wb   End Sub

---

Si c'était pour m'aider, merci à toi, mais tout fonctionne désormais. ;)