Propriété Worksheet.Cells (Excel)

Article
04/07/2023

Renvoie un objet Plage représentant toutes les cellules de la feuille de calcul (pas uniquement celles en cours d'utilisation).

Syntaxe

expression.Cells

expression Variable qui représente un objet Feuille de calcul.

Remarques

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

Utilisée sans qualificateur d'objet, cette propriété renvoie un objet Range qui représente toutes les cellules de la feuille de calcul active.

Exemple

Cet exemple définit à 14 la taille de police de la cellule C5 dans la feuille1 du classeur actif.

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

Cet exemple effacera la formule dans la cellule 1 de la feuille1 du classeur actif.

Worksheets("Sheet1").Cells(1).ClearContents

Cet exemple définit la police et la taille de police sur Arial 8 pour toutes les cellules de Sheet1.

With Worksheets("Sheet1").Cells.Font 
    .Name = "Arial" 
    .Size = 8 
End With

Cet exemple bascule entre les ordres de tri croissant et décroissant quand vous double-cliquez sur une cellule dans la plage de données. Les données sont triées en fonction de la colonne de la cellule sur laquelle vous double-cliquez.

Option Explicit
Public blnToggle As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LastColumn As Long, keyColumn As Long, LastRow As Long
    Dim SortRange As Range
    LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    
    keyColumn = Target.Column
    
    If keyColumn <= LastColumn Then
    
        Application.ScreenUpdating = False
        Cancel = True
        LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
        Set SortRange = Target.CurrentRegion
        
        blnToggle = Not blnToggle
        If blnToggle = True Then
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
        Else
            SortRange.Sort Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
        End If
    
        Set SortRange = Nothing
        Application.ScreenUpdating = True
        
    End If
End Sub

Cet exemple examine la colonne C de la feuille active et, pour chaque cellule qui possède un commentaire, il place le texte du commentaire dans la colonne D et supprime le commentaire dans la colonne C.

Public Sub SplitCommentsOnActiveSheet()
   'Set up your variables
   Dim cmt As Comment
   Dim rowIndex As Integer
   
   'Go through all the cells in Column C, and check to see if the cell has a comment.
   For rowIndex = 1 To WorksheetFunction.CountA(Columns(3))
      Set cmt = Cells(rowIndex, 3).Comment
      If Not cmt Is Nothing Then
      
         'If there is a comment, paste the comment text into column D and delete the original comment.
         Cells(rowIndex, 4) = Cells(rowIndex, 3).Comment.Text
         Cells(rowIndex, 3).Comment.Delete
      End If
   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.

Share via