Bonjour a tous,
Je refait appeler a votre aide.
Je souhaite remplir une combobox après avoir fait une recherche.
Voici ce que j'ai essayer :
C_N_Court : colonne de la recherche
N_doc_Court : cellule a rechercher
Je refait appeler a votre aide.
Je souhaite remplir une combobox après avoir fait une recherche.
Voici ce que j'ai essayer :
C_N_Court : colonne de la recherche
N_doc_Court : cellule a rechercher
Code:
Private Sub Choix_Initialize()
Set Cx = Sheets("LISTE").Range("C_N_Court").Find(Range("N_doc_Court"), LookIn:=xlValues, lookat:=xlWhole)
firstAddress = Cx.Address
Do
Choix.Liste_Choix.AddItem Sheets("LISTE").Range("F" & Cx.Row)
Set Cx = Sheets("LISTE").Range("C_N_Court").FindNext(Cx)
Loop While Not Cx Is Nothing And Cx.Address <> firstAddress
End sub