Partager via

Objet Interior (Excel)

  • Article

Cet objet représente l'intérieur d'un objet.

Exemple

Utilisez la propriété Interior de l’objet Range pour renvoyer l’objet Interior . L'exemple suivant montre comment remplir la cellule A1 de couleur rouge.

Worksheets("Sheet1").Range("A1").Interior.ColorIndex = 3

Cet exemple obtient la valeur de la couleur d’une cellule de la colonne A à l’aide de la propriété ColorIndex , puis utilise cette valeur pour trier la plage par couleur.

Sub ColorSort()
   'Set up your variables and turn off screen updating.
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   
   'For each cell in column A, go through and place the color index value of the cell in column C.
   For iCounter = 2 To 55
      Cells(iCounter, 3) = _
         Cells(iCounter, 1).Interior.ColorIndex
   Next iCounter
   
   'Sort the rows based on the data in column C
   Range("C1") = "Index"
   Columns("A:C").Sort key1:=Range("C2"), _
      order1:=xlAscending, header:=xlYes
   
   'Clear out the temporary sorting value in column C, and turn screen updating back on.
   Columns(3).ClearContents
   Application.ScreenUpdating = True
End Sub

Propriétés

Voir aussi

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.