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

Situation:

Quelques chiffres de vente dans la colonne A. Supposons que vous ajouterez plus les chiffres des ventes au fil du temps.

From Active Cell to Last Entry in Excel VBA

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

  1. Pour sélectionner la dernière entrée dans une colonne, il suffit d’ajouter la ligne de code suivante:

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

Remarque: au lieu de Range ( « A5 »), vous pouvez également utiliser Range ( « A1 »), Range ( « A2 »), etc. Cette ligne de code équivaut à appuyer sur la FIN + BAS.

Lorsque vous cliquez sur le bouton de commande sur la feuille:

Last Entry

  1. Pour sélectionner la plage de cellules A5 à la dernière entrée dans la colonne, ajoutez la ligne de code suivant:

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

Lorsque vous cliquez sur le bouton de commande sur la feuille:

From Cell A5 to Last Entry 3. To select the range from the Active Cell to the last entry in the column, simply replace Range(« A5 ») with 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:

From Active Cell to Last Entry Result

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