Colorer une cellule en fonction de sa valeur

Fermé

SansNom - Modifié par SansNom le 27/03/2012 à 19:59
Utilisateur anonyme - 29 mars 2012 à 19:06

Bonjour,

Je cherche à utiliser une macro pour pouvoir colorer le fond d'une cellule en fonction de la valeur qu'elle contient.

Par exemple j'ai 3 colonnes qui reçoivent une valeur (par programmation en php) et je voudrais que la première colonne se colore en rouge si sa valeur est supérieure à 200, la deuxième se colore en orange si la valeur est comprise entre 100 et 200 et la troisième en vert si la valeur est inférieure à 100.

Je pensais utiliser une macro mais je ne sais pas vraiment comment ça fonctionne finalement, pourriez-vous m'éclairer un peu svp ?
Ou peut être y a t-il une solution ?

Merci beaucoup de vos futures réponses

PS : je travaille avec Open Office sur un fichier .odt

A voir également:

Colorer une cellule en fonction de sa valeur
Fonction si et - Guide
Colorer une cellule excel en fonction de sa valeur - Guide
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Excel
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Aller à la ligne dans une cellule excel - Guide

1 réponse

Réponse 1 / 1

Utilisateur anonyme
29 mars 2012 à 19:06

Bonjour,

À placer derrière la feuille ...

Private Sub Worksheet_Change(ByVal Target As Range)

    If (Target.Column = 1) Then
        If (Target.Value > 200) Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = 0
        End If
    Else
        If (Target.Column = 2) Then
            If (Target.Value > 99 And Target.Value < 201) Then
                Target.Interior.ColorIndex = 5
            Else
                Target.Interior.ColorIndex = 0
            End If
        Else
            If (Target.Column = 3) Then
                If ((Target.Value < 100) And (Target.Value <> "")) Then
                    Target.Interior.ColorIndex = 3
                Else
                    If (Target.Value = "") Then
                        Target.Interior.ColorIndex = 0
                    End If
                End If
            End If
        End If
    End If
End Sub
'

Cdt

Lupin

Discussions similaires

Problème de restrictions

Excel:récupérer le contenu d'une cellule en fonction d'une autre

Excel : colorer une cellule sous condition d'une autre ?

Renseigner cellule en fonction de la valeur d'une autre cellule

Remplir une cellule (texte) en fonction d'une autre (texte).

Discussions similaires

Newsletters