Bonjour,
Avec macro (mais tu peux faire l'opération de façon entièrement manuelle) :
Sub DénombrePropr_Parcelle()
Dim n&, i&
Application.ScreenUpdating = False
[A1:A60000].AdvancedFilter xlFilterCopy, , [F1], True
n = Range("F60000").End(xlUp).Row
'For i = 2 To n
'Cells(i, 7).Value = Application.CountIf(Range("A2:A60000"), Cells(i, 6))
'Next i
Range("G2").Formula = "=COUNTIF(A2:A60000,F2)"
Range("G2").AutoFill Range("G2:G" & n)
Application.ScreenUpdating = True
End Sub
Filtrage avancé de ta liste de parcelle pour en produire en F une liste sans doublons.
Utilisation de NB.SI pour dénombrer...
2 versions : -celle active actuellement dans la macro : on introduit formule en G (semble un peu plus rapide que l'autre).
-on n'introduit pas la formule mais on affecte directement le résultat (pour faire basculer la macro vers cette méthode, enlever les apostrophes devant les 3 lignes de la boucle For i....Next i, et en mettre devant les 2 lignes qui suivent commençant par Range("G2"))
Sois patient, cela met un certain temps.
Pour tester, cliquer sur bouton.
Cordialement.