Discussion :

[dodo69]

Bonjour à tous,

J'expose mon petit problème

J'ai un code qui va comparer la réponse de l'utilisateur à la valeur d'une cellule

Le problème c'est que j'aimerai élargir au maximum la flexibilité des réponses,
Non pas en termes d'ortographe, mais particulièrement au niveau des:
-majuscules & minuscules
-Accents

J'ai trouver la solution pour la casse avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 option compare text

Mais en ce qui concerne les accents je ne trouve rien du tout

Merci d'avance si quelqu'un connait une solution pour répondre à ce problème


Cordialement
Dodo

[Oliv-]

Il faut passer par une fonction intermédiaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function SansAccent(texte As String)
            temp = texte
            temp = Replace(temp, "é", "E")
            temp = Replace(temp, "è", "E")
            temp = Replace(temp, "ê", "E")
            temp = Replace(temp, "à", "A")
            temp = Replace(temp, "â", "A")
            temp = Replace(temp, "î", "I")
            temp = Replace(temp, "ô", "O")
            temp = Replace(temp, "ù", "U")
            temp = Replace(temp, "û", "U")
            temp = Replace(temp, "-", " ")
            temp = Replace(temp, "'", " ")
            SansAccent = UCase(temp)
End Function
 
 
Sub test_ssaccent()
If SansAccent("éùèàèzerer") = "EUEAEZERER" Then
MsgBox "MATCH"
Else: MsgBox "NO MATCH"
End If
End Sub

[MarcelG]

Bonjour Dodo69, Oliv et le Forum

Dodo69,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

ne gère pas la casse mais la comparaison majuscule - minuscule (A = a)

Pour ce qui est du code proposé par Oliv, je me permets de proposer une variation compressée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function ch_sans_accent(ch_characters As Range)
liste_accents = "ÉÈÊËÔéèêëàçùôûïî"
liste_sans_accents = "EEEEOeeeeacuouii"
tempo = ch_characters.Value
For i = 1 To Len(tempo)
        s = InStr(liste_accents, Mid(tempo, i, 1))
        If s > 0 Then Mid(tempo, i, 1) = Mid(liste_sans_accents, s, 1)
Next
ch_sans_accent = tempo
End Function

(récolté un jour sur la toile et adapté)

Si en A1, tu as la valeur "àù", alors
La fonction
=ch_sans_accent(A1") dans une autre cellule te renvoie "au"

[dodo69]

Merci pour ta solution oliv qui est très proche ( identique en terme de construction) de celle que j'ai trouver...

Je poste donc si y en a que ca interesse

Dans un module ecrire une fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Function Sans_accents$(Chaine$)  ' R. Dezan + Michel Pierron
 
 a$ = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
 b$ = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
 Chaine = Replace(Replace(Replace(Replace(Chaine, "œ", "oe"), "Œ", "OE"), "æ", "ae"), "Æ", "AE")
 For i% = 1 To Len(Chaine)
 u% = InStr(1, a, Mid(Chaine, i, 1), 0)
 If u Then Mid(Chaine, i, 1) = Mid(b, u, 1)
 Next i
 Sans_accents = Chaine
 End Function

Puis dans le module ou il compare la réponse de l'utilisateur à la valeur de la cellule:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If Sans_accents(sa_reponse) = Sans_accents(.Cells(alea, verif).Value) Then

De cette manière il compare les deux chaine de caractère en enlevant les accents.

Merci pour ta solution Oliv

Cordialement Dodo

Bonjour Dodo69, Oliv et le Forum

Dodo69,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

ne gère pas la casse mais la comparaison majuscule - minuscule (A = a)

Pour ce qui est du code proposé par Oliv, je me permets de proposer une variation compressée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function ch_sans_accent(ch_characters As Range)
liste_accents = "ÉÈÊËÔéèêëàçùôûïî"
liste_sans_accents = "EEEEOeeeeacuouii"
tempo = ch_characters.Value
For i = 1 To Len(tempo)
        s = InStr(liste_accents, Mid(tempo, i, 1))
        If s > 0 Then Mid(tempo, i, 1) = Mid(liste_sans_accents, s, 1)
Next
ch_sans_accent = tempo
End Function

(récolté un jour sur la toile et adapté)

Si en A1, tu as la valeur "àù", alors
La fonction
=ch_sans_accent(A1") dans une autre cellule te renvoie "au"

Merci MarcelG, on a du récolté sur la même toile

Merci à vous deux pour vos solutions