Créer une plage de variables dans VBA
Cet article présentera comment définir une variable dans la plage dans VBA Excel.
Définir une plage variable dans VBA
La plage est une propriété VBA utilisée pour sélectionner une seule cellule, un groupe de cellules, des lignes et des colonnes. La plage est largement utilisée dans VBA pour sélectionner des ensembles de données à partir de feuilles et leur attribuer des valeurs ou obtenir des valeurs à partir de l’ensemble de données.
Nous devons nous rappeler quelle plage utiliser lors de l’utilisation d’une propriété de plage. Pour surmonter ce problème, nous pouvons affecter la plage à une variable et l’utiliser plus tard chaque fois que nous voulons l’utiliser.
Ces variables sont utiles lorsqu’il s’agit de programmation et d’automatisation complexes. Les instructions Set peuvent être utilisées pour fixer une variable à une plage d’une taille spécifique, et la méthode de propriété de plage peut être utilisée pour obtenir des valeurs stockées dans cette plage spécifique ou les remplacer par d’autres valeurs.
Prenons un exemple et essayons d’assigner une plage à une variable.
Code:
# VBA
Sub VarRange()
Worksheets("Sheet1").Activate
Set ARange = Range("A1")
ARange.Value = "Selected"
End Sub
Production:
Comme vous pouvez le voir, nous avons attribué la cellule A1 à la variable ARange. Essayons maintenant d’affecter une plage de plusieurs cellules à une variable dans un autre exemple.
Code:
# VBA
Sub VarRange()
Worksheets("Sheet1").Activate
Set ARange = Range("A1:B10")
ARange.Value = "Selected"
End Sub
Production:
À partir du code ci-dessus, nous avons attribué la valeur à toutes les cellules présentes dans cette plage. Nous pouvons utiliser cette méthode pour attribuer des valeurs à une certaine ligne ou une colonne.
Nous pouvons également utiliser la plage de variables pour lire la valeur de la plage. Essayons de lire la valeur de la cellule et de l’afficher dans la boîte de message.
Code:
# VBA
Sub VarRange()
Worksheets("Sheet1").Activate
Set ARange = Range("A4")
msgBox ARange
End Sub
Production:
