Objet Top10 (Excel)
Représente l’un des dix visuels supérieurs d’une règle conditionnelle de mise en forme. L’application d’une couleur à une plage améliore la visibilité de la valeur d’une cellule par rapport aux autres cellules.
Tous les objets de mise en forme conditionnelle sont contenus dans un objet de collection FormatConditions , qui est un enfant d’une collection Range .
Vous pouvez créer une règle de mise en forme top 10 à l’aide de la méthode Add ou AddTop10 de la collection FormatConditions .
L'exemple suivant génère un jeu de données dynamique et applique la couleur aux dix valeurs principales par le biais de règles conditionnelles de mise en forme.
Sub Top10CF()
' Building data
Range("A1").Value = "Name"
Range("B1").Value = "Number"
Range("A2").Value = "Agent1"
Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault
Range("B2:B26").FormulaArray = "=INT(RAND()*101)"
Range("B2:B26").Select
' Applying Conditional Formatting Top 10
Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
End With
' Applying color fill
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
MsgBox "Added Top10 Conditional Format. Press F9 to update values.", vbInformation
End Sub
- Application
- AppliesTo
- Borders
- CalcFor
- Creator
- Font
- Interior
- NumberFormat
- Parent
- Percent
- Priority
- PTCondition
- Rank
- ScopeType
- StopIfTrue
- TopBottom
- Type
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.