Cet exemple vous apprend à sélectionner des lignes et des colonnes entières dans Excel VBA. Êtes-vous prêt ?

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

1. La ligne de code suivante sélectionne la feuille entière.

Cells.Select

Entière feuille en Excel VBA

Note : comme nous avons placé notre bouton de commande sur la première feuille de calcul, cette ligne de code sélectionne la première feuille entière. Pour sélectionner des cellules sur une autre feuille de calcul, vous devez d’abord activer cette feuille. Par exemple, les lignes de code suivantes sélectionnent la totalité de la deuxième feuille de calcul.

Worksheets(2).Activate
Worksheets(2).Cells.Select

2. La ligne de code suivante sélectionne la deuxième colonne.

Columns(2).Select

Column

3. La ligne de code suivante sélectionne la septième ligne.

Rows(7).Select

Row

4. Pour sélectionner plusieurs lignes, ajoutez une ligne de code comme celle-ci :

Rows(« 5:7 »).Select

Multiple Rows

5. Pour sélectionner plusieurs colonnes, ajoutez une ligne de code comme celle-ci :

Columns(« B:E »).Select

Multiples colonnes

6. Attention à ne pas confondre les propriétés Rows et Columns avec les propriétés Row et Column. Les propriétés Rows et Columns renvoient un objet Range. Les propriétés Row et Column renvoient une seule valeur.

Ligne de code:

MsgBox Cells(5, 2).Row

Résultat:

Propriété Row

7. Sélectionnez la cellule D6. La ligne de code suivante sélectionne la ligne entière de la cellule active.

ActiveCell.EntireRow.Select

EntireRow

Note : bordure pour illustration uniquement.

8. Sélectionnez la cellule D6. La ligne de code suivante entre la valeur 2 dans la première cellule de la colonne qui contient la cellule active.

ActiveCell.EntireColumn.Cells(1).Value = 2

EntireColumn

Note : bordure à titre d’illustration uniquement.

9. Sélectionnez la cellule D6. La ligne de code suivante saisit la valeur 3 dans la première cellule de la ligne située sous la ligne qui contient la cellule active.

ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = 3

EntireRow + Offset

Note : bordure à des fins d’illustration uniquement.

.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *