un problème d'accent

[daniel]

Bonjour le forum

J'ai toujours le même problème : effectuer une recherche sans tenir compte des caractères accentués (c'est à dire que le é, ou è ou ê... soit recherché en tant que e). Bref, une solution serait peut être pour moi de n'autoriser dans mon champ "recherche" de mon userform que les caractères non accentués (et de saisir les enregistrements de ma base sans accents). Est-ce possible ?

Merci d'avance,

Daniel

 

[andré]

Salut Daniel,

Il est inutile de dédoubler les posts, cela énerve tout le monde (lol).
Et je sais de quoi je parle, je viens de le faire, mais en dehors de ma bonne volonté !

Si personne ne t'as répondu, c'est parce que personne n'a de réponse à te donner.
Depuis ta première intervention, j'ai essayé de trouver une solution à ton problème, mais sans y parvenir.
Et je ne crois pas être le seul dans ce cas.

A y réfléchier, bien que je ne sois pas un spécialiste en informatique, je suppose qu'XL, lorsqu'il y a comparaison de texte, compare les codes des différents caractères.
A titre d'exemple e=CAR(101), è=CAR(232), é=CAR(233) et ê=CAR(234).
Il faudrait donc qu'XL sache que lorsqu'il rencontre par exemple un CODE(232) qu'il doit le considérer soit comme un CODE(101), idem pour un CODE(233), ..., et ainsi pour toutes les lettres avec accent.

Je crois que le plus simple serait d'enregister une macro qui REMPLACE les codes avec accent par des codes sans accent, et puis de faire la comparaison.
Je ne vois vraiment pas d'autre solution.

Ândré.

 

[Bernard]

Bonjour Daniel et André

Une idée, pourquoi tu ne remplacerais pas tous les é,è, ë,ê, etc... par "e" avec la fonction EDITION/REMPLACER dans ta feuille ?

A+

Bernard

 

[daniel]

merci de m'avoir répondu...

j'essaierai de chercher dans cette voie là. Cela dit, je précise ue je ne dédouble pas mon post, lol, puisque là, je cherche un moyen, non plus de chercher avec/sans accent, mais de n'autoriser la saisie que des caractères non accentués.

Bon week end à tous,

Daniel

 

[andré]

Salut Bernard,

Merci pour l'idée, je n'y avais pas pensé (lol).

Quant à toi Daniel, as-tu déjà regardé du côté de DONNEES / VALIDATION / MESSAGE D'ERREUR ?

C'est une idée comme cela, je n'ai pas essayé.

Il y a aussi l'option format, mais je ne suis jamais parvenu à passer au-delà de trois conditions.

Passe un bon week-end, je ne t'oublie pas, mais maintenant, Samedi soir oblige, petit diner entre amis (non passionnés d'Xl, dommage !)

Ândré.

 

[@+Thierry]

Bonjour Daniel, André, Bernard, le Forum

Pour comprendre de quoi on parle, même si tu penses que ta question est différente, il est toujours utile de mettre au moins le lien vers le Fil original :

Lien supprimé

En relisant ce fil, on notera que mon ami Mytå et moi-même avons essayé de t'aider mais que celà est resté sans aucune suite de ta part... Ce qui n'est pas très sympa car de mon coté j'ai perdu un bon bout de temps pour te trouver un élément de réponse et Mytå quant à lui, a trouvé aussi un excellent élément de réponse par une procédure d'Alain Vallon duy MPFE...

En fait, tu as la réponse à cette nouvelle question dans ce fil précédent, il te suffit de savoir l'adapter à l'évènement "KeyPress" de la TextBox de ton UserForm...

Bon Travail et bon Week End
@+Thierry

 

[daniel]

hello,

excuse moi si je n'ai pas donné suite à ton aide dan smon message précédent, ce n'est pas de'ingratitude de ma part, c'est simplementq ue je n'ai pas encore réussi à faire fonctionner cette procédure. De plus, c'est vrai que je ne cherche pas à remplacer mes lettres accentuées, juste à les ignorer pendant la recherche.

Je suis nouveau sur le forum (quelques semaines), je ne connais pas encore les "coutumes", je penserai la prochaine fois à remettre le lien d'un message précédent.

Bonne soirée et merci pour ton aide (tu m'as déjà aidé sur bien d 'autres questions !)

Daniel

 

[@+Thierry]

Re Bonsoir Daniel, André (parti en soirée héhéhé) et le Forum

Ok Daniel, il n'y a pas de mal, mais juste pense à toujours à l'avenir de nous donner un signe de vie dans un Fil où tu as posé une question et où l'on t'a répondu, çà peut aider aussi les autres qui liront à savoir où en est la solution.

De plus comme je coche systématiquement la case "Recevoir la réponse par email" çà fait un suivi pour s'y retrouver dans le Forum par la suite...

Donc pour ton Problème de ne pas saisir d'accent dans une TextBox de UserForm voici la méthode de AV adaptée à la situation pour les "KeyAscii" en évènement "KeyPress" comme je te l'avais suggéré...

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
Case 192 To 197: KeyAscii = 65
Case 200 To 203: KeyAscii = 69
Case 204 To 207: KeyAscii = 73
Case 209: KeyAscii = 78
Case 210 To 214: KeyAscii = 79
Case 217 To 220: KeyAscii = 85
Case 221: KeyAscii = 89
Case 224 To 229: KeyAscii = 97
Case 232 To 235: KeyAscii = 101
Case 236 To 239: KeyAscii = 105
Case 241: KeyAscii = 110
Case 240, 242 To 246: KeyAscii = 111
Case 249 To 252: KeyAscii = 117
Case 253, 255: KeyAscii = 121
Case Else: KeyAscii = KeyAscii
End Select

KeyAscii = KeyAscii
End Sub

Voilà, si tu saisi des accent en TextBox1, ceux-ci seront immédiatement transformés dans l'alphabet correspondant en respectant les Majuscules et Minuscules...

Bonne Soirée
@+Thierry

 

[daniel]

ok ! message

doublement reçu ! Merci beaucoup pour ton aide, ça marche parfaitement ...
Du coup, j'ai plusieurs solutions devant moi !

Bonne soirée Thierry, le forum

Daniel

 

[daniel]

merci

beaucoup de l'idée, mais ça y est, j'ai la solution (voir post de Thierry + bas)

Bon dîner !
Daniel