Partager via

Propriété Application.Rows (Excel)

  • Article

Renvoie un objet Range qui représente toutes les lignes de la feuille de calcul active. Si le document actif n'est pas une feuille de calcul, la propriété Rows échoue. Objet Range en lecture seule.

Syntaxe

expression. Lignes

expressionUne variable qui représente un objetApplication.

Remarques

L'utilisation de cette propriété sans qualificateur d'objet correspond à l'utilisation de ActiveSheet.Rows.

Lorsqu’elle est appliquée à un objet Range qui est une sélection multiple, cette propriété renvoie uniquement les lignes de la première zone de la plage. Par exemple, si l’objet Range a deux zones : A1:B2 et C3:D4, Selection.Rows.Count renvoie 2, et non 4.

Pour utiliser cette propriété dans une plage pouvant contenir une sélection de plusieurs zones, testez Areas.Count afin de déterminer si la plage contient plusieurs zones. Si c’est le cas, faites une boucle sur chaque zone de la plage, comme indiqué dans le troisième exemple.

Exemple

Cet exemple montre comment supprimer la ligne 3 dans la feuille Sheet1.

Worksheets("Sheet1").Rows(3).Delete

Cet exemple montre comment supprimer des lignes dans la zone en cours de la feuille de calcul 1 où la valeur de la cellule 1 de la ligne est la même que celle de la cellule 1 de la ligne précédente.

For Each rw In Worksheets(1).Cells(1, 1).CurrentRegion.Rows 
 this = rw.Cells(1, 1).Value 
 If this = last Then rw.Delete 
 last = this 
Next

Cet exemple montre comment afficher le nombre de lignes dans la sélection de la feuille Sheet1. Si plusieurs zones sont sélectionnées, l'exemple montre comment faire une boucle sur chaque zone.

Worksheets("Sheet1").Activate 
areaCount = Selection.Areas.Count 
If areaCount <= 1 Then 
 MsgBox "The selection contains " & _ 
 Selection.Rows.Count & " rows." 
Else 
 i = 1 
 For Each a In Selection.Areas 
 MsgBox "Area " & i & " of the selection contains " & _ 
 a.Rows.Count & " rows." 
 i = i + 1 
 Next a 
End If

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.