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

Messages postés
16
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
26 février 2007
- - Dernière réponse : Alongra
Messages postés
16
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
26 février 2007
- 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
Messages postés
16
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
26 février 2007
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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
520
Date d'inscription
vendredi 30 juillet 2004
Dernière intervention
3 mars 2008
3
Merci
et c koi la réponse ?

Rollerman

Merci olixelle 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
16
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
26 février 2007
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

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 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.