RechercheV et Combobox

[kinkalero]

Bonjour,
Je sait que le sujet à été plusieurs fois abordé, mais je ne trouve pas la solution, je m'explique:
J'ai un userform avec des textbox et combobox, je désire remplir une combobox à l'aide d'une base de donnée située sur une feuille cachée...

J'ai essayé la formule suivante:

Private Sub ComboBox2_Change()
With Sheets("list")
ligne = .Range("annu").Find(ComboBox2).Row
End With
End Sub

mais sa ne fonctionne pas.
Qlq connait la solution svp?
Merci

 

[porcinet82]

Re : RechercheV et Combobox

Salut kinkalero,

De ce que j'ai compris, le code suivant devrait fonctionner (je suppose ici que tes données sont dans la colonne A, a partir de la ligne 1 de la feuille list) :

Private Sub ComboBox2_DropButtonClick()
ComboBox2.Clear
With Sheets("list")
    For i = 1 To .Range("A65536").End(xlUp).Row
        ComboBox2.AddItem (.Cells(i, 1).Value)
    Next i
End With
End Sub

@+

 

[kinkalero]

Re : RechercheV et Combobox

Merci sa marche nikel!!!^^