Combobox remplie avec une recherche

[flobzh]

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

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

 

[fhoest]

Re : Combobox remplie avec une recherche

Bonjour,
Test:

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 OR Cx.Address <> firstAddress
End sub

A+