Comment compter les doublons ?

bonsoir olivier,
ce code (retrouvé dans mes archives) travaille bien sue la colonne A

tu peux l'adapter à tes besoins
Public Sub DeleteDuplicateRows()
'Chip Pearson
''This macro deletes duplicate rows in the selection.
''Duplicates are counted in the COLUMN of the active cell.
Dim Col As Integer
Dim r As Long
Dim C As Range
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Col = ActiveCell.Column
If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If

N = 0
For r = Rng.Rows.Count To 1 Step -1
Rng.Cells(r, 5).Value = RTrim(Rng.Cells(r, 15.Value)
Next r

For r = Rng.Rows.Count To 1 Step -1
V = Rng.Cells(r, 1).Value
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(r).EntireRow.Delete
N = N + 1
End If
Next r

EndMacro:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub



albert

Bonjour,

Par formule, nb de valeurs uniques :
=SOMME(SI(A1:C12<>"";1/NB.SI(A1:C12;A1:C12)))
Formule matricielle, à valider par ctrl, maj et entrée

Bonsoir

Une fonction matricielle retournant le nombre d'occurrences uniques, fonction à valider par les touches Ctrl+Shift+Entrer.

=SOMMEPROD(SI(ESTVIDE(A1:C12);0;1/NB.SI(A1:C12;A1:C12)))

Une fonction matricielle retournant le nombre d'occurrences présentes plusieurs fois dans la plage, fonction à valider par les touches Ctrl+Shift+Entrer.

=SOMMEPROD(SI(NB.SI(A1:C12;A1:C12)>1;1/NB.SI(A1:C12;A1:C12);0))

@+Jean-Marie