Cet exemple illustre la propriété End de l’objet Range dans Excel VBA. Nous utiliserons cette propriété pour sélectionner la plage de la cellule active à la dernière entrée d’une colonne.

Quelques chiffres de ventes dans la colonne A. Supposons que vous ajouterez d’autres chiffres de ventes au fil du temps.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:

1. Pour sélectionner la dernière cellule d’une colonne, ajoutez simplement la ligne de code suivante:

Range("A7").End(xlDown).Select

Remarque: Au lieu de Range(“A7”), vous pouvez également utiliser Range(“A6”), Range(“A2”), etc. Cette ligne de code équivaut à appuyer sur Fn+ Flèche de bas.

Résultat lorsque vous cliquez sur le bouton de commande sur la feuille:

2. Pour sélectionner la plage de la cellule A8 à la dernière entrée de la colonne, ajoutez la ligne de code suivante:

Range (Range("A8"), Range ("A8"). End(xlDown)). Select

Résultat lorsque vous cliquez sur le bouton de commande sur la feuille:

3. Pour sélectionner la plage de la cellule active à la dernière entrée de la colonne, remplacez simplement Range (“A8”)  par ActiveCell.

 Range(ActiveCell, ActiveCell.End (xlDown)).Select

Résultat lorsque vous sélectionnez la cellule A2 et cliquez sur le bouton de commande sur la feuille:

 Remarque: vous pouvez utiliser les constantes xlUp, xlToRight et xlToLeft pour vous déplacer dans les autres directions. De cette façon, vous pouvez sélectionner une plage de la cellule active à la dernière entrée consécutive.