compter doublons

[MASSJIPE]

Bonjour
Le suis à la recherche d'une formule simple pour compter uniquement les doublons en colonne A
si pas de doublon C3=0
Si doublon C3=17
Voir fichier
j'ai recherché sur different fil mais rien
merci

 

[mapomme]

Re : compter doublons

Bonjour MASSJPE,

Formule matricielle à valider par Ctrl+Maj+Entrée ?:

=NBVAL(A1:A20)-SOMME(1/NB.SI(A1:A20;A1:A20))

 

[excfl]

Re : compter doublons

Bonjour le forum,

=NBVAL(A1:A200)-SOMME(SI(A1:A200<>"";1/NB.SI(A1:A200;A1:A200)))

Formule matricielle.

 

[MASSJIPE]

Re : compter doublons

bonjour
un soucis lorsque lance mes macros
la formule avant lancement
=NBVAL(A1:A200)-SOMME(SI(A1:A200<>"";1/NB.SI(A1:A200;A1:A200)))
après lancement je perd des lignes de A200 je passe A35
=NBVAL(A1:A35)-SOMME(SI(A1:A35<>"";1/NB.SI(A1:A35;A1:A35)))

Sub Doublons()
Dim Unique As Object, Cel As Range
Set Unique = CreateObject("Scripting.Dictionary")
    For Each Cel In Range("a2:a" & [a65000].End(xlUp).Row)
        If Not Unique.Exists(Cel.Value) Then Unique.Add Cel.Value, Cel.Value
    Next Cel
    Range("a2:a" & [a65000].End(xlUp).Row).Delete Shift:=xlUp
    Range("a2:a" & Unique.Count + 1) = Application.Transpose(Unique.items)
End Sub
Sub nbDoublons()
Dim i As Integer, j As Byte, plage As Range, prec As String
    Application.ScreenUpdating = False
    Set plage = Range("A2:A500")
    prec = ""
    For i = 1 To 500
        For j = 2 To 28
            With Application.WorksheetFunction
                If .CountIf(plage, Cells(i, j)) > 1 And Cells(i, j) <> prec Then
                    MsgBox "Il y a " & .CountIf(plage, Cells(i, j)) & " fois la valeur " & Cells(i, j)
                End If
            End With
            prec = Cells(i, j)
        Next j
    Next i
End Sub

une idée

 

[mapomme]

Re : compter doublons

Bonsoir MASSJIPE,

On peut tester avec cette formule matricielle:

=NBVAL(INDIRECT("A12:A200"))-SOMME(SI(INDIRECT("A1:A200")<>"";1/NB.SI(INDIRECT("A1:A200");INDIRECT("A1:A200"))))

 

[MASSJIPE]

Re : compter doublons

BONJOUR
je viens de tester la formule avec la macro la formule ne bouge pas
merci