Comment compter les lignes dans un tableau à l’aide de VBA (avec exemple)

Vous pouvez utiliser la syntaxe suivante pour compter le nombre de lignes dans un tableau dans Excel à l’aide de VBA :

Sub CountTableRow()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects("Table1")

'create message box that displays row count
MsgBox "Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       "Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       "Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

Cet exemple particulier compte le nombre de lignes suivant pour le tableau de la feuille active appelée Table1 :

• Nombre total de lignes
• Nombre total de lignes d’en-tête
• Nombre total de lignes du corps

Nous utilisons la fonction MsgBox pour créer une boîte de message qui affiche chacune de ces valeurs dans une seule boîte de message.

Remarque : Nous utilisons l’instruction vbNewLine pour insérer de nouvelles lignes et créer une boîte de message avec plusieurs lignes.

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : Comment compter les lignes d’un tableau à l’aide de VBA

Supposons que nous ayons le tableau suivant appelé Tableau1 qui contient des informations sur divers joueurs de basket-ball :

Nous pouvons créer la macro suivante pour compter le nombre de lignes dans ce tableau :

Sub CountTableRow()

Dim tbl As ListObject

'specify table to count rows in
Set tbl = ActiveSheet.ListObjects("Table1")

'create message box that displays row count
MsgBox "Total Rows: " & tbl.Range.Rows.Count & vbNewLine & _
       "Header Rows: " & tbl.HeaderRowRange.Rows.Count & vbNewLine & _
       "Body Rows: " & tbl.ListRows.Count

'set tbl variable to Nothing
Set tbl = Nothing

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

La boîte de message nous indique qu’il y a 10 lignes au total dans le tableau.

Cela nous indique également qu’il y a 1 ligne d’en-tête et 9 lignes de corps.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

Comment compter les valeurs uniques dans la plage à l’aide de VBA
Comment compter le nombre de lignes dans une plage à l’aide de VBA
Comment compter les cellules avec un texte spécifique à l’aide de VBA