[Toutes versions] Lister des mots interdits [Résolu]

[AidezMoiSvp]

Bonjour,

Comment faire pour créer une liste de mots interdits ?

Je voudrais qu'à la sortie d'un textbox excel vérifie si certains mots sont présents.
J'ai le code pour réaliser l'opération avec un mot
Exemple : si textbox contient "jour" alors ...

mais pas avec plusieurs sans faire plusieurs if
exemple : si textbox contient "jour", "nuit", "matin" alors ...


Je pense qu'il faut déclarer une variable mais je n'y arrive pas.
J'ai essayé ça :

Code :

1
2
3
4
dim interdit as string
interdit = "jour", "nuit", "matin", ...
 
if textbox1 <> interdit then ...

Mais bien sûr ça ne fonctionne pas

Merci

[mercatog]

Code :

1
2
3
4
5
6
7
8
Dim interdit As String
interdit = "jour|nuit|matin"
 
If TextBox1 <> "" Then
    If InStr(interdit, TextBox1) = 0 Then
'....
    End If
End If

[AidezMoiSvp]

Le code fonctionne s'il n'y a qu'un seul mot dans le textbox.
Le problème est que mon textbox peut contenir plusieurs mot.
J'ai oublié de la préciser dans le premier message.

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Elem As Variant, Interdit As Variant
Dim Existe As Boolean
 
Interdit = Array("jour ", "nuit ", "matin ")
 
If TextBox1 <> "" Then
    For Each Elem In Interdit
        If InStr(TextBox1, Elem) <> 0 Then
            Existe = True
            Exit For
        End If
    Next Elem
    If Not Existe Then
        '...
    End If
End If

[ZebreLoup]

Le TextBox ne doit pas contenir les mots interdits ou ne doit pas être remplit avec seulement un des mots interdits. i.e est-ce que "nuit blanche" doit être accepté ou pas ?
1er cas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim listMotsInterdits() As String
listMotsInterdits = Array("jour", "nuit", "matin")
Dim mot As String
Dim ok As Boolean
 
ok = True
 
Dim i As Integer
For i = 0 To UBound(listMotsInterdits)
    mot = listMotsInterdits(i)
    If InStr(TextBox1, mot) > 0 Then
        ok = False
    End If
Next i
 
If ok Then
    'Le code
    '...
End If

2ème cas

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim listMotsInterdits() As String
listMotsInterdits = Array("jour", "nuit", "matin")
Dim mot As String
Dim ok As Boolean
 
ok = True
 
Dim i As Integer
For i = 0 To UBound(listMotsInterdits)
    mot = listMotsInterdits(i)
    If TextBox1 = mot Then
        ok = False
    End If
Next i
 
If ok Then
    'Le code
    '...
End If

[AidezMoiSvp]

Bonsoir,

"Nuit blanche" ne doit pas être acceptée.

Merci