Recherche avec ou sans les accents

[dberthia]

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]

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

 

[Eric C]

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

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

Bon ouikand à toutes &a à tous