XL 2019 Supprimer ligne contenant contenant mot (adresse mail)

[jeanbaba86]

Bonjour,

Tout nouveau sur le site, je n'ai malheureusement pas réussi à trouver la réponse à ma problématique.

J'ai un fichier qui contient des colonnes :

-Nom
-Prénom
-Mail
-Poste

Je souhaiterai supprimé toutes les lignes qui contiennent un mail personnel de type yahoo ou gmail et garder les adresses professionnelles.

Est-ce que c'est possible ?

Bonne journée
Cdlt
J-B

 

[Bernard_XLD]

Bonjour jeanbaba86, le forum

Bienvenue sur XLD
Bien sûr que c'est possible, mets un petit fichier exemple avec des données anonymes, ce n'est pas aux contributeurs de le faire et tu dois leur faciliter la tache, c'est toi le demandeur.

Bien cordialement

 

[jeanbaba86]

Bonjour Yeahou,

Merci pour la réactivité. Voici une petite partie du fichier (si besoin je peux envoyer le fichier plus fourni).

Cdlt
J-B

 

[Bernard_XLD]

re,

voila un code qui fait cela, tu peux définir les mails à supprimer dans le tableau List_Mails

Cordialement

Sub Supprime_Mails()
    Dim List_Mails, Mail_en_Cours, Compteur As Long
    List_Mails = Array("@gmail.", "@yahoo.")
    For Compteur = Range("A65536").End(xlUp).Row To 2 Step -1
        For Each Mail_en_Cours In List_Mails
            If Range("A" & Compteur).Value Like "*" & Mail_en_Cours & "*" Then Range("A" & Compteur).EntireRow.Delete Shift:=xlUp
        Next Mail_en_Cours
    Next Compteur
End Sub

 

[sylvanu]

Bonjour JeanBaba, Yeahou,
Un autre exemple avec :

Sub Nettoyage()
Dim DL%, L%
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row
For L = DL To 2 Step -1
    If (Cells(L, "A") Like "*@gmail.com") Or (Cells(L, "A") Like "*@yahoo.fr") Then
        Cells(L, 1).EntireRow.Delete
    End If
Next L
End Sub

 

[jeanbaba86]

Bonjour,

Merci beaucoup ! C'est exactement ce qu'il me fallait

Bonne journée
Vous êtes des génies
Cdlt
J-B