Hello tout le monde,

J'ouvre ce topic car j'étais à la recherche d'une macro permettant d'utiliser les barres de données de la mise en forme conditionnelles tout en changeant la couleur de celles-ci en fonction d'un nombre.
Par ex :
- de 0 à 0.5 : vert,
- de 0.51 à 0.7 : jaune,
- etc.

Mes recherches m'ont donc mené sur ce site et sur un topic où j'ai trouvé 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
Cette macro marche à la perfection. Ceci étant, j'aimerai y apporter quelques petites modifs. Mais étant vraiment novice sur le sujet, je me tourne vers vous.

Si possible j'aimerai que cette macro donne une couleur unie et non nuancée et si possible qu'elle rende invisible le nombre de la cellule.
Quelles lignes je dois modifié et ou ajouté ?

Merci d'avance, Yann.