Comparer morceau de texte dans des cellules

Fermé
mister-t - 8 avril 2009 à 21:24
 Utilisateur anonyme - 12 avril 2009 à 21:20
Bonjour,

je souhaite comparer un bout de texte dans une case a un bout de texte dans une colonne
si les deux bout de texte sont present dans les deux cases alors il envoie un mail a la personne situé sur la meme ligne

ex:
case 1: mini m

colonne: moi
mu
mini

ici mini de la case 1 et le mini de la colonne sont identiques d'ou envoie de mail


j'ai essayé ceci mais la comparaison ne se fait pas, il renvoie 0

For i = 5 To 155
If InStr((wbk2.Sheets("Sheet1").Cells(31, 4)) > 0, 1) = InStr(wbk1.Sheets("Interface").Cells(i, 29) > 0, 1) Then
wbk2.SendMail recipient:=(Array(wbk1.Sheets("Interface").Cells(i, 30))), Subject:="dudu:Pièce jointe, mise à jour Optimum" & wbk2.Sheets("Sheet1").Range("E8").Value
returnrecept = False
End If
Next i

pouvez vous m'aider

merci pour les reponses futurs

cordialement

2 réponses

bonjour


un petit coup de main

merci
0
up


please please oh please
0
mister-t > mister-t
12 avril 2009 à 19:02
svp

please
0
Utilisateur anonyme
12 avril 2009 à 21:20
Salut,

La fonction INSTR() renvoie la position de la première occurrence d'une chaîne à l'intérieur d'une autre chaîne.

Je ne comprend pas ce que tu cherches à faire:

If InStr((wbk2.Sheets("Sheet1").Cells(31, 4)) > 0, 1) = InStr(wbk1.Sheets("Interface").Cells(i, 29) > 0, 1) Then 


notamment avec >0

Expliques un peu
0