Tester la présence \ / : * ?

Bonjour tout le monde,

Je souhaiterai tester l'existence de ces caractère dans une cellule.

J'ai utilié Like, qui fonctionne très bien sauf pour les carctères * et ".

Je comprend bien pourquoi ça ne fonctionne pas avec ces caractères mais je ne sais pas comment faire du coup pour les tester.

If Cells(1, 1) Like ("*\*") Or Cells(1, 1) Like ("*/*")  Or Cells(1, 1) Like ("*:*") Or Cells(1, 1) Like ("*?*") Or Cells(1, 1) Like ("*<*") Or Cells(1, 1) Like ("*>*") Then
MsgBox "Existe"
End If

Merci pour votre aide.

Bonjour,

Voici une fonction personnalisée (à mettre dans un module standart -p.e. Module1-)

Function YOK(s$) As Boolean
Dim Arr(), i
Arr = Array(34, 42, 47, 58, 60, 62, 63, 92)
For i = 0 To 7
If InStr(1, s, Chr(Arr(i))) Then YOK = True
Next
End Function

Cette fonction renvoie Vrai si un des caractères est trouvé :

Sub test()
If Not YOK(ActiveCell) Then
MsgBox "La cellule active ne contient pas de caractères interdits."
Else
MsgBox "Existe"
End If
End Sub

A+

Bonjour Galopin,

Merci pour ton aide, ça répond parfaitement à ce que je cherchais.

Merci!