Option Explicit
Dim a, d1, clé, c
Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" Then
Set d1 = CreateObject("Scripting.Dictionary")
clé = UCase(Me.ComboBox1) & "*"
For Each c In Sheets("Waypoints").[Tableau1[name]]
If UCase(c) Like clé Then d1(c.Value) = ""
Next c
Me.ComboBox1.List = d1.keys
Me.ComboBox1.DropDown
[G5] = Me.ComboBox1
End If
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.List = Sheets("Waypoints").[Tableau1[name]].Value
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.List = Sheets("Waypoints").[Tableau1[name]].Value
Me.ComboBox1.DropDown
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox2 <> "" Then
Set d1 = CreateObject("Scripting.Dictionary")
clé = UCase(Me.ComboBox2) & "*"
For Each c In Sheets("VOR").[Tableau2[VOR]]
If UCase(c) Like clé Then d1(c.Value) = ""
Next c
Me.ComboBox2.List = d1.keys
Me.ComboBox2.DropDown
[G13] = Me.ComboBox2
End If
End Sub