Couleur de case en fonction d'un chiffre

ascarter

XLDnaute Junior
Bonjour,
J'aimerais que lorque l'on rentre des valeurs dans le tableau, le fond soit rouge lorque la valeur est comprise entre 0 et 10, et que le fond soit vert lorque la valeur est supérieure à 10.
Merci d'avance pour vos réponses.
 

Pièces jointes

  • Test couleur.xls
    13.5 KB · Affichages: 51
  • Test couleur.xls
    13.5 KB · Affichages: 52
  • Test couleur.xls
    13.5 KB · Affichages: 56

Fredevils

XLDnaute Junior
Re : Couleur de case en fonction d'un chiffre

bonjour,


a faire avec la Mise en Forme Conditionnel :

Format : Mise en Forme Conditonnel.


Ton fichier modifé en Piece Jointe
 

Pièces jointes

  • TESTcouleur.xls
    13.5 KB · Affichages: 58
  • TESTcouleur.xls
    13.5 KB · Affichages: 53
  • TESTcouleur.xls
    13.5 KB · Affichages: 58

Vilain

XLDnaute Accro
Re : Couleur de case en fonction d'un chiffre

Bonjour,

Voici ton fichier en retour.
Jette un oeil sur les 2 règles de mise en forme conditionnelle.

Cela convient-il ?

A plus
 

Pièces jointes

  • Test%20couleur(1).xls
    27 KB · Affichages: 48
  • Test%20couleur(1).xls
    27 KB · Affichages: 58
  • Test%20couleur(1).xls
    27 KB · Affichages: 50

ascarter

XLDnaute Junior
Re : Couleur de case en fonction d'un chiffre

J'aimerais le faire en VBA si possible pour voir comment sa marche. Car mon problème est bien plus complexe que cela. Si vous pouvez m'aider pour réaliser cela déjà. Aprés je m'adapterais pour solutioner mon problème. Merci
 

DoubleZero

XLDnaute Barbatruc
Re : Couleur de case en fonction d'un chiffre

Bonjour à toutes et à tous,

Un suggestion à tester :

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0
Dim c As Range
Set PLAGE = Range("a1").CurrentRegion
PLAGE.Interior.ColorIndex = xlNone
If Not Intersect(Target, PLAGE) Is Nothing Then
  For Each c In PLAGE
    If c.Value > 10 Then c.Interior.ColorIndex = 4
    If c.Value <= 10 Then c.Interior.ColorIndex = 3
    If c.Value = "" Then c.Interior.ColorIndex = xlNone
  Next
End If
Application.ScreenUpdating = -1
End Sub

A bientôt :)
 

Discussions similaires

Statistiques des forums

Discussions
312 428
Messages
2 088 344
Membres
103 821
dernier inscrit
Lorient56