Partager via

Porpriété Range.Cells (Excel)

  • Article

Renvoie un objet Range qui représente les cellules de la plage spécifiée.

Remarque

Vous voulez développer des solutions qui étendent l’expérience Office sur plusieurs plateformes ? Découvrez le nouveau modèle de compléments Office. Les compléments Office ont un encombrement réduit par rapport aux compléments et solutions VSTO. Vous pouvez les créer à l’aide de pratiquement n’importe quelle technologie de programmation web, telle que HTML5, JavaScript, CSS3 et XML.

Syntaxe

expression.Cells

expression Variable représentant un objet Range.

Remarques

La valeur renvoyée est une plage comprenant des cellules individuelles, ce qui permet d’utiliser la version de l’élément avec 2 paramètres et aux boucles For Each d’itérer sur les cellules individuelles.

Étant donné que le membre par défaut de la plage transfère les appels avec les paramètres à la propriété Élément, vous pouvez spécifier l’index de ligne et de colonne situé immédiatement après le mot-clé Cellules au lieu d’effectuer un appel explicite à Élément.

L’utilisation de Cellules sans un qualificateur d’objet revient à utiliser ActiveSheet.Cells.

Exemple

Cet exemple définit le style de police pour les cellules B2:D6 sur la Feuil1 du classeur actuel à Italique.

With Worksheets("Sheet1").Range("B2:Z100") 
   .Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True
End With

Cet exemple montre comment analyser une colonne de données myRange. Si une cellule contient la même valeur que la cellule la précédant, l'adresse de la cellule contenant le doublon est affichée.

Set r = Range("myRange") 
For n = 2 To r.Rows.Count 
    If r.Cells(n-1, 1) = r.Cells(n, 1) Then 
        MsgBox "Duplicate data in " & r.Cells(n, 1).Address 
    End If 
Next

Cet exemple montre comment Cellules modifie le comportement du membre Élément.

Public Sub PrintRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:Z100").Columns
   
   Debug.Print columnsRange.Item(2).Address         'Prints "$C$2:$C$100" 
   Debug.Print columnsRange.Cells.Item(2).Address   'Prints "$C$2" 
   Debug.Print columnsRange.Cells.Item(2,1).Address 'Prints "$B$3"   
End Sub

Cet exemple montre comment Cellules modifie le comportement d’énumération.

Public Sub PrintAllRangeAdresses
   Dim columnsRange As Excel.Range
   Set columnsRange = ThisWorkBook.Worksheets("exampleSheet").Range("B2:C3").Columns
   
   Dim columnRange As Excel.Range
   For Each columnRange In columnsRange
      Debug.Print columnRange.Address   'Prints "$B$2:$B$3", "$C$2:$C$3"
   Next
   
   Dim cell As Excel.Range
   For Each cell In columnsRange.Cells
      Debug.Print cell.Address          'Prints "$B$2", "$C$2", "$B$3", "$C$3"
   Next  
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.