Discussion :

[c.piette]

Salut à tous,

J'espère que ce petit jour de congé fait du bien !

Voilà donc, j'ai des valeurs de 0 à 100 dans une colonne et j'aimerais une mise en forme conditionnelle en fonction de la valeur dans la case de la cellule:

Il me faudrait des barres de données dans la cellule: si 0 pas de barre, si 50 une demi barre et si 100 une barre complète -> super classique.

Mais comment faire pour que la couleur de cette barre s'adapte aussi à la valeur ? Sans colorer toute la cellule ...

Donc comme résultat, je souhaiterais: Si 0: pas de barre mais, exceptionnellement, la case colorée en rouge, si 10, un dixième de barre en rouge, ... Si 50 une demi barre en jaune/orange et si 100, une barre pleine verte ... Mais bien sur, en passant par toutes les nuances ... entre le rouge et le vert, pour les valeurs intermédiaires.


Donc ma question est: est-ce possible ou faut-il discrétiser la mise en forme: par exemple, définir 10 intervalles de mise en forme conditionnelle (0 à 10, 10 à 20, ...) et à chaque fois, définir une barre de donnée avec une couleur différente ... ?



Donc voilà, si j'ai bien su expliquer ce que je souhaitais, je vous remercie d'avance pour votre aide ! : )

C.

[c.piette]

Re,


J'ai su trouver la solution par moi même et le résultat donne vraiment pas trop mal. Pour le tester, dans les cases de A1 à A101 vous écrivez les valeurs de 0 à 100 et vous lancez cette macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Target As Range, MonRange As Range
 
Set MonRange = Range("A1:A101")
 
For Each Target In MonRange
 
    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
                .BarColor.Color = RGB(255, 0, 0)
                Target.Interior.Color = RGB(255, 0, 0) 'Rempli la cellule entière en rouge
            Case 1 To 50
                .BarColor.Color = RGB(255, Target.Value / 50 * 255, 0)
            Case 51 To 80
                .BarColor.Color = RGB(255 - (Target.Value / 160) * 255, Target.Value / 80 * 255, 0)
            Case 81 To 100
                .BarColor.Color = RGB(0, 255, 0)
        End Select
    End With
 
Next Target

Bonne journée si ça a pu aider ! Le code est adaptable biensur

[yann944]

Bonjour,

Je cherche depuis quelques une macro de ce type. Merci pour le partage.

Elle me convient parfaitement à la différence que j'aimerai une couleur unie à la place du nuancé et que les valeurs n'apparaissent pas les cases.

Etant plus que novice dans le langage macro, quelles lignes je devrais rajouter et modifier sur ce code ?

Merci d'avance.

[c.piette]

Oula, aucune idée ... Je pense que tu vas devoir recréer une nouvelle discussion à ce sujet en renseignant mon code ...



Bonne continuation !