Bonjour
Je souhaite colorer des cellules selon plusieurs condition (6 aux totales ) j'ai fais une macro qui ne fonctionne que pour 3 conditions pour le reste ça plante !!
Quelqu'un a t il une astuce pour ce problème
Merci
Ptitloup57
voici le code :
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
29
Range("V1:V10").Select
    Selection.Interior.ColorIndex = xlNone
Range("v1:v10").Activate
   Selection.FormatConditions.Delete
 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="1219", Formula2:="1245"
    Selection.FormatConditions(1).Interior.ColorIndex = 4
 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="1245,01", Formula2:="1270"
    Selection.FormatConditions(2).Interior.ColorIndex = 7
 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="1270,01", Formula2:="1324"
    Selection.FormatConditions(3).Interior.ColorIndex = 43
 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="1324,01", Formula2:="1357"
    Selection.FormatConditions(4).Interior.ColorIndex = 5
 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="1357,01", Formula2:="1393"
    Selection.FormatConditions(5).Interior.ColorIndex = 33
 
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="1393,01", Formula2:="1428"
    Selection.FormatConditions(6).Interior.ColorIndex = 43
End Sub