Comment ne pas tenir compte des accents ? [Résolu]

Alongra 16 Messages postés dimanche 28 septembre 2003Date d'inscription 26 février 2007 Dernière intervention - 14 avril 2006 à 14:15 - Dernière réponse : Alongra 16 Messages postés dimanche 28 septembre 2003Date d'inscription 26 février 2007 Dernière intervention
- 14 avril 2006 à 15:12
Bonjour tout le monde !

Voilà, sous Excel je dois comparer deux cellules, mais je suis confronté au problème des accents.

Pour mon programme, Toto Bédiba n'est pas pareil que Toto Bediba. Hors j'aimerai qu'il le voit comme identique. J'ai essayé de transformé mes chaines avec la fonctions UCASE, mais il met bien BEDIBA mais avec un grand E accentué :(

Comment je peux faire vous croyez ?

Un grand merci d'avance.
Afficher la suite 

3 réponses

Meilleure réponse
Alongra 16 Messages postés dimanche 28 septembre 2003Date d'inscription 26 février 2007 Dernière intervention - 14 avril 2006 à 14:23
3
Merci
Oups, j'ai rien dit ! Je viens de faire une recherche sur le forum et j'ai trouvé...

Désolé ne de pas avoir fait avant.

Merci Alongra 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Meilleure réponse
olixelle 520 Messages postés vendredi 30 juillet 2004Date d'inscription 3 mars 2008 Dernière intervention - 14 avril 2006 à 14:24
3
Merci
et c koi la réponse ?

Rollerman

Merci olixelle 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Meilleure réponse
Alongra 16 Messages postés dimanche 28 septembre 2003Date d'inscription 26 février 2007 Dernière intervention - 14 avril 2006 à 15:12
3
Merci
Une p'tite fonction faite par un membre du forum apparement :

Option Explicit
' Définition de la conversion
Const accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"


' La fonction :
Private Function sansAccents(ByRef s As String) As String
Dim i As Integer
Dim lettre As String * 1
sansAccents = s
For i = 1 To Len(accent)
lettre = Mid$(accent, i, 1)
If InStr(sansAccents, lettre) > 0 Then
sansAccents = Replace(sansAccents, lettre, Mid$(noAccent, i, 1))
End If
Next i
End Function

Merci Alongra 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.