Code de recherche avec ou sans accent
Bonjour,
J'ai adapté un outil de boisgontier pour mon boulot.
C'est un petit outil qui me permet de retrouver le code analytique que je dois attribuer aux dépenses.
J'aimerai savoir si je peux faire mes recherches avec ou sans accent et "ç" entre autre...
J'ai bien pensé faire subtitute dans mon textbox mais ma base à toujours les accents.
Ma question est ce que je peux créer un dictionnaire sans accent afin d'avoir une cohérence dans les recherches? si oui comment?
Exemple:
Si je tape dans la textbox de recherche : télé ou tele
J'aimerai obtenir les deux lignes 613210 et 606256
A ce jour j'obtiens soit l'une soit l'autre
Merci d'avance
Leakim
bonjour,
une solution en ajoutant une colonne à BPAS et une fonction pour supprimer les caractères accentués
Bonjour,
Ok merci, çà marche super
Je me demande si, il y a pas moyen sans colonne complémentaire ?
LEakim
Salut leakim,
Salut h2so4,
Salut le Forum,
A défaut de pouvoir modifier directement ton code (car beaucoup trop compliqué pour moi), j'ai recréée un UserForm qui a deux colonnes et un TextBox pour la recherche
Que tu écrive en majuscule ou en minuscule, avec ou sans les accents, tout les résultats sortent
En espérant que tu puisse ensuite l'adapter à ton fichier!
Je te laisse tester et reste à ta disposition :p
Bonsoir,
J'ai ajouté une fonction
Function sansAccent(chaine)
codeA = "éèêëàâçùôûïîÉÈÊËÔ"
codeB = "eeeeaacuouiiEEEEO"
temp = chaine
For i = 1 To Len(temp)
p = InStr(codeA, Mid(temp, i, 1))
If p > 0 Then Mid(temp, i, 1) = Mid(codeB, p, 1)
Next
sansAccent = temp
End FunctionBoisgontier
Bonsoir,
Merci à vous trois pour vos propositions respectives qui fonctionnent toutes.
Bravo messieurs
Cordialement,
Leakim