Objet IconSet (Excel)
Cet objet représente un jeu d'icônes unique, utilisé dans une règle de mise en forme conditionnelle de jeu d'icônes.
L'objet IconSet est subordonné à la collection IconSets.
Le jeu d’icônes pour le format conditionnel est attribué à l’aide de la propriété IconSet de l’objet IconSetCondition . Vous définissez cette propriété sur l’un des jeux d’icônes intégrés en transmettant l’une des constantes de l’énumération XlIconSet en tant qu’index de la propriété IconSets de l’objet Workbook . Pour plus d'informations, voir l'exemple.
L’exemple de code suivant crée une plage de nombres représentant les scores de test, puis applique une règle de mise en forme conditionnelle de jeu d’icônes à cette plage. Le type du jeu d'icônes par défaut est ensuite remplacé par un jeu d'icônes de cinq flèches. Enfin, le type de seuil en centiles est remplacé par un nombre codé en dur.
Sub CreateIconSetCF()
Dim cfIconSet As IconSetCondition
'Fill cells with sample data from 1 to 10
With ActiveSheet
.Range("C1") = 55
.Range("C2") = 92
.Range("C3") = 88
.Range("C4") = 77
.Range("C5") = 66
.Range("C6") = 93
.Range("C7") = 76
.Range("C8") = 80
.Range("C9") = 79
.Range("C10") = 83
.Range("C11") = 66
.Range("C12") = 74
End With
Range("C1:C12").Select
'Create an icon set conditional format for the created sample data range
Set cfIconSet = Selection.FormatConditions.AddIconSetCondition
'Change the icon set to a 5-arrow icon set
cfIconSet.IconSet = ActiveWorkbook.IconSets(xl5Arrows)
'The IconCriterion collection contains all of IconCriteria
'By indexing into the collection you can modify each criteria
With cfIconSet.IconCriteria(1)
.Type = xlConditionValueNumber
.Value = 0
.Operator = 7
End With
With cfIconSet.IconCriteria(2)
.Type = xlConditionValueNumber
.Value = 60
.Operator = 7
End With
With cfIconSet.IconCriteria(3)
.Type = xlConditionValueNumber
.Value = 70
.Operator = 7
End With
With cfIconSet.IconCriteria(4)
.Type = xlConditionValueNumber
.Value = 80
.Operator = 7
End With
With cfIconSet.IconCriteria(5)
.Type = xlConditionValueNumber
.Value = 90
.Operator = 7
End With
End Sub
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.