Bonjour à tous,

Je travail sur un formulaire qui me remplis certaines cellules avec des valeurs.
J'aiemrais ajouter des conditions à ces cellules pour avoir des drapeaux ou signes qui s'affichent selon valeur exacte.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
        'Create an icon set conditional format for the created sample data range
        Dim Cond As IconSetCondition
        Set Cond = Sheets("Daily").Cells.FormatConditions.AddIconSetCondition
        Cond.IconSet = ActiveWorkbook.IconSets(xl3Flags)
 
        With Cond.IconCriteria(1)
            .Type = xlConditionValueNumber
            .Value = 200
            .Operator = 7
        End With
        With Cond.IconCriteria(2)
            .Type = xlConditionValueNumber
            .Value = 300
            .Operator = 7
        End With
        With Cond.IconCriteria(3)
            .Type = xlConditionValueNumber
            .Value = 400
            .Operator = 7
        End With
Le degub m'indique une erreur ici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
  .Type = xlConditionValueNumber
Une idée de comment réussir à faire marcher ces conditions ?
Mercid d'avance