Excel colorier cellules selon pourçentage
Résolu
Sangoran
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
-
Sangoran Messages postés 36 Date d'inscription Statut Membre Dernière intervention -
Sangoran Messages postés 36 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous!
Encore un topic avec le coloriage de cellules... :S malheureusement je n'ai pas réussi à trouver mon bonheur en cherchant déjà dans les discussions existantes..
Voici ce que j'aimerai obtenir:
si % > 30% alors vert
si % entre 30% et 10% alors bleu clair
si % entre 10% et -10% alors jaune
si % entre -10% et -30% alors orange
si % < -30% alors rouge
Cellules concernées par cette macro:
(U8:U215) et (W8:W215)
Voili voilou... si quelqu'un peut me donner un coup de main..
Un grand merci!
Sangoran
Encore un topic avec le coloriage de cellules... :S malheureusement je n'ai pas réussi à trouver mon bonheur en cherchant déjà dans les discussions existantes..
Voici ce que j'aimerai obtenir:
si % > 30% alors vert
si % entre 30% et 10% alors bleu clair
si % entre 10% et -10% alors jaune
si % entre -10% et -30% alors orange
si % < -30% alors rouge
Cellules concernées par cette macro:
(U8:U215) et (W8:W215)
Voili voilou... si quelqu'un peut me donner un coup de main..
Un grand merci!
Sangoran
A voir également:
- Excel remplissage cellule en fonction du pourcentage
- Fonction si et excel - Guide
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Excel camembert pourcentage - Guide
3 réponses
Bonjour,
Il faut une macro événementielle. Quelque chose comme ça, à mettre dans le code de la feuille :
m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
Il faut une macro événementielle. Quelque chose comme ça, à mettre dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
Set cellule = Application.Intersect(Range("U8:U215, W8:W215"), Target)
If cellule Is Nothing Then Exit Sub
'On Error Resume Next
Select Case Target.Value
Case Is < -30
Target.Interior.ColorIndex = 3
Case Is < -10
Target.Interior.ColorIndex = 45
Case ""
Target.Interior.ColorIndex = xlNone
Case Is < 10
Target.Interior.ColorIndex = 6
Case Is < 30
Target.Interior.ColorIndex = 34
Case Is > 30
Target.Interior.ColorIndex = 43
End Select
End Sub--
m@rina
- "Sur le forum bureautique, on pose des questions concernant la bureautique..."
- "Ah bon ???"
Merci pour ton aide! Cependant j'ai un code d'erreur " Erreur d'éxecution '13' " puis VBA s'ouvre directement et la ligne " Case Is < -30 " est sélectionnée en jaune..
Désolé mais je ne suis vraiment pas un spécialiste alors j'ai du mal à savoir comment résoudre ce problème :)
Une idée de quoi ça provient?