- Sélectionnez une seule cellule à l'aide de VBA
- Sélectionnez une plage de cellules à l'aide de VBA
- Sélectionnez une plage de cellules non contiguës à l'aide de VBA
- Sélectionner toutes les cellules d'une feuille de calcul
- Sélectionnez une ligne
- Sélectionnez une colonne
- Sélectionnez la dernière cellule non vide dans une colonne
- Sélectionnez la dernière cellule non vide d'une ligne
- Sélectionnez la région actuelle dans VBA
- Sélectionnez une cellule relative à une autre cellule
- Sélectionnez une plage nommée dans Excel
- Sélection d'une cellule sur une autre feuille de calcul
- Manipulation de l'objet de sélection en VBA
- Utiliser le With… End With Construct
VBA vous permet de sélectionner une cellule, des plages de cellules ou toutes les cellules de la feuille de calcul. Vous pouvez manipuler la cellule ou la plage sélectionnée à l'aide de l'objet de sélection.
Sélectionnez une seule cellule à l'aide de VBA
Vous pouvez sélectionner une cellule dans une feuille de calcul à l'aide de la méthode Select. Le code suivant sélectionnera la cellule A2 dans ActiveWorksheet :
1 | Plage ("A2").Sélectionnez |
Ou
1 | Cellules(2, 1).Sélectionnez |
Le résultat est:
Sélectionnez une plage de cellules à l'aide de VBA
Vous pouvez sélectionner un groupe de cellules dans une feuille de calcul à l'aide de la méthode Select et de l'objet Range. Le code suivant sélectionnera A1:C5 :
1 | Plage("A1:C5").Sélectionnez |
Sélectionnez une plage de cellules non contiguës à l'aide de VBA
Vous pouvez sélectionner des cellules ou des plages qui ne sont pas côte à côte, en séparant les cellules ou les plages à l'aide d'une virgule dans VBA. Le code suivant vous permettra de sélectionner les cellules A1, C1 et E1 :
1 | Plage ("A1, C1, E1").Sélectionnez |
Vous pouvez également sélectionner des ensembles de plages non contiguës dans VBA. Le code suivant sélectionnera A1:A9 et B11:B18 :
1 | Plage ("A1:A9, B11:B18").Sélectionnez |
Sélectionner toutes les cellules d'une feuille de calcul
Vous pouvez sélectionner toutes les cellules d'une feuille de calcul à l'aide de VBA. Le code suivant sélectionnera toutes les cellules d'une feuille de calcul.
1 | Cellules.Sélectionner |
Sélectionnez une ligne
Vous pouvez sélectionner une certaine ligne dans une feuille de calcul à l'aide de l'objet Row et du numéro d'index de la ligne que vous souhaitez sélectionner. Le code suivant sélectionnera la première ligne de votre feuille de calcul :
1 | Lignes(1).Sélectionner |
Sélectionnez une colonne
Vous pouvez sélectionner une certaine colonne dans une feuille de calcul à l'aide de l'objet Colonne et du numéro d'index de la colonne que vous souhaitez sélectionner. Le code suivant sélectionnera la colonne C dans votre feuille de calcul :
1 | Colonnes(3).Sélectionner |
Sélectionnez la dernière cellule non vide dans une colonne
Disons que vous avez des données dans les cellules A1, A2, A3 et A4 et que vous souhaitez sélectionner la dernière cellule non vide qui serait la cellule A4 dans la colonne. Vous pouvez utiliser VBA pour ce faire et la méthode Range.End.
Les Range.End Méthode peut prendre quatre arguments à savoir : xlVersGauche, xlVersDroite, xlHaut et xlBas.
Le code suivant sélectionnera la dernière cellule non vide qui serait A4 dans ce cas, si A1 est la cellule active :
1 | Plage("A1").End(xlDown).Sélectionner |
Sélectionnez la dernière cellule non vide d'une ligne
Disons que vous avez des données dans les cellules A1, B1, C1, D1 et E1 et que vous souhaitez sélectionner la dernière cellule non vide qui serait la cellule E1 de la ligne. Vous pouvez utiliser VBA pour ce faire et la méthode Range.End.
Le code suivant sélectionnera la dernière cellule non vide qui serait E1 dans ce cas, si A1 est la cellule active :
1 | Plage("A1").End(xlToRight).Select |
Sélectionnez la région actuelle dans VBA
Vous pouvez utiliser le Propriété CurrentRegion de l'objet Range afin de sélectionner une plage rectangulaire de cellules vides et non vides autour d'une cellule d'entrée donnée spécifique. Si vous avez des données dans les cellules A1, B1 et C1, le code suivant sélectionnerait cette région autour de la cellule A1 :
1 | Plage("A1").CurrentRegion.Select |
Ainsi, la plage A1:C1 serait sélectionnée.
Sélectionnez une cellule relative à une autre cellule
Vous pouvez utiliser le Propriété de décalage pour sélectionner une cellule relative à une autre cellule. Le code suivant vous montre comment sélectionner la cellule B2 qui est 1 ligne et 1 colonne par rapport à la cellule A1 :
1 | Plage("A1").Décalage(1, 1).Sélectionner |
Sélectionnez une plage nommée dans Excel
Vous pouvez sélectionner Plages nommées également. Disons que vous avez nommé les cellules A1:A4 Fruit. Vous pouvez utiliser le code suivant pour sélectionner cette plage nommée :
1 | Gamme("Fruit").Sélectionnez |
Sélection d'une cellule sur une autre feuille de calcul
Pour sélectionner une cellule sur une autre feuille de calcul, vous devez d'abord activer la feuille à l'aide de la méthode Worksheets.Activate. Le code suivant vous permettra de sélectionner la cellule A7, sur la feuille nommée Sheet5 :
12 | Feuilles de calcul("Feuille5").ActiverPlage ("A1").Sélectionnez |
Manipulation de l'objet de sélection en VBA
Une fois que vous avez sélectionné une cellule ou une plage de cellules, vous pouvez vous référer à l'objet de sélection afin de manipuler ces cellules. Le code suivant sélectionne les cellules A1:C1 et définit la police de ces cellules sur Arial, l'épaisseur de la police sur gras, le style de police sur italique et la couleur de remplissage sur vert.
123456789 | Sélection de sous-format()Plage ("A1:C1").SélectionnezSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueSelection.Interior.Color = vbGreenFin du sous-marin |
Le résultat est:
Utiliser le With… End With Construct
Nous pouvons répéter l'exemple ci-dessus en utilisant l'instruction With / End With pour faire référence à l'objet de sélection une seule fois. Cela évite de taper et rend généralement votre code plus facile à lire.
1234567891011 | Sub UsingWithEndWithSelection()Plage ("A1:C1").SélectionnezAvec sélection.Font.Name = "Arial".Font.Bold = True.Font.Italic = True.Intérieur.Couleur = vbVertTerminer parFin du sous-marin |