1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Option Explicit
Dim arrAccents, Cnt, Ret, Msg, i 'Déclaration des variables
' arrAccents : Un tableau contenant les codes ASCII des caractères accentués ou ayant
' un tréma(2 points sur le caractère), j'ai opté pour ce procédé car mon système est BIDI et
' m'affiche des bizarreries
arrAccents =Array(192,194,196,200,201,202,203,206,207,212,217,219,220,224,226,228,232,233,234,235,238,239,244,246,249,251,252)
Msg = InputBox("Saisir une chaîne de caractères : ","Chaîne à scanner :","Chaîne")
If Msg = "" Then WScript.Quit
CheckAccent Msg
'==============
Private Sub CheckAccent(strIn)
Dim Trouve
For Cnt = 0 To Ubound(arrAccents)
For i = 1 To Len(strIn)
Trouve = (Chr(arrAccents(Cnt)) = Mid(strIn,i,1))
If Trouve Then
Ret = Mid(strIn,i,1)
MsgBox "Il y a un caractère accentué non autorisé [ " & Ret & " ]" & " trouvé à la position " & Cstr(i) & " de la saisie." _
& VbCrLf & " Veuillez vérifier votre orthographe."
Exit For
End If
Next
Next
End Sub |