Comparaison nom de domaine

Bonjour à tous,

J'ai encore besoin de vos lumières sur ce coup!

J'ai un tableau contenant des listes de plusieurs milliers d'adresses email et je souhaites indiquer la présence d'adresse email possédant une des extensions listées dans une autre colonne.

J'ai joint un exemple simplifié:

Colonne A = nom de domaine

Colonne B = Liste adresse email

Je cherche a faire une macro qui repéré les noms de domaine dans les adresses email de la colonne B. Ensuite, en cas de présence du nom de domaine en colonne A, qui surligne la cellule contenant le nom de domaine.

Un tout grand merci d'avance pour votre aide!

Vincent

Bonjour,

Essaie ainsi :

Sub Test()
    Dim LstDom, Dom$, LstAdr As Range, c As Range, i%
    With ActiveSheet
        i = .Range("A" & .Rows.Count).End(xlUp).Row
        LstDom = .Range("A1:A" & i).Value
        i = .Range("B" & .Rows.Count).End(xlUp).Row
        Set LstAdr = .Range("B1:B" & i)
    End With
    On Error Resume Next
    For Each c In LstAdr
        Dom = Split(c.Value, "@")(1)
        If WorksheetFunction.Match(Dom, LstDom, 0) > 0 Then
            If Err.Number <> 0 Then
                Err.Clear
            Else
                c.Interior.Color = vbYellow
            End If
        End If
    Next c
End Sub

NB- Ôter les @ dans ta liste de domaines.

Cordialement.

bonjour

une idée, sans VBA

à modifier pour faire joli

edit salut MFerrand

Excellent! Merci pour vos deux réponses!

Je vais utiliser la macro pour l'insérer dans une chaîne d'autres Macro.

Comme à chaque fois une efficacité incroyable

Bon weekend

Vincent