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

Question

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

Yoyo01000 · Answer

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 ?

cs_Le Pivert · Answer

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à

Menzo · Answer

Merci beaucoup.
J'ai copié le code mais je n'arrive pas à l'exécuter.. comment faire ? Merci

Menzo · Answer

Merci beaucoup,
Lionel

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

4 réponses

Votre réponse

Newsletters