Utilisation d'un tableau dans InStr

Question

Je cherche un code vba pour savoir si un tableau de chaînes est contenu (pas totalement compatible) dans les cellules d'une colonne. J'ai une liste de faux emails stockés dans la feuille "Helper" sur A1: A3242 et dans la feuille JP j'ai la liste des emails (I: I) que je veux vérifier.

Si un e-mail de la première liste est trouvé dans la 2ème colonne, j'ai besoin que la ligne soit colorée en jaune.

Dim list As Variant, FF As Long, qq As Long 

list = Sheets("Helper").Range("A1:A3242").Value 
FF = Range("I" & Rows.count).End(xlUp).Row 
For qq = 1 To FF 
    If InStr(1, list, cell.Value) <> 0 Then 
     Range("I" & qq).EntireRow.Interior.Color = vbRed 
    End If 
Next qq 

End Sub 

Je suis vraiment nouveau à VBA et je ne sais pas si cela l'approche correcte, je reçois l'erreur « 424 Objet requis », Toute aide serait grandement appréciée, merci d'avance :)

Answer 1

Function GetDomain(s as String) as String 
Dim x as Integer 
X = instr(s,"@") 
If x=0 then 
    GetDomain = s 
Else 
    GetDomain = right(s,len(s)-x) 
End IF 
End Function 

wrap et votre chaîne autour de cette fonction:

 If Not IsError(Application.Match(GetDomain(.Range("I" & qq).Value), list, 0)) 

(devrait fonctionner, non testé)

Answer 2

Vous devez utiliser la fonction Application.Match, voir ci-dessous le code (explications dans le code des commentaires):

Option Explicit 

Sub MatchEmailList() 

Dim list As Variant, FF As Long, qq As Long 

list = Sheets("Helper").Range("A1:A3242").Value 

With Sheets("JP") ' fully qualify the sheet 
    FF = .Range("I" & .Rows.Count).End(xlUp).Row ' get last row in column "I" from sheet "JP" 

    For qq = 1 To FF 
     ' if not is Error >> Match was successful to find a match 
     If Not IsError(Application.Match(.Range("I" & qq).Value, list, 0)) Then 
      .Rows(qq).Interior.Color = vbRed ' color entire roe in red 
     End If 
    Next qq 
End With 

End Sub