Remplir un ComboBox avec AddItem

[jpoldeux]

Bonjour,
Quelle erreur m'empêche de remplir le ComboBox du fichier joint ?
Merci de me décoincer.
Jean

 

[grisan29]

Re : Remplir un ComboBox avec AddItem

bonjour jpoldeux
tu rajoutes cette ligne avant le

end sub

ComboBox1.ListIndex = 0

Pascal

 

[Paritec]

Re : Remplir un ComboBox avec AddItem

bonsoir Jpoldeux grisan le forum
je ne sais pas si j'ai compris la demande car les deux messages là
bref ton fichier avec un exemple
avec effectivement si tu veux que après le remplissage du combobox s'affiche une ligne l'instruction de grisan
a+
Papou😱

 

[jpoldeux]

Re : Remplir un ComboBox avec AddItem

Excusez-moi pour le dérangement. J'ai en fait une liste à afficher dans la fenêtre du contrôle et je dois utiliser ListBox : j'ai confondu la liste déroulante de ComboBox avec l'ascenseur de ListBox ...
Merci de votre grande réactivité qui m'a permis de mieux réfléchir et de ne pas rester idiot trop longtemps.
A+. Jean

 

[Si...]

Re : Remplir un ComboBox avec AddItem

salut

quel dérangement ?
Comme tu peux le constater chacun interprète à sa façon la demande et plus celle-ci est vague, plus il y a de réponses.
Pour moi et avec ce que je crois comprendre : il y a plusieurs façons d’initialiser une liste déroulante (ou pas).

Si les items ne sont pas sur une feuille et peu nombreux :

Private Sub UserForm_Initialize()
    ListBox1.AddItem "toto"
    ListBox1.AddItem "titi"
    ListBox1.AddItem "tutu"
End Sub

ou

Private Sub UserForm_Initialize()
    ListBox1.List = Array("toto", "titi", "tutu")
End Sub

Si les items sont sur une feuille, en colonne et non dispersés (ici, plage B2 : B5 de Feuil1)*

Private Sub UserForm_Initialize()
  Dim n as byte ‘ou long selon la taille
  For n = 2 To 5
      ListBox1.AddItem Feuil1.Cells(n, "B")
   Next
End Sub

ou

Private Sub UserForm_Initialize()
  Dim R as range
  For each R in Feuil1.[B2:B5]
      ListBox1.AddItem R
   Next
End Sub

ou

Private Sub UserForm_Initialize()
   ListBox1.List = Feuil1.[B2:B5].Value
End Sub

*après (en ligne, dispersés, sans doublon …) cela se complique