VBA: remplir combobox à partir d'une colonne [Résolu/Fermé]

Signaler
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
-
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
-
Bonjour,

Je veux remplir le combobox dans l'userform à partir d'une colonne et j'utilise ce code


Private Sub UserForm_Initialize()
Dim i As Long

  For i = 2 To 20
      ComboBox1.AddItem Sheets("ListOfParameters").Cells(i, 1)
Next i

UserForm1.Show

End Sub



il y une erreur 'Objet requis' qui apparait, je ne comprends pas la cause de cette erreur

Merci de votre aide
Cord,
alena

6 réponses

Messages postés
23622
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 novembre 2020
6 451
Bonjour,

ou bien :
Private Sub UserForm_Initialize()
    ComboBox1.List = worksheets("Feuil1").Range("A2:A20").Value
End Sub

eric
11
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
15413
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 novembre 2020
1 394
Bonjour,
Quand vous avez l'erreur, click sur debugage: sur quelle ligne s'arrete le programme?????
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
2
C'arrete sur la ligne ComboBox1.AddItem Sheets("ListOfParameters").Cells(i, 1)
Messages postés
15413
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
10 novembre 2020
1 394
Bonjour a vous tous et toutes,

Votre feuille de calcul a bien le nom que vous avez ecrit: Sheets("ListOfParameters")?????

Votre combobox s'appelle bien Combobox1???????
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 506
Bonjour,

Essayez ceci :

Private Sub UserForm_Initialize() 
Dim i As Long 
With Sheets("ListOfParameters") 
  For i = 2 To 20 
      ComboBox1.AddItem .Cells(i, 1) 
  Next i 
End With 
End Sub



Cordialement,
Franck P
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
2
J'essayé votre code mais ca tojours marche pas
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
2
Merci eric, mais le pb se persiste. Ou est-ce que il faut que je places le code dans le ThisWorkbook ou Module?
Messages postés
12186
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 octobre 2020
2 506
Dans le module de l'Userform.........
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
2
Merci, ca marche maintenent!
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
2
Bonjour,

Merci pour toutes vos essaies. Voici le document peut etre ca nous aidera
https://www.cjoint.com/?BKinIGi8Hph

Cord,
alena
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
2
Merci à tous. L'erreur ka ete que j'avais mis le code dans le module et il faullait le mettre dans le code d'userforme.