Discussion :

[dalhia]

Bonjour,
J'ai une feuille excel qui contiens plusieurs lignes et plusieurs colonnes, le tout remplis de mails.
je veux supprimer les mails comme ‘..hotmail..’ et ‘..yahoo..’. Comment je peux le faire ?
Merci

PS: j'ai édité ici parce que je viens de faire attention que j'ai commis une erreur; veuillez m'excuser.

[QuestVba]

Bonjour,

Tu pourrais utiliser le code suivant qui cherche sur ta colonne a (feuille 1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub DelMail()
Dim i As Integer
With ThisWorkbook.Sheets("Feuil1")
 
For i = .Range("a" & .Rows.Count).End(xlUp).Row To 2 Step -1
    If Cells(i, 1) Like "*hotmail*" Or Cells(i, 1) Like "*yahoo*" Then .Rows(i).Delete
Next i
End With
End Sub

[dalhia]

Où je dois insérer ce code?

[QuestVba]

Salut,

Quand tu es dans ton fichier excel,

• Alt + F11 (ouvre Visual Basic)
• "Insertion" > "Module" (un module 1 s'est créé - partie gauche de l'écran)
• "Copier" le code > "Coller" (dans la partie droite de l'écran)
• Fermer la fenêtre Visual Basic
• "Outils" > "Macro" > "Macros..."
• Notre macro "DelMail" est surlignée > Cliquer sur "Exécuter"

[dalhia]

Merci de votre aide. Le code que vous citez au-dessus ne marche pas, il ne supprimes pas toutes les cellules.
En fait je n'ai pas une seule colonne, j'ai plusieurs colonnes et plusieurs lignes et toutes les cellules sont remplis de mails.

[QuestVba]

Bonjour

J'ai fait sur la colonne A mais voici pour toute la feuille 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub For_Each_Next_Plage()
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1
    Set FL1 = Worksheets("Feuil1")
    With FL1
        Set Plage = .Range("a1:IV65536")
        For Each Cell In Plage
            If Cell Like "*hotmail*" Or Cell Like "*yahoo*" Then Cell.Clear
        Next
    End With
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub