Supprimer les données d'une colonne qui apparaissent dans une autre colonne

Menzo -  
 Menzo -
Bonjour,


J'ai 2 colonnes.
En A j'ai 10 000 emails dont 1000 sont erronés
En B j'ai mis les 1000 emails erronés
Je souhaite effacer dans la colonne A tous les emails erronés.

Pouvez-vous m'aider ?
Merci beaucoup

Lionel
A voir également:

4 réponses

Réponse 1 / 4
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   168
 
Bonjour,
comment avez-vous sélectionner les mails erronés ?

ça n'aurait pas été l'occasion de les supprimer en allant les chercher avec un filtre ?


0
Menzo
 
Bonjour yoyo en fait ce sont des emails Invalides qui m'ont été retournés suite à un mailing
0
Réponse 2 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

en vba faire Alt F11 pour accéder à l'éditeur

Dans le ruban Insérer Module et mettre ce code 

Option Explicit
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Dim obj As Object
    Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'lecture de la colonne A
    Application.ScreenUpdating = False
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, NoCol)
  Set obj = FL1.Columns("B").Find(FL1.Cells(NoLig, NoCol), , , xlWhole)
If Not obj Is Nothing Then
  FL1.Cells(NoLig, NoCol) = ""
FL1.Cells(NoLig, NoCol).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End If
     Next
    Set FL1 = Nothing
     Application.ScreenUpdating = True
End Sub


Ensuite mettre le curseur sur Sub For_X_to_Next_Ligne()
Faire F5 au clavier

voilà

0
Réponse 3 / 4
Menzo
 
Merci beaucoup.
J'ai copié le code mais je n'arrive pas à l'exécuter.. comment faire ? Merci
0
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Ensuite mettre le curseur sur Sub For_X_to_Next_Ligne()
Faire F5 au clavier
0
Réponse 4 / 4
Menzo
 
Merci beaucoup,
Lionel
0