Bonjour à vous,
Voilà j'ai crée un code qui me permet de faire trois calcul qui vont s'afficher dans trois cellules. Jusque là pas de problème. Pour avoir un aspect un peu plus sympa je voudrais bien pouvoir afficher ces cellules en couleur selon les valeurs obtenus. Mettre en rouge quand la valeur est < à 80 en jaune quand 80<valeur<100 et en vert pour >100.
j'ai fais quelquechose qui m'affichent bien des couleurs mais çà ne fonctionne pas pour le vert. Il m'affiche toujours du jaune même quand il est > à 100 alors que pour le rouge çà marche bien. Auriez vous une idée d'ou cela peut venir?
Je met le bout de code sur le remplissage en couleur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 For j = 4 To 6 If Cells(2, j).Value < 80 Then Cells(2, j).Interior.ColorIndex = 3 ElseIf 80 < Cells(2, j).Value < 100 Then Cells(2, j).Interior.ColorIndex = 6 ElseIf 100 < Cells(2, j).Value Then Cells(2, j).Interior.ColorIndex = 4 End If Next
Partager