VBA:remplir combobox

[alainbreton]

bonjour a tous

j'ai un probleme je n'arrive pas a remplir un combobox

j'ai un code dans un module et a partir de ce code je voudrais mettre donnees cellules (ch1)dans un combo


For j = lig1 + 1 To lig1 + 500
If Left(Cells(j, 1), longch) = "" Then j = lig1 + 500
If ch = Left(Cells(j, 1), longch) Then
ch1 = (Cells(j, 1))............................................................>mettre ch1 dans combobox1????
'userform_initialize

j = lig1 + 500
End If

Next
End Sub


merci de m'aider

 

[camarchepas]

Re : VBA:remplir combobox

Bonsoir et Bienvenue Alain,

Donc ton code ne fonctionne pas certe ,

Pourrais tu mettre tout cela dans un fichier expérimental permettant de tester le fonctionnement .

J'ai l'impression à premiere vue que ton code est bien compliqué /

de base devrait fonctionner , aprés tout dépend du contexte

lignefin= range("A" & rows.count).end(xlup).row
combobox1.list = range("A1:A" & LigneFin).value