Discussion :

[Phifou]

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 :

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

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 :

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

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

[Theze]

Bonjour,

L'erreur vient de là :

Code :

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

1
2
 
Workbook = ActiveWorkbook

au lieu de :

Code :

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

1
2
 
Set Classeur = ActiveWorkbook

Hervé.

[Theze]

Et aussi :

Code :

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

1
2
 
For Each Feuille In Classeur.Worksheets

Hervé.

[Phifou]

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

le

Code :

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

ChoixFeuille.show

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

[Phifou]

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.

[bboy-eazy]

quel est ton code en entier?

[Phifou]

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

Code :

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

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.