Recherche des symbole /\:*?"<>|

[billouu]

Bonjour,

Je souhaiterai disposé d'une macro me permettant de renvoyer un message lorsque les symbole suivant sont dans une cellule:

/\:*?"<>|

J'avais un bon début, mais les signes " et * risque de poser problème.

Par avance merci beaucoup

BILLOUU

PS:Voici ma trame:

If Me.TextBox1.Text Like "/" Or Me.TextBox1.Text Like "*\*" Or Me.TextBox1.Text Like "*:*" Or Me.TextBox1.Text Like "***" Then

MsgBox "Les caractères: \/:*?:<>| ne peuvent être pris en compte"
Me.TextBox1.SetFocus
Exit Sub
End If

 

[TempusFugit]

Re : Recherche des symbole /\:*?"<>|

Bonjour


Tu as régardé dans d'anciennes discussions du forum ?
Celles qui parlent de caractères interdits ?

Je crois que cette question a déjà été evoqué dans le passé sur le forum.

 

[Pierrot93]

Re : Recherche des symbole /\:*?"<>|

Bonjour,

regarde ceci, à placer dans le module de la feuille ou dans le module de l'usf selon où se trouve ton textbox..

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("/\:*?<>|""", Chr(KeyAscii)) > 0 Then KeyAscii = 0: MsgBox "saisie invalide !!!"
End Sub

bon après midi
@+

 

[billouu]

Re : Recherche des symbole /\:*?"<>|

Merci beaucoup c'est parfait