Bonjour.
Une fonction perso :

Function NbSiFiltre(Plage As Range, Sel As String)
Dim c As Range
For Each c In Plage
If c = Sel And c.EntireRow.Hidden = False Then
NbSiFiltre = NbSiFiltre + 1
End If
Next c
End Function

Cordialement.
Daniel
"EB" <edouard.bleuez***numericable.fr> a écrit dans le message de news:
12898419-234E-425E-8E72-663F5CD77504***microsoft.com...
> Bonjour,
> Merci à Daniel C et Jb pour leurs réponses mais ma question concerne non
> pas le filtre (je sais faire) mais la possibilité de mettre une condition
> à la fonction sous.total.
> Il s'agit d'une liste déjà filtrée sur d'autres critères dans laquelle je
> voudrais obtenir automatiquement dans une cellule le soustotal des
> cellules répondant par exemple au critère "f"
> J'ai essayé la formule matricielle suivante :
> {=SI(G2:G300="f";SOUS.TOTAL(3;G2:G300))}
> qui me renvoie FAUX
> Voyez vous une solution ?
> Merci d'avance
> EB