SAISIR DANS UNE COMBO BOX

'a ecrire dans le module.
Public sub SetTextCombo(combo1 as comboBox)
    dim pos,x as long
    pos=len(combo1.text)
    for x =0 to combo1.listcount-1
       if ucase(left(combo1.list(x),pos))=ucase(combo1.text) then
           combo1.text=Combo1.list(x)
       exit for
     end if
    next x
    combo1.selstart=pos
    combo1.sellength=len(combo1.text)-pos
end sub
'dans le formulaire sur l'evenement key up de la combo box
private sub combo1_keyup(keycode as integer,shift as integer)
   if keycode<>8 then
      call setTextCombo (combo1)
    end if
end sub
'le combo1 dans la procedure sur key up doit etre remplacer par le nom de la combo box sur laquelle on travaille