Ce didacticiel vous montrera comment utiliser la propriété Range.End dans VBA.
La plupart des tâches que vous effectuez manuellement dans un classeur ou une feuille de calcul Excel peuvent être automatisées dans le code VBA.
Si vous avez une plage de cellules non vides dans Excel et que vous appuyez sur Ctrl+Flèche vers le bas, votre curseur se déplacera jusqu'à la dernière cellule non vide de la colonne dans laquelle vous vous trouvez. De même, si vous appuyez sur Ctrl+Flèche vers le haut, votre curseur se déplacera sur la première cellule non vide. Il en va de même pour une ligne utilisant le Ctrl+Flèche droite ou Ctrl+Flèche gauche pour aller au début ou à la fin de cette ligne. Toutes ces combinaisons de touches peuvent être utilisées dans votre code VBA en utilisant le Fonction de fin.
Syntaxe de propriété de fin de plage
La propriété Range.End vous permet de vous déplacer vers une cellule spécifique dans la région actuelle avec laquelle vous travaillez.
expression.Finir (Direction)
l'expression est l'adresse de la cellule (Plage) de la cellule à partir de laquelle vous souhaitez commencer, par exemple : Plage ("A1")
END est la propriété de l'objet Range contrôlé.
La direction est la constante Excel que vous pouvez utiliser. Il y a 4 choix disponibles - xlBas, xlVersGauche, xlVersDroite et xlUp.
Passer à la dernière cellule
La procédure ci-dessous vous amènera à la dernière cellule de la région actuelle des cellules dans laquelle vous vous trouvez.
| 1234 | Sous GoToLast()'passe à la dernière cellule occupée dans la région actuelle des cellulesPlage("A1").End(xlDown).SélectionnerFin du sous-marin |
Compter les lignes
La procédure suivante vous permet d'utiliser le xlBas constante avec la propriété Range End pour compter le nombre de lignes dans votre région actuelle.
| 12345678 | Sous GoToLastRowofRange()Dim rw en tant qu'entierPlage ("A1").Sélectionnez'obtenir la dernière ligne dans la région actuellerw = Range("A1").End(xlDown).Row'montre combien de lignes sont utiliséesMsgBox "La dernière ligne utilisée dans cette plage est " & rwFin du sous-marin |
Alors que celui ci-dessous comptera les colonnes de la plage en utilisant le xlVersDroite constant.
| 12345678 | Sous GoToLastCellofRange()Dim col As IntegerPlage ("A1").Sélectionnez'obtenir la dernière colonne dans la région actuellecol = Range("A1").End(xlToRight).Column'montre combien de colonnes sont utiliséesMsgBox "La dernière colonne utilisée dans cette plage est " & colFin du sous-marin |
Création d'un tableau de plages
La procédure ci-dessous nous permet de commencer à la première cellule d'une plage de cellules, puis d'utiliser la propriété End(xlDown) pour rechercher la dernière cellule de la plage de cellules. Nous pouvons ensuite ReDim notre tableau avec le nombre total de lignes dans la plage, nous permettant ainsi de parcourir la plage de cellules.
| 123456789101112131415161718 | Tableau de sous-peuplement()'déclare le tableauDim strSuppliers() en tant que chaîne'déclare l'entier pour compter les lignesDim n en tant qu'entier'compter les lignesn = Range("B1", Range("B1").End(xlDown)).Rows.Count'initialiser et remplir le tableauReDim strClients(n)'déclare l'entier pour la boucleDiminuer en tant qu'entier'remplir le tableauPour i = 0 à nstrCustomers(i) = Range("B1").Offset(i, 0).ValeurEnsuite je'afficher la boîte de message avec les valeurs du tableauMsgBox Join(strClients, vbCrLf)Fin du sous-marin |
Lorsque nous exécutons cette procédure, elle renverra la boîte de message suivante.
