Fonction de fin VBA - Utilisation de la propriété End dans VBA (avec des exemples)

Fonction de fin dans VBA

End est une instruction dans VBA qui a plusieurs formes dans les applications VBA, une simple instruction End peut être placée n'importe où dans le code et elle arrêtera automatiquement l'exécution du code, l'instruction end est utilisée dans de nombreuses procédures comme pour terminer la sous-procédure ou pour terminer toute fonction de boucle comme End if.

Pour tout, il y a une fin, et en VBA, ce n'est pas différent. Vous devez avoir vu ce mot « Fin » dans tous les codes de votre VBA. Nous pouvons terminer par «End Sub», «End Function», «End If». Celles-ci sont courantes car nous savons que chaque extrémité suggère la fin de la procédure. Ces instructions VBA End ne nécessitent aucune introduction particulière car nous les connaissons dans notre codage VBA.

Hormis le "End" ci-dessus, nous avons une propriété, "End" dans VBA. Dans cet article, nous vous expliquerons cette propriété et comment l'utiliser dans notre codage.

Propriété de fin dans VBA

«End» est la propriété que nous utilisons dans VBA pour nous déplacer dans la direction suggérée. L'exemple typique de direction est le déplacement de la cellule active vers la dernière cellule utilisée ou la dernière cellule d'entrée horizontalement et verticalement dans la feuille de calcul.

Par exemple, rappelons-le avec une feuille de calcul. Regardez l'image ci-dessous.

En ce moment, nous sommes dans la cellule A1.

Si nous voulons passer à la dernière cellule utilisée horizontalement, nous utilisons la touche de raccourci Excel Ctrl + Flèche droite, et cela nous mènera à la dernière cellule utilisée horizontalement.

De même, si nous voulons passer à la dernière cellule utilisée vers le bas ou verticalement, nous appuyons sur la touche de raccourci Ctrl + Flèche bas.

Donc, pour se déplacer de gauche à droite, on appuie sur Ctrl + Flèche gauche. Pour passer de bas en haut, nous appuyons sur Ctrl + Flèche vers le haut.

Une chose similaire peut être faite dans VBA mais pas en utilisant la touche Ctrl . Nous devons plutôt utiliser le mot «Fin».

Exemples de fonction de fin Excel VBA

Exemple # 1 - Utiliser la propriété de fin VBA pour se déplacer dans la feuille de calcul

Voyons comment utiliser Excel VBA End pour se déplacer dans la feuille. Tout d'abord, nous devons décider de la cellule à déplacer. Ok, disons que nous devons nous déplacer de la cellule A1, alors faites référence à la cellule en utilisant l'objet VBA Range.

Code:

Sub End_Example1 () Range ("A1") End Sub

Mettez un point (.) Pour voir la liste IntelliSense. Sélectionnez la propriété VBA «End» dans la liste.

Code:

Sub End_Example1 () Range ("A1"). End End Sub

Une fois la propriété de fin sélectionnée, ouvrez les parenthèses.

Code:

Sub End_Example1 () Range ("A1"). End (End Sub

Dès que vous ouvrez les parenthèses, nous pouvons voir toutes les options disponibles avec la propriété «Fin». Sélectionnez «xlToRight» pour passer de la cellule A1 à la dernière cellule utilisée horizontalement.

Code:

Sub End_Example1 () Range ("A1"). End (xlToRight) End Sub

Après être passé à la dernière cellule, nous devons sélectionner ce que nous devons faire. Mettez un point (.) Pour voir la liste IntelliSense.

Code:

Sub End_Example1 () Range ("A1"). End (xlToRight). End Sub

Choisissez la méthode «Select» dans la liste IntelliSense.

Code:

Sub End_Example1 () Range ("A1"). End (xlToRight) .Select End Sub

Cela utilisera la cellule A1 pour les dernières cellules utilisées horizontalement.

De même, utilisez les trois autres options pour vous déplacer vers la droite, la gauche, le bas, le haut.

Pour se déplacer à droite de la cellule A1.

Code:

Sub End_Example1 () Range ("A1"). End (xlToRight) .Select End Sub

Pour descendre de la cellule A1.

Code:

Sub End_Example1 () Range ("A1"). End (xlDown) .Select End Sub

Pour remonter de la cellule A5.

Code:

Sub End_Example1 () Range ("A5"). End (xlUp) .Select End Sub

Pour se déplacer à gauche de la cellule D1.

Code:

Sub End_Example1 () Range ("D1"). End (xlToLeft) .Select End Sub

Tous les codes ci-dessus sont des exemples d'utilisation de la propriété «Fin» pour se déplacer dans la feuille de calcul.

Now we will see how to select the ranges by using the “End” property.

Example #2 - Selection Using End Property

We need to End the property to select the range of cells in the worksheet. For this example, consider the below data.

Select A1 to Last Used Cell

To select the cells from A1 to the last used cell horizontally, first, mention the cell A1 in Range object.

Code:

Sub End_Example2() Range("A1", End Sub

For the second argument, open one more Range object and mention the cell as A1 only.

Code:

Sub End_Example2() Range("A1",Range("A1") End Sub

Close only one bracket and put a dot to select the Excel VBA End property.

Code:

Sub End_Example2() Range("A1",Range("A1").End( End Sub

Now select xlToRight and close two brackets.

Code:

Sub End_Example2() Range("A1",Range("A1").End(xlToRight)) End Sub

Now chose the “Select” method.

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlToRight)).Select End Sub

Ok, we are done.

Run this code to see the impact.

As you can see, it has selected the range A1 to D1.

Similarly, to select downwards, use the below code.

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from left to right End Sub

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from top to down End Sub

Code:

Sub End_Example2() Range("D1", Range("D1").End(xlToLeft)).Select 'To select from right to left End Sub

Code:

Sub End_Example2() Range("A5", Range("A5").End(xlUp)).Select 'To select from bottom to up End Sub

Exemple # 3 - Sélectionnez de droite à gauche, de droite à bas et en haut

Nous avons vu comment sélectionner horizontalement et verticalement. Pour sélectionner à la fois verticalement et horizontalement, nous devons utiliser deux propriétés «End». Pour sélectionner les données de A1 à D5, nous devons utiliser le code ci-dessous.

Code:

Sub End_Example3 () Range ("A1", Range ("A1"). End (xlDown) .End (xlToRight)). Sélectionnez 'To from cell A1 to last use cell down down & right Sub

Cela sélectionnera la gamme complète comme ci-dessous.

De cette manière, nous pouvons utiliser la propriété VBA «End» Function pour sélectionner une plage de cellules.