XL 2010 Autorisation de caractères

[Franck74]

Bonjour,

Est-il possible de définir par du vba une liste de caractères autorisés (voir ci(dessous)?
a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
0 1 2 3 4 5 6 7 8 9
/ - ? : ( ) . , ‘ +
Espace

Merci d'avance

 

[sousou]

Bonjour
Si on à plutôt les caractères interdits, on doit pouvoir y arriver en utilisant application.onkey

 

[Franck74]

Bonjour
Si on à plutôt les caractères interdits, on doit pouvoir y arriver en utilisant application.onkey

Je n'ai jamais utilisé cette fonction. Je regarde ça de plus près. Merci !

 

[sousou]

re
Un exemple
Private Sub Workbook_Open()
t = Array("+a", "b")
For n = 0 To UBound(t)
Application.OnKey t(n), "traitement"
Next
End Sub

module1
Sub traitement()
MsgBox ("Caractère non autorisé")
End Sub

 

[riton00]

Bonjour Franck74, sousou, le forum

J'ai trouvé cette macro sur un site "à tester"

Slts

 

[patricktoulon]

bonsoir

Bonjour,

Est-il possible de définir par du vba une liste de caractères autorisés (voir ci(dessous)?
a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
0 1 2 3 4 5 6 7 8 9
/ - ? : ( ) . , ‘ +
Espace

Merci d'avance

en voila une question 😉
autoriser ou???? , dans quoi?? , a quel moment????
il faudrait être plus précis dans ta demande car en l’état la question ne veux rien dire
il sera difficile pour quiconque de t'apporter une réponse adéquate

 

[Franck74]

Sousou ta réponse fonctionne à merveille mais je vais me pencher vers le code de riton00 qui fonctionne aussi bien avec les caractères autorisés. Je crains d'oublier un caractère non autorisé.
Merci riton00 ! Seul défaut que je trouve à ton code c'est son côté "bavard" ^^. Je vais voir si je ne peux pas le rendre plus succinct.
patricktoulon, en effet je ne l'ai pas précisé car c'est dans toutes les cellules du classeur et à n'importe quel moment 🙂

 

[job75]

Bonjour à tous,

patricktoulon, en effet je ne l'ai pas précisé car c'est dans toutes les cellules du classeur et à n'importe quel moment 🙂

Quand le curseur est dans une cellule ou dans la barre de formule (mode Edition) aucun contrôle de la frappe n'est possible.

En particulier le contrôle des caractères rendus "non autorisés" par Application.OnKey ne peut pas fonctionner.

A+

 

[sousou]

Bonjour job75
Peux-tu préciser, il me semble que ma solution fonctionne, mais je n'ai pas tout testé?

 

[job75]

Je ne peut pas être plus précis, il suffit de savoir ce qu'est le curseur.

 

[Usine à gaz]

Bonjour Gérard, le Forum,

"Quand le curseur est dans une cellule ou dans la barre de formule (mode Edition) aucun contrôle de la frappe n'est possible.
En particulier le contrôle des caractères rendus "non autorisés" par Application.OnKey ne peut pas fonctionner."

@Gérard : je viens de tester avec le fichier du post 5 et ça marche il me semble 🙂 ... à moins que "comme d'hab" je n'ai pas compris LOL
lionel 🙂

 

[patricktoulon]

Bionjour
une test like l’événement worksheet_change dans le thisworkbook et puis c'est tout ,c'est tout ce qui est possible a moindre frais
après ça sera beaucoup plus compliqué at pas garantie
edit
je viens de voir que c'est ce que riton00 a proposé avec son fichier