dégrader de couleur dans une plage de cellule

[kokopelli25]

Bonjour à tous,

je cherche comment on peut mettre un dégrader de couleur sur un plage de cinq cellule par rapport à leur valeur.

Merci

 

[Philippe68]

Re : dégrader de couleur dans une plage de cellule

Bonjour,

Avec une MFC non ?

 

[Philippe68]

Re : dégrader de couleur dans une plage de cellule

Re,

Je ne sais pas si ça va, mais voilà ce que ça donne avec Excel 2010 (désolé, j'ai pas d'autres versions)



Edit : oups je voulais éditer mon précédent post, mais comme un con, je n'ai fais que répondre....

 

[kokopelli25]

Re : dégrader de couleur dans une plage de cellule

Bonjour,

Je ne sais pas je ne vois pas de changement !!!

 

[Philippe68]

Re : dégrader de couleur dans une plage de cellule

Re,

Pourtant j'ai fais du dégradé à 5 lignes en plus de la tienne

 

[flyonets44]

Re : dégrader de couleur dans une plage de cellule

Bonsoir
Voici un superbe fichier créé par geedee, qui devrait t'aider à solutionner ton problème
Cordialement
flyonets

 

[JHA]

Re : dégrader de couleur dans une plage de cellule

Bonjour Divers68,

Rassures toi, ton exemple est valide sous 2007

JHA

 

[kokopelli25]

Re : dégrader de couleur dans une plage de cellule

Quand j'ouvre le fichier il est en lecture seul, je vois bien les cellules selectionnées mais je n'ai pas de couleur

 

[kokopelli25]

Re : dégrader de couleur dans une plage de cellule

je vois bien les cellule selectionnées mais je n'ai pas les couleur , je suis sous excel 2003

Re,

Pourtant j'ai fais du dégradé à 5 lignes en plus de la tienne

 

[Philippe68]

Re : dégrader de couleur dans une plage de cellule

Re,

là j'ai enregistré en format 2010, avant c'était 2003-2007 pourtant
regarde si tu vois qqchose

 

[Philippe68]

Re : dégrader de couleur dans une plage de cellule

Bonjour Divers68,

Rassures toi, ton exemple est valide sous 2007

JHA

Bonjour JH,
merci de ta réponse, c'est chiant quand on a qu'une version et que l'on peut pas comparer...

 

[kokopelli25]

Re : dégrader de couleur dans une plage de cellule

Peut être pouvez vous me donner la formule que vous avez mis dans la MFC mais moi j'ai que 3 solutions possible !!!

Bonjour JH,
merci de ta réponse, c'est chiant quand on a qu'une version et que l'on peut pas comparer...

 

[Philippe68]

Re : dégrader de couleur dans une plage de cellule

Re,

Je regarde si je peux faire ça en VBA (c'est pas gagné lol)

Donc voilà j'ai selectionné toute ta plage et non qu'une ligne de 5 nombre, si vraiment tu veux que 5 tu me dis.

Sub DegradePlage()
    Range("B3:BI33").Select
    Selection.FormatConditions.AddColorScale ColorScaleType:=3
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
End Sub

 

[kokopelli25]

Re : dégrader de couleur dans une plage de cellule

erreur lors de l'ouverture

Re,

là j'ai enregistré en format 2010, avant c'était 2003-2007 pourtant
regarde si tu vois qqchose

 

[kokopelli25]

Re : dégrader de couleur dans une plage de cellule

Certainement mais là je crois que ça va complétement dépasser mes competences !!!

Re,

Je regarde si je peux faire ça en VBA (c'est pas gagné lol)

Donc voilà j'ai selectionné toute ta plage et non qu'une ligne de 5 nombre, si vraiment tu veux que 5 tu me dis.

Sub DegradePlage()
    Range("B3:BI33").Select
    Selection.FormatConditions.AddColorScale ColorScaleType:=3
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
        xlConditionValueLowestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
        .Color = 8109667
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
        xlConditionValuePercentile
    Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
    With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
        .Color = 8711167
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
        xlConditionValueHighestValue
    With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
        .Color = 7039480
        .TintAndShade = 0
    End With
End Sub