Recherche avec ou sans les accents

Bonjour Dberthia,

Une fonction pour éliminer les accents réalisé par notre Ti national.

Avec une macro qui travaille sur une plage, tu peux supprimer les accents avant d'effectuer la recherche.

Function MajSansAccent$(ByVal Chaine$)
Const VAccent = 'àáâãäåéêëèìíîïðòóôõöùúûü', VSsAccent = 'aaaaaaeeeeiiiioooooouuuu'
Dim Bcle&
If Len(Chaine) > 0 Then
For Bcle = 1 To Len(VAccent)
Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = Chaine
End If
End Function
Sub ListeSansAccent()
Dim plage As Range, Cell As Range

Set plage = Sheets('Feuil1').Range('A1:A20')
For Each Cell In plage
Cell = MajSansAccent$(Cell)
Next Cell
End Sub

Cordialement

Bernard

Bonjour le forum
Bonjour dberthia

Je ne vais pas t'être d'un grand secours mais si cela peut te mettre sur la voie, essais de placer au début de ton code :

Option Compare Text

Cliquez pour agrandir...

Tu surlignes Compare et appuies sur F1 pour l'aide d'Excel. Cela devrait te donner un aperçu.

Bon ouikand à toutes &a à tous