XL 2013 Liste intuitive qui "bug"

[degards]

Bonsoir à vous !!!

J'ai trouvé sur une page un code pour avoir une liste intuitive déroulante automatiquement et je l'ai adapté à ma feuille. Cependant lorsque je me mets à taper dans la combobox j'ai une demande de débogage qui apparait en me pointant la ligne suivante : Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)

Je ne sais pas pourquoi mais ça bug. LOL

voici le code au complet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([Aj4:j14], Target) Is Nothing And Target.Count = 1 Then
Set f = Sheets("Assignations")
a = Application.Transpose(f.Range("A2:A" & f.[A65000].End(xlUp).Row))
Me.ComboBox1.List = a
Me.ComboBox1.Height = Target.Height + 3
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1 = Target
Me.ComboBox1.Visible = True
Me.ComboBox1.Activate
Else
Me.ComboBox1.Visible = False
End If
End Sub

Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
End If
ActiveCell.Value = Me.ComboBox1
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1.List = a
Me.ComboBox1.Activate
Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub




Est-ce que quelqu'un à une idée

Merci beaucoup

Degards

 

[Compte Supprimé 979]

Salut Degards,

Pour moi c'est normal, car

Filter(a, Me.ComboBox1.Text, True, vbTextCompare)

est une fonction que tu n'as apparemment pas mis dans ton classeur

A+

 

[degards]

Merci de ton soutien mais je ne comprends pas ce que tu veux dire exactement. Et pourquoi le "true" est en bleu sur ton commentaire.

 

[Compte Supprimé 979]

Re,

Merci de ton soutien mais je ne comprends pas ce que tu veux dire exactement. Et pourquoi le "true" est en bleu sur ton commentaire.

C'est la mise ne page du site qui fait ça

La fonction est : Filter()
Donc c'est le code de cette fonction qu'il te faut également

 

[BOISGONTIER]

Bonsoir,

Filter() est une fonction standard (sauf sur MAC)

http://boisgontierjacques.free.fr/pages_site/tableaux.htm#Filtre

Boisgontier