Macro pour colorer des cellules sous certaines conditions

tortue14 · 25 Août 2008

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 · 25 Août 2008

Re : Macro pour colorer des cellules sous certaines conditions

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

Staple1600 · 25 Août 2008

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir

Essaie de voir du coté de Select Case

Pierrot93 · 25 Août 2008

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir à tous

peut être comme ceci :

Code:

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 · 25 Août 2008

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir Tortue, le forum,

Un début de piste avec une MFC.

JHA

skoobi · 25 Août 2008

Re : Macro pour colorer des cellules sous certaines conditions

Bonsoir tout le monde,

une autre proposition avec "Switch":

Code:

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 · 25 Août 2008

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

Macro pour colorer des cellules sous certaines conditions

tortue14

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

skoobi

XLDnaute Barbatruc

tortue14

XLDnaute Nouveau

Discussions similaires