Discussion :

[mathieu_t]

Bonjour,

Après une rapide recherche sur le forum, il semble qu'il n'y ait pas pour le moment de réponse à ma question :

Est-il possible d'utiliser la méthode Range.Find en ignorant les accents ?

Pour les majuscules, c'est facile, c'est dans les options de la fonction, mais qu'en est-il des accents ?

J'ajoute que je ne souhaite pas convertir mes cellules en mots sans accents, sauf si c'est temporaire (le temps de la recherche) et que ça remet tout bien ensuite...

D'avance merci,

Mathieu

[Jean-Philippe André]

tu peux effectivement "bricoler" une fonction qui va chercher dans une plage de cellule et comparer seulement le niveau du caractère non accentué.

Il te faudrait alors remplacer toutes les combinaisons possibles d'accents par leur caractère basique.

La fonction Find se déplaçant sur chacune des cellules avant de retourner le résultat, cela reste envisageable

[mathieu_t]

Salut,

Tu pourrais me donner un exemple, je ne vois pas comment tu comptes faire ça ?

[jfontaine]

Bonjour,

une méthode qu'il te restera a completer

la fonction qui pour le moment traite les "a" et les "e"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function SansAccent(StrCaractere As String) As String
 
 
Select Case Asc(StrCaractere)
    Case 201, 233, 200, 232, 202, 234, 203, 235
        SansAccent = "e"
    Case 193, 225, 192, 224, 194, 226, 196, 228, 195, 227, 197, 229
        SansAccent = "a"
    Case Else
        SansAccent = StrCaractere
End Select
 
End Function

cette fonction sera a utiliser comme cela dans une boucle qui traite chaque lettre du mot

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim strMot As String
Dim strMotSansAccent As String
Dim c As Integer
 
strMot = "mistère"
 
For c = 1 To Len(strMot)
    strMotSansAccent = strMotSansAccent & SansAccent(Mid(strMot, c, 1))
Next c
 
MsgBox strMotSansAccent

[Didier Gonard]

Bonjour,

le mieux et le plus rapide de loin serait de faire une recherche sur DVP

Enlever les accents d'une chaîne à adapter au contexte.

c'est en plus dans la FAQ...

l'utilisation des API dans ce cas sera de loin bien plus rapide.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[mathieu_t]

Bonjour,

Merci pour vos réponses, mais cela ne convient pas à mon cas je pense (car oui j'avais déjà vu ce lien sous le forum). Je m'explique :

Dans ma feuille Excel, j'ai des noms et prénoms, qui peuvent avoir des accents. Je veux les garder tel quels.

Cependant, je voudrais que ma méthode Range.Find trouve ces noms ou prénoms avec accents en les comparant à des noms ou prénoms avec ou sans accents.
Autrement dit si dans ma feuille j'ai Jérôme , je veux pouvoir entrer uniquement jerome, ou encore jérome comme critère de recherche dans une de mes fonctions...

Pour l'instant, mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Set currentFindNom = Adh.Range("A4:A" & index).Find(nom, , _
        Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
        Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)

Ainsi, même si je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Set currentFindNom = Adh.Range("A4:A" & index).Find(OteAccents(nom), , _
        Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
        Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)

cela ne fonctionne pas car évidemment la comparaison doit se faire sans accent des 2 côtés !!