VBA Row Count - Comment compter le nombre de lignes utilisées dans VBA?

Nombre de lignes Excel VBA

Dans la programmation VBA, faire référence aux lignes est également le plus important et compter les lignes est l'une des choses dont vous devez être conscient en ce qui concerne le codage VBA. Il y a beaucoup de valeur que nous pouvons obtenir si nous pouvons comprendre l'importance de compter les lignes contenant des données dans la feuille de calcul. Dans cet article, nous allons vous montrer comment compter les lignes à l'aide du codage VBA.

Comment compter les lignes dans VBA?

Exemple 1

Pour compter les lignes, nous devons utiliser l'objet RANGE, dans cet objet, nous devons utiliser l'objet ROWS, et dans ce cas, nous devons utiliser la propriété COUNT.

Par exemple, regardez les données ci-dessous dans Excel.

À partir des données ci-dessus, nous devons identifier le nombre de lignes de la plage A1 à A8. Alors définissez d'abord la variable comme un entier pour stocker le nombre de lignes.

Code:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub

Pour cette variable, nous attribuerons des numéros de ligne, alors entrez le nom de la variable et sortez le signe égal.

Code:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub

Nous devons fournir une plage de cellules, donc ouvrez l'objet RANGE et fournissez la plage sous la forme «A1: A8». Code:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub

Une fois la plage fournie, nous devons compter le nombre de lignes, choisissez donc la propriété ROWS de l'objet RANGE.

Dans la propriété ROWS de l'objet RANGE, nous comptons un certain nombre de lignes, choisissez donc la propriété "COUNT" maintenant.

Maintenant, dans la boîte de message, affichez la valeur de la variable.

Code:

Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub

Exécutez maintenant le code et voyez le nombre de lignes de la plage de cellules fournie.

Ok, il y a 8 lignes fournies pour la plage, donc le nombre de lignes est de 8 dans la boîte de message.

Exemple # 2

Nous avons également d'autres façons de compter les lignes, pour la méthode ci-dessus, nous devons fournir une plage de cellules, et dans cette plage de cellules, il montre le nombre de lignes sélectionnées.

Mais imaginez le scénario où nous devons trouver la dernière utilisée de n'importe quelle colonne, par exemple, prenez les mêmes données que ci-dessus.

Pour passer à la dernière cellule utilisée de la cellule A1, nous appuyons sur la touche de raccourci Excel "Ctrl + Flèche bas" , de sorte qu'il vous mènera à la dernière cellule avant la cellule vide.

Tout d'abord, fournissez la cellule comme A1 à l'aide de l'objet RANGE.

Code:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub

À partir de cette cellule, nous devons descendre et, dans la feuille de calcul, nous utilisons Ctrl + Flèche bas, mais dans VBA, nous utilisons la propriété END, choisissez cette propriété et ouvrez le crochet pour voir les options.

Regardez là avec la touche END, nous pouvons voir toutes les touches fléchées comme «xlDown, xlToLeft, xlToRight et xlUp» puisque nous devons descendre, utilisez l'option «xlDown».

Code:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub

Cela vous mènera à la dernière cellule avant toute pause, maintenant dans la cellule active, nous avons besoin du numéro de ligne, utilisez donc la propriété ROW.

Code:

Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub

OK fait. Maintenant, cela montrera le dernier numéro de ligne, et ce sera le nombre de lignes.

Donc, en lignes, nous avons des données.

Exemple # 3 - Rechercher la dernière ligne utilisée

Trouver la dernière ligne utilisée est si important pour décider combien de fois la boucle doit s'exécuter et dans la méthode ci-dessus, la dernière ligne s'arrête pour sélectionner s'il y a une cellule de point d'arrêt, donc dans cette méthode, nous pouvons trouver la dernière ligne utilisée sans des problèmes.

Ouvrez la propriété CELL.

Code:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (MsgBox No_Of_Rows End Sub

Maintenant, nous devons mentionner le numéro de ligne pour commencer, le problème ici est que nous ne savons pas combien de lignes de données nous avons, donc ce que nous pouvons faire est d'aller immédiatement à la dernière ligne de la feuille de calcul, pour cette mention ROWS Propriété .COUNT.

Code:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub

Ensuite, nous devons mentionner dans quelle colonne nous trouvons la dernière ligne utilisée, donc dans ce cas, nous trouvons dans la première colonne, alors mentionnez 1.

Code:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub

À ce moment, cela vous mènera à la dernière cellule de la première colonne, à partir de là, nous devons remonter pour aller à la dernière cellule utilisée, utilisez donc la propriété End (xlUp).

Code:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub

Donc, cela vous mènera à la dernière cellule utilisée de la colonne 1, et dans cette cellule, nous avons besoin du numéro de ligne, utilisez donc la propriété ROW pour obtenir le numéro de ligne.

Code:

Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub

Choses dont il faut se rappeler

• COUNT donnera un certain nombre de lignes dans la feuille de calcul.
• Si vous avez une plage, cela donnera un certain nombre de lignes sélectionnées dans la plage.
• La propriété ROW renverra le numéro de ligne de cellule active.