La fonction InStr

Bonjour à tous,

J'aimerais vérifier si une partie au milieu d'une chaine de caractère (Valeur) existe ou pas dans la partie gauche d'une autre chaine de caractères (TGV).

Après maintes recherches, j'ai fais ceci :

InStr(Mid(MyDico_Frais(MyLongKey).Valeur, 11, 11), Left(MyDico_Pt(MyKey).TGV, 11)) = 0

Cependant, cela n'affiche rien...

Je ne comprends pas pourquoi..

Pourriez-vous me donner quelques pistes s'il vous plait ?

Merci d'avance pour vos réponses ! :)

Bonjour

Tu devrais joindre ton fichier...

Bye !

Voici ce que j'ai fais :

'Erreur 6 : TGV et Valeur différents entre Mod1 et Mod2

ElseIf InStr(Mid(MyDico_Frais(MyLongKey).Valeur, 11, 11), Left(MyDico_Pt(MyKey).TGV, 11)) = 0 And MyDico_Pt(MyKey).MyStat <> "Mg" And MyDico_Pt(MyKey).MyStat <> "Tg" And MyDico_Pt(MyKey).MyStat <> "ST" And MyDico_Pt(MyKey).MyStat <> "BT" Then

MyKeyErr = MyKey & "__" & "Error6" & "__" & MyDico_Pt(MyKey).MyMan

If Not MyDico_Err.Exists(MyKeyErr) Then

Set MyError = New Erreurs

MyError.ErrorType = "Error6"

MyError.Man = MyDico_Pt(MyKey).MyMan

MyError.MyID = MyDico_Pt(MyKey).MyID

MyError.MyStat = "Tgv et valeur differents"

MyError.My_TR = MyCrit_Tab(1)

MyError.MyName = MyDico_Pt(MyKey).MyName

MyError.Mont = MyDico_Frais(MyLongKey).Mont

MyError.Dev_R = MyDico_Frais(MyLongKey).Dev_R

MyError.Type = MyDico_Frais(MyLongKey).MyType

MyError.KxMod2 = MyDico_Frais(MyLongKey).KxMod2

MyError.KxMod1 = MyDico_Frais(MyLongKey).KxMod1

MyError.TGV = MyDico_Pt(MyKey).TGV

MyDico_Err.Add MyKeyErr, MyError

End If

End If