Supprimer les cellules d'une colonne par rapport aux cellule

Bonjour,

je suis complètement noob sur excel et je souhaite gagner du temps pour mettre à jour jour ma liste d'email pour ma newsletter.

J'ai une colonne "B" avec ma liste d'email et une colonne "C" avec la liste d'email à effacer de la colonne "B".

Sachant que ma colonne "C" comporte 1350 email, je ne peux me permettre de les effacer de la colonne "B" une par une.

A vous professionnel du excel quel sont les actions (étape par étape) à faire pour supprimer les email de la colonne "C" dans la colonne "B".

Merci d'avance pour votre aide.

Cdt,

Lorien

Bonjour,

il faut une petite macro,

pour se faire, envoie la feuille avec sa structure réelle,

quelques lignes anonymisées suffit

Amicalement

Claude

Merci pour ton aide Claude,

tu trouveras le fichier ci joint. J'ai du enlever toutes les adresses email pour des raisons de confidentialité. Je t'envois néanmoins le meme format avec beaucoup moins d'email

PS : je ne sais meme pas comment mettre en place une macro

Bonjour

Sans macro mais quelle manipulations

Sur la base du fichier fourni

- En cellule A1 et a tirer vers le bas:(respectes bien l'ordre des paramètres)

La zone de la colonne C ( $C$1:$C$6 ) doit être identique à la zone en colonne B

=NB.SI($C$1:$C$6;B1)

Ensuite faire un tri de ton tableau (tri sur la colonne A mode Décroissant)

Tu retrouveras en tête de colonne tous tes doublons jusqu'au premier zéro

Reste à les effacer

Salut Banzai,

je n'y arrive pas, pourrais tu le faire sur mon fichier et me le renvoyer?

en faite, avec ma version anglaise je ne sais pas faire le tri décroissant (filter, less tan???)

et je ne peux avoir autant de cellule remplit dans la colonne "C" que dans la cellule "B" car je n'ai pas autant d'adresse email a*à effacer (seulement 1350 sur une liste de 7000)

cdt,

Lorien

Bonjour

Quelques explications faites avec Excel 2003

Bonjour à tous,

C'est pas vraiment ce que voulait faire,

j'aurais souhaité supprimer la cellule directement dans la boucle (sans passer par un filtre)

Mais bon, çà marche !

Attention j'utilise la colonne A

Il n'y a pas d'en-têtes sur le fichier

Sub SupprEmail()
Dim Lgb&, Lgc&
Dim c As Range, Cel As Range
Dim firstAddress$, T
    T = Time 'chrono
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Range("a1:b1").Insert Shift:=xlDown
    Lgb = Range("b" & Rows.Count).End(xlUp).Row
    Lgc = Range("c" & Rows.Count).End(xlUp).Row

    For Each Cel In Range("c1:c" & Lgc)
        With Columns("b")
            Set c = .Find(Cel, LookIn:=xlValues, lookat:=xlPart)
            If Not c Is Nothing Then
                firstAddress = c.Address
                Do
                    Cells(c.Row, "a") = "x"
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
        End With
    Next Cel
    '--- fltre ---
    Range("g2") = "=a2=""x""" 'critère
    Range("a1:b" & Lgb).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("g1:g2"), Unique:=False
    Range("g2").ClearContents
    '---
    On Error Resume Next
    Range("a2:b" & Lgb).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp
    ActiveSheet.ShowAllData
    Range("a1:b1").Delete Shift:=xlUp
    Application.Goto Range("a1"), Scroll:=True
    Set c = Nothing
    MsgBox ("temps macro = " & Format(Time - T, "hh:mm:ss"))
End Sub

Tu nous diras le temps de traitement sur le fichier réel

Bonne journée

Claude

ca marche !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

temps de traitemant 5sec !!!

j'ai choisi la macro, pck laut manip j'arrivais pas

merci à tous les deux et bonne journée.