XL 2016 filtrer dans textbox avec sans accent

[reve24]

Bonjour

Je cherche à modifier mon fichier

Dans mon textbox1 je filtre colonne A , textbox2 je filtre colonne B,

mais je souhaiterais que mon texbox ignore les accents .

Merci

Puis je ajouter ceci a mon code ? et comment

Function MajSansAccent(ByVal Chaine$)
Const VAccent = "àáâãäåéêëèìíîïðòóôõöùúûü", VSsAccent = "aaaaaaeeeeiiiioooooouuuu"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = UCase(Chaine)
End Function

 

[Robert]

Bonjour Reve, bonjour le forum,

Peut-être comme ça :

Option Compare Text
Private Sub TextBox1_Change()
  TextBox1.Value = MajSansAccent(TextBox1.Value)
  [A1].AutoFilter field:=1, Criteria1:=Me.TextBox1 & "*"
End Sub

Private Sub TextBox2_Change()
  TextBox2.Value = MajSansAccent(TextBox2.Value)
  [A1].AutoFilter field:=2, Criteria1:=Me.TextBox2 & "*"
End Sub
Sub annule()
ActiveSheet.ShowAllData
End Sub

Function MajSansAccent(ByVal Chaine$)
Const VAccent = "àáâãäåéêëèìíîïðòóôõöùúûü", VSsAccent = "aaaaaaeeeeiiiioooooouuuu"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = UCase(Chaine)
End Function

 

[reve24]

super merci robert