Dénombrer valeurs distinctes avec filtre

Salut,
oui c possible grace à F Sigonneau:

Sub test22()
MsgBox NbValUnique(Range('A2:A' & Cells(Rows.Count, 1).End(xlUp).Row))
End Sub


Function NbValUnique(laPlage As Range)
Dim ValeursUnique As New Collection

On Error Resume Next
For Each cell In laPlage
If cell.EntireRow.Hidden = False Then
ValeursUnique.Add cell.Value, CStr(cell.Value)
End If
Next cell
On Error GoTo 0

NbValUnique = ValeursUnique.Count

End Function

Ce site n'existe plus

Patrick

Bonjour,

Et Laurent Longre aussi, en formules.
Tu trouveras dans ce post un fichier faisant, je crois, ce que tu demandes :
Lien supprimé

Ha la Monique , tu parles d'un grand maitre en la matière ...

Patrick