Je voudrais savoir si il existe une fonction vba toute prête pour comparer
des
chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule)
ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle
fonctionne sur toutes les applications.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Mp,
=EXACT(MINUSCULE(A1);MINUSCULE(B1))
isabelle
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer des chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.
Merci pour vos réponses et bonne fin de semaine.
MP
bonjour Mp,
=EXACT(MINUSCULE(A1);MINUSCULE(B1))
isabelle
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer
des
chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule)
ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle
fonctionne sur toutes les applications.
Je voudrais savoir si il existe une fonction vba toute prête pour comparer des chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.
Merci pour vos réponses et bonne fin de semaine.
MP
JB
Bonsoir,
Dans un module:
Function sansAccent(chaine) codeA = "ÉÈÊËÔéèêëàçùôûïî" codeB = "EEEEOeeeeacuouii" 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 Function
=SI(sansaccent(A1)=sansaccent(B1);"ok")
JB
On 22 fév, 19:41, "cmoi" wrote:
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour compar er des chaînes de caractères sans tenir compte de la casse (majuscule ou minu scule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.
Merci pour vos réponses et bonne fin de semaine.
MP
Bonsoir,
Dans un module:
Function sansAccent(chaine)
codeA = "ÉÈÊËÔéèêëàçùôûïî"
codeB = "EEEEOeeeeacuouii"
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 Function
=SI(sansaccent(A1)=sansaccent(B1);"ok")
JB
On 22 fév, 19:41, "cmoi" <mo...@orange.fr> wrote:
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour compar er
des
chaînes de caractères sans tenir compte de la casse (majuscule ou minu scule)
ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle
fonctionne sur toutes les applications.
Function sansAccent(chaine) codeA = "ÉÈÊËÔéèêëàçùôûïî" codeB = "EEEEOeeeeacuouii" 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 Function
=SI(sansaccent(A1)=sansaccent(B1);"ok")
JB
On 22 fév, 19:41, "cmoi" wrote:
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour compar er des chaînes de caractères sans tenir compte de la casse (majuscule ou minu scule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.
Merci pour vos réponses et bonne fin de semaine.
MP
isabelle
bonjour Mp,
pour les accent :
Function SansAccent(cellule As Range) x = Array("à", "â", "ç", "è", "é", "ê", "ë", "î", "ï", "ô", "ù", "û", "À", "Â", "Ç", "È", "É", "Ê", "Ë", "Î", "Ï", "Ô", "Ù", "Û") y = Array("a", "a", "c", "e", "e", "e", "e", "i", "i", "o", "u", "u", "A", "A", "C", "E", "E", "E", "E", "I", "I", "O", "U", "U") SansAccent = [cellule] For i = 0 To 23 SansAccent = Application.Substitute(SansAccent, x(i), y(i)) Next End Function
isabelle
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer des chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.
Merci pour vos réponses et bonne fin de semaine.
MP
bonjour Mp,
pour les accent :
Function SansAccent(cellule As Range)
x = Array("à", "â", "ç", "è", "é", "ê", "ë", "î", "ï", "ô", "ù", "û", "À", "Â", "Ç", "È", "É", "Ê", "Ë", "Î", "Ï", "Ô", "Ù", "Û")
y = Array("a", "a", "c", "e", "e", "e", "e", "i", "i", "o", "u", "u", "A", "A", "C", "E", "E", "E", "E", "I", "I", "O", "U", "U")
SansAccent = [cellule]
For i = 0 To 23
SansAccent = Application.Substitute(SansAccent, x(i), y(i))
Next
End Function
isabelle
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer
des
chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule)
ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle
fonctionne sur toutes les applications.
Function SansAccent(cellule As Range) x = Array("à", "â", "ç", "è", "é", "ê", "ë", "î", "ï", "ô", "ù", "û", "À", "Â", "Ç", "È", "É", "Ê", "Ë", "Î", "Ï", "Ô", "Ù", "Û") y = Array("a", "a", "c", "e", "e", "e", "e", "i", "i", "o", "u", "u", "A", "A", "C", "E", "E", "E", "E", "I", "I", "O", "U", "U") SansAccent = [cellule] For i = 0 To 23 SansAccent = Application.Substitute(SansAccent, x(i), y(i)) Next End Function
isabelle
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer des chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.
Merci pour vos réponses et bonne fin de semaine.
MP
cmoi
Merci à vous deux ! La solution de JB me convient mieux car je ne travaille pas directement sur des cellules, mais sur des variables et des champs de formulaires.
"cmoi" a écrit dans le message de news: 47bf1766$0$882$
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer des chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.
Merci pour vos réponses et bonne fin de semaine.
MP
Merci à vous deux !
La solution de JB me convient mieux car je ne travaille pas directement sur
des cellules, mais sur des variables et des champs de formulaires.
"cmoi" <moimp@orange.fr> a écrit dans le message de news:
47bf1766$0$882$ba4acef3@news.orange.fr...
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer
des
chaînes de caractères sans tenir compte de la casse (majuscule ou
minuscule)
ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle
fonctionne sur toutes les applications.
Merci à vous deux ! La solution de JB me convient mieux car je ne travaille pas directement sur des cellules, mais sur des variables et des champs de formulaires.
"cmoi" a écrit dans le message de news: 47bf1766$0$882$
Bonjour,
Je voudrais savoir si il existe une fonction vba toute prête pour comparer des chaînes de caractères sans tenir compte de la casse (majuscule ou minuscule) ni des accents é=e, à=a, etc.
J'ai besoin de cette fonction sur Excel, mais ce serait mieux si elle fonctionne sur toutes les applications.