Aide Excel ou VBA

Bonjour à tous,

Je rejoins ce forum ou j'ai déjà trouvé une mine d'astuce très pratique.

Par contre la je cale sur le sujet suivant, je m'explique:

cela fait 2 jours que je m'arrache le peu de cheveux qui me restent !

J'ai 2 colonnes dans un classeur :

• une colonne A qui contient des adresses email
• une colonne B qui contient des noms de domaines (la partie après le @ d'une adresse email)

Concrètement, si dans A1 j'ai "truc@machin.fr", je voudrais savoir si "machin.fr" se trouve dans une des cellules de la colonne B et si oui

ecrire en Colonne C "Vrai"

J'ai tout essayé mais rien ne fonctionne comme je le voudrais.

Si quelqu'un a une solution à me proposer je l'en remercie (et mes cheveux aussi !)

D'avance merci pour vos contributions.

Cordialement

Bonjour,

En l'absence de classeur (?) :

Sub NomDom()
    Dim ndom$, n%, i%
    Application.ScreenUpdating = False
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To n
            ndom = Split(.Cells(i, 1), "@")(1)
            If WorksheetFunction.CountIf(.Columns("B"), ndom) > 0 Then .Cells(i, 3) = "VRAI"
        Next i
    End With
End Sub

Re Bonjour,

quelle réactivité ...

code collé et HOP ca marche.

Un grand merci à vous.Dés que j'ai un peu de temps je vais analyser les commandes pour essayer de comprendre.

Très bonne journée