Dénombrer valeurs distinctes avec filtre

[j_b_r]

Bonjour à tous,

Je souhaiterais compter le nombre de valeurs distinctes d'une plage, en tenant compte d'un filtre automatique, sans passer par une macro.

La fonction SOUS.TOTAL(3;plage) renvoie le nombre de ligne mais pas des valeurs distinctes.
La formule SOMME(1/NB.SI(Plage;Plage)) ne prend pas en compte le filtre. 🙁

Une solution miracle existerait-elle ?

Merci pour votre aide.
j_b

 

[pat1545.]

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

 

[Monique]

Bonjour,

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

 

[pat1545.]

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

Patrick

🙂