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
- Proteger cellule excel - 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?