Discussion :

[mcorvaisier]

Bonjour,
Je voudrais savoir s'il est possible en mettant en place un masque de saisie d'empecher la saisie d'un caractère accentué.

Ou le cas échéant, mettre en place un code qui remplacerai chaque caractere accentué par le même sans accent. Par exemple : É par E et à par a.

Merci.

[ilank]

Bonjour OCB,
utilise l'événement Sur Touche activée
Exemple :

Code :

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

1
2
3
4
5
6
 
'Pour assurer une saisie alphabétique dans une zone de texte TxtNom
' Seuls le Backspace et les 26 lettres min. et maj. sont pris en compte
Private TxtNom_KeyPress(Keyascii as Integer)
 If KeyAscii<>8 And (KeyAscii<65 Or Keyascii>90) And (Keyascii<97 Or Keyascii>122) Then KeyAscii=0
End sub

Code :

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

1
2
3
4
5
6
 
'Pour assurer une saisie numérique dans une zone de texte TxtNombre
' Seul le Backspace et les 10 chiffres sont pris en compte
Private TxtNombre_KeyPress(Keyascii As Integer)
 If KeyAscii<>8 And (Keyascii<48 Or KeyAscii>57) Then KeyAscii=0
End sub

[mcorvaisier]

Bonjour,
Merci pour ton code, seulement la saisie alphabétique autorise la saisie de lettres accentuées.

[Domi2]

Bonjour,

Une solution de Caféine avec les API.

Tu exécutes la fonction sur l'événement Après MAJ de la zone de texte.

Domi2

[ilank]

Bonjour OCB,
visiblement tu n'as pas testé le code. Teste-le.

[Heureux-oli]

Ou le cas échéant, mettre en place un code qui remplacerai chaque caractere accentué par le même sans accent. Par exemple : É par E et à par a.

Bonjour OCB,
visiblement tu n'as pas testé le code. Teste-le.

Il semblerait que ton code ne fasse pas le remplacement comme demandé dans le premier post.

[ilank]

Bonjour Heureux-oli,
tu ne le pas tester toi non plus.
mon code est un exemple qui répond à :

Je voudrais savoir s'il est possible en mettant en place un masque de saisie d'empecher la saisie d'un caractère accentué.

Mon code autorise uniquement la saisie des 26 lettres de l'alphabet, que je sache il n'y a pas d'accent dans l'alphabet.

[mcorvaisier]

Ilank je t'assure que j'ai testé ton code, et la saisie des caractères suivants est possible: ÉÈÇÀÊÂÛÔÎÙ.

Sinon en mettant en place la solution de caféine, ca marche.

Merci.

[Heureux-oli]

Bonjour Heureux-oli,
tu ne le pas tester toi non plus.
mon code est un exemple qui répond à :

Mon code autorise uniquement la saisie des 26 lettres de l'alphabet, que je sache il n'y a pas d'accent dans l'alphabet.

Désolé, mais il n'y a pas besoin de tester pour voir que tu ne fais pas de remplacement.

Code :

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

 If KeyAscii<>8 And (Keyascii<48 Or KeyAscii>57) Then KeyAscii=0

Sauf si KeyAscii 0 renvoie un caractère générique pouvant revêtir n'importe quel caractère accentué.

[ilank]

Ilank je t'assure que j'ai testé ton code, et la saisie des caractères suivants est possible: ÉÈÇÀÊÂÛÔÎÙ.

Si tu le dis, je veux bien te croire. Mais toutes les lettres que tu indiques ont un code ascii supérieur à la valeur max que mon code admet 122=>z.
Pour tester les codes alpha et numérique :
Choisis Procédure événementielle dans la propriété Sur Touche activée de la zone de texte. Clique sur le bouton ... pour ouvrir la page de code VBA et tape le code que je t'ai donné.

Désolé, mais il n'y a pas besoin de tester pour voir que tu ne fais pas de remplacement.

Bah c'est déjà bien de reconnaître que tu ne l'as pas testé. Maintenant selon moi un masque de saisie sert pendant la saisie et non pas pour remplacer ce qui a été saisi.

Maintenant, tant qu'OCB a trouvé ce qu'il cherchait.

[Pharmacos]

Bonjour,

Est il possible de gérer une liste des caractères interdits par un tableau ? ou même par une table ?

Code :

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

If KeyAscii<>{8,5,6,45...} Then KeyAscii=0

Merci