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. Lignes

expression Variable représentant un objet Range.

Remarques

Pour renvoyer une seule ligne, utilisez la propriété Item ou incluez un index entre parenthèses. Par exemple, et Selection.Rows.Item(1) retournent Selection.Rows(1) 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 uniquement les lignes de la première zone de la plage. Par exemple, si l’objet someRangeRange a deux zones (A1 :B2 et C3 :D4),someRange.Rows.Count 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, consultez la propriété Item .

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

Exemple

Cet exemple supprime la plage B4 :Z4 de la feuille Sheet1 du classeur actif.

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

Cet exemple montre comment supprimer des lignes de la région actuelle de la feuille de calcul 1 du classeur actif, 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.