XL 2010 Calcul le nombre de ligne d'un tdc

[djc974]

Bonjour,

je souhaiterai une macro qui calcul automatiquement le nombre de ligne d'un tcd .
Exemple tableau ci joint en fonction des filtres appliqués

Merci

 

[chris]

Bonjour
Si le TCD a une structure aussi simple
Pour le nombre de personnes

    x = Worksheets("Feuil2").Range("A4").CurrentRegion.Rows.Count - 2

Si hors tout, remplaces -2 par + 2