Discussion :

[bdoux33]

Bonjour,

voici mon problème: j'ai un fichier texte dans lequel je viens lire toutes les lignes une par une. J'enregistre le résultat dans une variable, et je voudrais tester cette variable. Si la variable contient certains mots un message d'erreur s'affiche, sinon je copie la variable dans une cellule de ma feuille excel.
Je n'arrive pas à utiliser la fonction 'like' pour vérifier tous "les mots interdits", voici mon code pour mieux comprendre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Open Chemin For Input As #1
 
    Do Until EOF(1)
        Line Input #1, ligne
 
        Compar = ligne like "*ESSAI*" or "*IPS*" or "*TEST*" or "*FIN*"
 
        If Compar = False Then
            MsgBox "erreur!"
        Else
            ActiveCell.Offset(1, 0).Range("A1").Select
            ActiveCell.FormulaR1C1 = ligne
        End If
 
    loop
 
    Close #1

Merci d'avance pour vos réponses!

[LeForestier]

Bonjour,
Pas tester mais essaye avec

Code :

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

like "*ESSAI*IPS*TEST*FIN*"

A+
Bon j'ai tester et ça va pas, mais avec..

Code :

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

Compar = ligne Like "*ESSAI*" Or ligne Like "*IPS*" Or ligne Like "*TEST*" Or ligne Like "*FIN*"

Ca marche
A+

[Ptikir]

Bonjour bdoux

Je pense qu'il faut que tu utilse plusieurs boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
compar = ligne like "essai"
if compar = false then
   goto erreur
end if
 
compar = ligne like "IPS"
if compar = false then
   goto erreur
end if
 
[...]   'Faire les autres conditions sur lemême modèle
 
erreur:
if compar = false then
[...]
end if

A ++

[ucfoutu]

Bonjour,

Il est préférable de faire l'économie du Like alors que le Instr est suffisant ici.

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
Dim filtres, machaine As String, compar As Boolean
filtres = Array("ESSAI", "IPS", "TEST", "FIN")
machaine = "sESSAIaaaa"
For i = 0 To UBound(filtres)
  If InStr(machaine, filtres(i)) Then
    compar = True: Exit For
  End If
Next
MsgBox compar

[bdoux33]

Merci pour vos réponse, j'ai testé plusieurs des solutions proposés ça fonctionne!