Compter ligne tableau

Bonjour

Je voudrais savoir comment compter les lignes de mon tableau après avoir fait un filtre par code VBA;

Cela concerne la dernière partie du code nommé :

'--- Calcul Nb/Horaire/Zone1/pièces
With ActiveSheet.ListObjects("Tableau2")
    .Range.AutoFilter Field:=6, Criteria1:="1"       'Type Usager
    .Range.AutoFilter Field:=1, Criteria1:="Pièces"  'Type paiement
    .Range.AutoFilter Field:=4, Criteria1:="Zone 1"  'Type Zone
End With

ci joint mon fichier .xlsm + un fichier .csv pour tester

à chaque fois que j’essaie des codes, cela compte les lignes total... moi je veux compter uniquement les lignes filtré/trouvé

Bonjour

Utilise la fonction SOUS.TOTAL

X = WorksheetFunction.Subtotal(3, .ListColumns("Pièces").DataBodyRange)

Merci

Il me met une erreur :" l'indice n'appartient pas a la sélection"

RE

Si tu as bien une colonne intitulée Pièces et si cela est bien imbriqué dans le With...end with, il n'y a aucune raison que cela ne fonctionne pas

Edit : utilise X = WorksheetFunction.Subtotal(3, .ListColumns(1).DataBodyRange)

puisque le titre n'est pas Pièces

bonjour

Autant pour moi, j’ai fais une erreur...ça fonctionne bien

Merci