Compter les doublons

Bonjour,

Je souhaite compter les doublons des villes listées sur plusieurs feuilles. De préférence je souhaite que cela soit réalisé par formule plutôt que par VBA. Il y a peut-être une solution avec la fonction consolider mais je ne suis pas suffisament familiarisé avec ce menu. Merci d'avance de vos conseils.

Cordialement

Bonjour,

en C2, à tirer vers le bas

=NB.SI(base1!A:A;A2)+NB.SI(base2!A:A;A2)

Tu peux mettre la formule sur les feuilles 1 et 2

Amicalement

Claude

Claude,

J'ai déjà fais un premier pas avec ta formule mais je veux ausi obtenir la liste des villes nettoyée des doublons sur un 3ème onglet.de synthèse, existe-t-il un moyen de l'obtenir ? Merci

re,

Avec une petite macro, voir feuille "Synthèse"

ici cette feuille (sans doublons) est triée par département

Sub Synthèse()
Dim f1 As Worksheet, f2 As Worksheet
    Application.ScreenUpdating = False
        Set f1 = Feuil1
        Set f2 = Feuil2
    With Sheets("Synthèse")
        .Columns("a:b").Clear
        f1.Columns("a:b").Copy Destination:=.Range("a1")
        f2.Range("a2:b" & f1.[a65000].End(xlUp).Row).Copy Destination:= _
        .Range("a" & Rows.Count).End(xlUp)(2)
        '--- filtre sans doublons ---
        .Range("a1:b" & .[a65000].End(xlUp).Row) _
        .AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _
        .Range("c1:d1"), Unique:=True
        '---
        .Columns("a:b").Delete
        .Columns("a:b").AutoFit
        '--- tri ---
        .Range("a2:b" & .[a65000].End(xlUp).Row).Sort _
            Key1:=.Range("b2"), Order1:=xlAscending, _
            Key2:=.Range("a2"), Order2:=xlAscending, _
        Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    End With
End Sub

Amicalement

Claude

Merci Claude, exactement ce que je souhaitais et recherchais depuis plusieurs heures. A quoi ça tient une belle journée !

Cordialement