Partager via

Objet IconSetCondition (Excel)

  • Article

Cet objet représente une règle de mise en forme conditionnelle de jeu d’icônes.

Remarques

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 de jeu d’icônes à l’aide de la méthode Add ou AddIconSetCondition de la collection FormatConditions .

Chaque jeu d’icônes contient trois, quatre ou cinq icônes. Vous utilisez la propriété IconSets de l’objet Workbook pour renvoyer un objet IconSets afin de spécifier l’un des jeux d’icônes intégrés. Chaque icône de l’ensemble d’icônes est ensuite affectée à un sous-ensemble des valeurs de la plage par les membres de l’objet IconCriteria . Le type de seuil est également spécifié par cet objet.

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 five-arrow icon set 
    cfIconSet.IconSet = ActiveWorkbook.IconSets(xl5Arrows) 
     
    'The IconCriterion collection contains all IconCriteria 
    'By indexing into the collection you can modify each criterion 
 
    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

Méthodes

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.