Mise en forme conditionnelle avec couleur par seuil

Bonjour à tous,

Je souhaite mettre en forme mes données de type pourcentage en utilisant l’option remplissage uni.

(Mise en forme conditionnelle/Barres de données/Remplissage uni)

Je voudrais juste que la couleur de la barre de remplissage dans la cellule change aussi de couleur en fonction de la valeur :

De 0 à 35 % exclu : couleur rouge

De 35 % à 50 % exclu: couleur orange

De 50 % à 60 % exclu : couleur vert clair

De 60 % à 100 % exclu: couleur vert foncé

Je vous joins un fichier exemple de ce que je souhaite mais dans lequel les couleurs ne changent pas automatiquement.

Merci par avance

Bonjour,

Ça existe tout fait !

MFC nuance de couleurs

Crdmt

Merci pour votre réponse mais, comme dans l'exemple, je souhaite que la longueur de barre dans la cellule change (Ex. 50% rempli la barre à moitié avec un couleur vert clair ou bien 33% rempli la barre au tiers et en rouge).

Dans MFC nuance de couleurs, la cellule change de couleur sur ta totalité (ce qui correspond à 100 % pour moi)

Voici une image de ce que je souhaite : La valeur de la cellule change 2 propriétés : la longueur de la barre mais aussi la couleur.

Cordialement

Mon problème n'a pas l'air de déchainer les passions.

Après de nombreuses recherches, voici le résultat :

Pour traiter la plage de cellules de C11:C29, on clique droit sur l'onglet de la feuille où sont situées les cellules puis Visualiser le code, enfin coller le code ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C11:C29")) Is Nothing Then
    Target.FormatConditions.AddDatabar
  With Target.FormatConditions(1)
        .MinPoint.Modify newtype:=xlConditionValueNumber, newvalue:=0
        .MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=100
           Select Case Target.Value
       Case 0 To 35
       .BarColor.Color = RGB(239, 50, 69) 'Rouge foncé ' "&HFF" 'vbRed
       Case 35 To 50
       .BarColor.Color = RGB(237, 172, 73) 'Orange
       Case 50 To 65
       .BarColor.Color = RGB(161, 243, 106) 'Vert clair
       Case 65 To 100
        .BarColor.Color = RGB(11, 162, 0) 'Vert foncé 'vbGreen
   End Select
   End With
   End If
End Sub 

Cordialement