optimisation combobox

[moutchec]

bonjour le forum,
bonjour à tous,
je cherche de l'aide pour optimiser le 'dropdown' de la liste déroulante de ma combobox qui se met en route quelquefois de façon inopportune. j'en ai besoin pour faire un choix rapide dès le début de la saisie.
code : Me.CmbB_Code_Produit.DropDown
est-il possible de conditionner le déclenchement du 'dropdown' à la saisie d'au moins un caractère dans le combobox?
merci d'avance.
Moutchec.

 

[Lone-wolf]

Bonjour Moutchec, le Forum

Un exemple pris chez Jacques Boisgontier.

Private Sub ComboBox1_Change()
  If Me.ComboBox1 <> "" Then
    Set d1 = CreateObject("Scripting.Dictionary")
    tmp = UCase(Me.ComboBox1) & "*"
    For Each c In Sheets("BD").[liste]
      If UCase(c) Like tmp Then d1(c.Value) = ""
    Next c
    Me.ComboBox1.List = d1.keys
    Me.ComboBox1.DropDown
    [e2] = Me.ComboBox1
  End If
End Sub