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
Afficher la suite

6 réponses

Réponse 1 / 6
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
Merci

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

CCM 60511 internautes nous ont dit merci ce mois-ci

Réponse 2 / 6
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?????
Signaler
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)
Signaler
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???????
Réponse 3 / 6
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
Signaler
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
Réponse 4 / 6
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?
Signaler
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.........
Signaler
Messages postés
23
Date d'inscription
lundi 23 juillet 2012
Statut
Membre
Dernière intervention
6 mai 2015
 2
Merci, ca marche maintenent!
Réponse 5 / 6
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
Réponse 6 / 6
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.
Posez votre question