Discussion :

[Blaiz58]

Bonjour,

Je rencontre un problème de comparaison des chaines de caractère.
J'ai bien lu le tutoriel de silkyroad mais je souhaite vérifier si quelques caractères enregistrés dans une variable peuvent se retrouver dans des cellules mais dans cette cellule il peut y avoir les caractères en question et d'autre avec.

Voila mon code:

La cellule(2,6) de la feuille 4 contient : Joueur : 173780

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub compare()
 comparaison = "173780,173510,173781"
        If InStr(comparaison, Feuil4.Cells(2, 6)) = 0 Then
            MsgBox "Pas bon"
        Else
            MsgBox "Good"
        End If
End Sub

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub compare()
 comparaison = array("173780","173510","173781")
     for i=0 to ubound(comparaison)
   If InStr( Feuil4.Cells(2, 6),"" & comparaison(i)) = 0 Then
            MyMsgBox = "Pas bon"
        Else
            MyMsgBox = "Good"
exit for
        End If
next
msgbox mymsgbox
End Sub

[/QUOTE]