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 -
A voir également:
- Excel remplissage cellule en fonction du pourcentage
- Fonction si et excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Liste déroulante excel - Guide
- 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?