Doublons

Bonjour,

Ayant été agréablement surpris de l'engouement présent sur ce forum, je me permets de vous poser une nouvelle question car je ne m'en sors pas...

Dans le fichier excell en annexe ("Sort on mail"):

Situation: Liste reprenant les coordonnées de journalistes, triée sur base des adresses email.

Mon souhait (annexe "Sort on mail Exemple"):

Garder une seule adresse email pour un même média (et virer les autres).

(en sachant qu'une adresse email peut correspondre à plusieurs médias

D'avance merci pour votre aide!

Bonjour,

chaque média a une adresse unique ?

çà reviendrait à dire: on supprime les doublons Média

c'est çà ?

Bonjour,

Heureux de vous lire!

Chaque média peut avoir plusieurs journalistes et donc plusieurs adresses mail.

Il peut y avoir plusieurs lignes médias identiques avec adresses email différentes, mais je veux éviter les doublons 'email' au sein d'un mêmes média.

Ca me semble toujours être un sport d'exprimer correctement ses demandes

effectivement, suffit d'être clair !

avec tes 25000 colonnes et des couleurs partout, on y vois rien,

indique les colonnes à prendre en considération

à te relire

Claude

Toutes les colonnes doivent être prises en considération mais le tri doit se faire sur les 2 colonnes:

Email contact

Nom du Média

Tout grand merci Claude, mon fidèle sauveur!

ok, réponse dans la soirée

Claude

-- Jeu Juin 03, 2010 7:31 pm --

Bonsoir,

Sub Dedoublonne()
Dim Lg%
''Macros par Claude Dubois pour "Copire" Excel-Pratique le 03/06/10
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    Lg = Range("A65536").End(xlUp).Row
    Cells(2, 53) = "=a3&b3=a4&b4"
    '--- tri
    Range("a2:ay" & Lg).Sort Key1:=Range("a2"), Order1:=xlAscending, _
    Header:=xlYes, OrderCustom:=1, MatchCase:=False
        On Error Resume Next
    '--- filtre et supprime doublons
    Range("a2:ay" & Lg + 1).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("ba1:ba2")
    Range("a3:a" & Lg).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Range("ba2").ClearContents
    ActiveSheet.ShowAllData
End Sub

Amicalement

Claude

Merci Claude pour cette solution! Je vous aime

Bonne journée et bon week-end ensolleillé.

Julien