Discussion :

[rampage92]

Bonjour à tous,

Une question très simple mais je ne trouve pas la réponse...
Je souhaite afficher le menu déroulant d'une combobox des que je tape la premiere lettre de ma recherche dans ma combobox. Jusqu'a maintenant je dois commencer a taper puis a cliquer sur le dropbutton a droite pour afficher le menu déroulant.
Auriez vous la solution ?
merci d'avance

[unparia]

Bonjour
tu veux finalement dérouler la combobox dès que tu frappes dans sa zone d'édition ? --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboBox1_Change()
 ComboBox1.DropDown
End Sub

[boisgontierjacques]

Bonjour,

Faire une recherche Google : Excel recherche intuitive combobox

https://www.google.fr/url?sa=t&rct=j...qsZh3UQTDxWg0j

En PJ, un exemple de recherche de ville(35.000) en frappant les premières lettres.
La liste se réduit au fur et à mesure de la frappe des premières lettres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim choix1()
Private Sub UserForm_Initialize()
  choix1 = [villes].Value
  cp = [cp].Value
  Me.ComboBox1.List = choix1
End Sub
 
Private Sub ComboBox1_Change()
 If Me.ComboBox1.ListIndex = -1 And IsError(Application.Match(Me.ComboBox1, choix1, 0)) Then
  Set d1 = CreateObject("Scripting.Dictionary")
  tmp = UCase(Me.ComboBox1) & "*"
  For Each c In choix1
    If c Like tmp Then d1(c) = ""
  Next c
  Me.ComboBox1.List = d1.keys
  Me.ComboBox1.DropDown
 Else
  p = Application.Match(Me.ComboBox1, choix1, 0)
  Me.TextBox1 = Range("cp")(p)
 End If
End Sub
 
Private Sub CommandButton1_Click()
  ActiveCell = UCase(Me.ComboBox1)
  ActiveCell.Offset(, 1) = Me.TextBox1
  Unload Me
End Sub
 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then CommandButton1_Click
End Sub

Boisgontier