Comptage de ligne

Bonjour

Je voudrais compter des lignes dans une feuille et placer le résultat dans une autre, pour cela j'ai ce code :

Sub V437A()
'
' V437A Macro
'
Dim nbLignes As Integer

    Sheets("feuil2").Select
    Range("A2").Select
    nbLignes = Range("A2", Selection.End(xlDown)).Cells.Count

    Sheets("feuil1").Select
    Range("F13").Value = nbLignes

End Sub

le soucis, c'est que cela ne se met pas à jour lorsque je rajoute d'autres lignes dans ma feuil2 ? feuil1 ne s'incrémente pas ?

Bonjour,

• pour que cela s'incrémente tout seul il faut une gestion, d'événement dans feuil2 https://www.excel-pratique.com/fr/vba/evenements_feuille.php
• mais il y a bien plus simple en mettant juste une formule classique