comment remplir un combobox à partir d'un colonne Fermé

Question

Bonjour, 

j'ai la colonne A est rempli de A1 jusqu'a A1000 sur la feuil2

sur la feuil1 j'ai créer j'ai bouton qui affiche un userform qui porte un combobox (type zone de liste modifiable ) 

ce combobox doit contenir les données de colonne A ; j'ai lancé ce code pour le combobox :


Private Sub UserForm1_Initialize()

    ComboBox1.List = Worksheets("Feuil2").Range("A2:A20").Value
End Sub


le pb : je ne trouve pas les données sur la combobox.

merci de m'aider

eriiic · Answer

Bonjour,

La syntaxe est correcte. Il faudrait mettre ta ligne de code dans un Sub que tu appelles.
Et pour l'initialiser à l'ouverture la mettre dans Private Sub Workbook_Open()

Sinon merci de déposer le fichier xls (réduit au nécessaire et anonymisé) sur cjoint.com et coller ici le lien fourni.

eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(devise Shadok)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

senecartour · Answer

Bonjour, 
Il faut plutôt utiliser la propriété RowSource. Cela devrait marcher!

Private Sub UserForm1_Initialize() 
ComboBox1.Rowsource = Worksheets("Feuil2").Range("A2:A20").Value 
End Sub 

Merci de nous tenir au courant!

dalibma · Answer

Bonjour;
ceci mon classeur;



https://www.cjoint.com/?DCFrdRDN4UN 

merci pour votre collaboration

foo · Answer

Bonjour

Voila le code 

Private Sub UserForm_Initialize()
    With Feuil2
      For L = 2 To .Range("A" & Rows.Count).End(xlUp).Row
         ComboBox1.AddItem .Range("A" & L)
         ComboBox2.AddItem .Range("B" & L)
      Next
   End With
End Sub

A+
Maurice

eriiic · Answer

Je croyais que ton combo était sur la feuille et pas dans un formulaire.
Met-toi dans Activate qui est appelé à chaque fois :
Private Sub UserForm_Activate()
    ComboBox1.List = Worksheets("Feuil2").Range("A2:A20").Value
End Sub
Il vaut mieux préférer .List à .rowsource

eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(devise Shadok)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Comment remplir un combobox à partir d'un colonne

5 réponses

Discussions similaires