Recherche avec ou sans les accents

dberthia

XLDnaute Nouveau
J'ai une macro dont l'objectif est de retracer des mots dans une liste. Parfois, les mots ont été saisis avec des accents et d'autres fois sans accents.

Je recherche donc un code qui permettrait à Excel de trouver le mot ou l'expression recherchée sans égard aux accents.

Merci de me mettre sur la piste.

:)
 

CBernardT

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 244
Membres
105 312
dernier inscrit
DD07