Mise en forme conditionnelles d'un pourcentage

Bonjour,

Je suis sur excel 2010, et je suis à la recherche d'une MFC pour un tableau en pourcentage.

Si le pourcentage de réalisation est égal ou superieur à l'objectif => REMPLISSAGE VERT

si le pourcentage de réalisation est inferieur à l'objectif => REMPLISSAGE ORANGE

Si le pourcentage de réalisation est inferieur à l'objectif de plus de 10% => REMPLISSAGE ROUGE

En pièce jointe le doc avec les couleur mis manuellement.

Pouvez vous m'aider merci d'avance?

bonjour,

Voilà une macro à mettre dans la procédure de la feuille voulue.

Tu dois changer les cellules a prendre en compte la ou je l'ai indiqué.

Private Sub Worksheet_Change(ByVal Target As Range)

For Each ligne In Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row) 'Sur cette ligne, change le "B" si ce n'est pas sur cette colonne, le "2" si ta première valeur n'est pas à la deuxième ligne
' Ensuite change tous les "A" et "B" selon ou se trouve les objectifs et les réalisés.
r = ligne.Row
    If (Range("A" & r).Value - Range("B" & r).Value) * 100 > 10 Then
        Range("B" & r).Interior.Color = 1057006
            Else
            If Range("B" & r).Value < Range("A" & r).Value Then
                Range("B" & r).Interior.Color = 168444
                    Else
                    Range("B" & r).Interior.Color = 5296274
            End If
    End If
Next ligne
End Sub

Tu as le fichier ci-joint pour tester.

A plus

Bonjour,

Formule MFC verte en ayant sélectionné E4:E9 :

=$E4>=$D4

Faire les autres sur le même modèle

Bonjour,

merci pour l'info mais juste une petite question.

J'ai déjà une macro dans mon fichier, comment faire pour rajouter celle que tu viens de me donné ?

en pièce joint mon fichier avec la macro (mdp: LILA)

merci.

Dans VBA, sur la gauche tu as un dossier "Microsoft Excel Object", tu doubles clique sur la feuille concernée, tu supprimes le "Option Explicit" et tu colles la macro suivante (adaptée à ta feuille).

Private Sub Worksheet_Change(ByVal Target As Range)

For Each ligne In Range("U7:U" & Range("U" & Rows.Count).End(xlUp).Row)
r = ligne.Row
    If (Range("T" & r).Value - Range("U" & r).Value) * 100 > 10 Then
        Range("U" & r).Interior.Color = 1057006
            Else
            If Range("U" & r).Value < Range("A" & r).Value Then
                Range("U" & r).Interior.Color = 168444
                    Else
                    Range("U" & r).Interior.Color = 5296274
            End If
    End If
Next ligne
End Sub

Super merci beaucoup cela marche niquel.