Propriété Range.Rows (Excel)

Cette propriété renvoie un objet Range qui représente les lignes dans la plage spécifiée.

Syntaxe

expression. Rows

expression Variable représentant un objet Range.

Remarques

Pour retourner une seule ligne, utilisez la propriété Item ou incluez un index entre parenthèses. Par exemple, les deux Selection.Rows(1) et Selection.Rows.Item(1) renvoient la première ligne de la sélection.

Lorsqu’elle est appliquée à un objet Range qui est une sélection multiple, cette propriété renvoie les lignes de la première zone de la plage uniquement. Par exemple, si l’objet someRangeRange comporte deux zones (A1 :B2 et C3 :D4),someRange.Rows.Count il retourne 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, passez en boucle sur chaque zone dans la plage, comme illustré dans le troisième exemple.

La plage renvoyée peut être en dehors de la plage spécifiée. Par exemple, Range("A1:B2").Rows(5) renvoie des cellules A5:B5. Pour plus d’informations, voir la propriété Article .

L’utilisation de la propriété Rows sans qualificateur d’objet équivaut à utiliser ActiveSheet.Rows. Pour plus d’informations, voir la propriété Worksheet.Rows .

Exemple

Cet exemple supprime la plage B4 :Z4 dans la feuille 1 du classeur actif.

Worksheets("Sheet1").Range("B2:Z44").Rows(3).Delete

Cet exemple supprime les lignes de la zone active de la première feuille de calcul active où la valeur de la cellule 1 de la ligne est identique à la valeur 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.

Public Sub ShowNumberOfRowsInSheet1Selection
   Worksheets("Sheet1").Activate 
   
   Dim selectedRange As Excel.Range
   Set selectedRange = Selection
   
   Dim areaCount As Long
   areaCount = Selection.Areas.Count 
   
   If areaCount <= 1 Then 
      MsgBox "The selection contains " & _ 
             Selection.Rows.Count & " rows." 
   Else 
      Dim areaIndex As Long
      areaIndex = 1 
      For Each area In Selection.Areas 
         MsgBox "Area " & areaIndex & " of the selection contains " & _ 
                area.Rows.Count & " rows." 
         areaIndex = areaIndex + 1 
      Next 
   End If
End Sub

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.