Propriété Application.Range (Excel)

Renvoie un objet Range qui représente une cellule ou une plage de cellules.

Syntaxe

expression. Plage (Cellule1, Cellule2)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Cell1	Obligatoire	Variant	Nom du la plage. Il doit s'agir d'une référence de style A1 dans le langage de la macro. Elle peut inclure l'opérateur de plage (signe deux points), l'opérateur d'intersection (espace) ou l'opérateur d'union (virgule). Il peut également inclure des signes dollar, mais ils sont ignorés. Utilisez un nom local défini dans n’importe quelle partie de la plage. Si vous utilisez un nom, le nom doit être dans la langue de la macro.
Cell2	Facultatif	Variant	La cellule située dans les angles supérieur gauche et inférieur droit de la plage spécifiée. Il peut s'agir d'un objet Range contenant une seule cellule, une colonne entière ou une ligne entière, ou d'une chaîne qui nomme une cellule dans le langage de la macro.

Remarques

Lorsqu’elle est utilisée sans qualificateur d’objet, cette propriété est un raccourci pour ActiveSheet.Range (elle renvoie une plage de la feuille active ; si la feuille active n’est pas une feuille de calcul, la propriété échoue).

Lorsqu’elle est appliquée à un objetRange, la propriété est relative à l’objet Range. Par exemple, si la sélection est la cellule C3, Selection.Range("B1") renvoie la cellule D3 car elle est relative à l’objet Range retourné par la propriétéSélection . En revanche, le code ActiveSheet.Range("B1") renvoie toujours la cellule B1.

Exemple

Cet exemple définit la valeur de la cellule A1 de Sheet1 sur 3,14159.

Worksheets("Sheet1").Range("A1").Value = 3.14159

Cet exemple crée une formule dans la cellule A1 de la Feuille1.

Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"

Cet exemple s’applique aux cellules A1:D10 de la Feuille1. Si la valeur d'une des cellules est inférieure à 0,001, le code remplace la valeur par 0 (zéro).

For Each c in Worksheets("Sheet1").Range("A1:D10") 
 If c.Value < .001 Then 
 c.Value = 0 
 End If 
Next c

Cet exemple montre comment exécuter une boucle sur la plage nommée TestRange et afficher le nombre de cellules vides dans la plage.

numBlanks = 0 
For Each c In Range("TestRange") 
 If c.Value = "" Then 
 numBlanks = numBlanks + 1 
 End If 
Next c 
MsgBox "There are " & numBlanks & " empty cells in this range"

Cet exemple définit le style de police sur italique pour les cellules A1:C5 de Sheet1. L'exemple utilise la syntaxe 2 de la propriété Range.

Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _ 
 Font.Italic = True 

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.