Macro pour colorer des cellules sous certaines conditions

[tortue14]

Bonjour,

Je suis une novice en langage vba et je cherche de l'aide.
Voilà j'attribue une couleur à une cellule en fonction du résultat d'une autre.
Ma macro est en I16, elle regarde le résultat en F16, si:
- le résultat est supérieur à 97%, alors vert en I16
- le résultat est inférieur à 97%, alors jaune en I16
- le résultat est inférieur à 95%, alors orange en I16
- le résultat est inférieur à 93%, alors rouge en I16.

J'ai essayé avec les instructions If Then Else End If et If Then Elself End If mais cela ne marche pas. J'arrive à exécuter une condition.

Si quelqu'un peut me souffler le code, je serai alors soulagée.

Merci à vous

 

[job75]

Re : Macro pour colorer des cellules sous certaines conditions

Bonjour,
Regardez bien, vos conditions se supperposent.
A+

 

[Staple1600]

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir


Essaie de voir du coté de Select Case

 

[Pierrot93]

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir à tous

peut être comme ceci :

If Range("F16").Value < 0.93 Then
    Range("I16").Interior.ColorIndex = 3
        ElseIf Range("F16").Value < 0.95 Then Range("I16").Interior.ColorIndex = 45
        ElseIf Range("F16").Value < 0.97 Then Range("I16").Interior.ColorIndex = 6
    Else
        Range("I16").Interior.ColorIndex = 50
End If

bonne soirée
@+

 

[JHA]

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir Tortue, le forum,

Un début de piste avec une MFC.

JHA

 

[skoobi]

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir tout le monde,

une autre proposition avec "Switch":

With Range("F16")
  Range("I16").Interior.ColorIndex = Switch(.Value < 0.93, 3, .Value >= 0.93 And .Value < 0.95, 45, .Value >= 0.95 And .Value < 0.97, 6, .Value >= 0.97, 50)
End With

 

[tortue14]

Re : Macro pour colorer des cellules sous certaines conditions

Merci à vous tous, je n'ai plus qu'à me remettre dessus et si j'ai un souci je me permettrai de vous écrire. Bonne soirée