Discussion :

[ptitloup57]

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

[mercatog]

formatcondition est limité à 3 conditions! donc tu devras passer par code

[ptitloup57]

Bonjour
le problème c'est que je ne sais pas faire !!!
Merci
Ptitloup57

[mercatog]

Ta plage V1:V10 contient bien des formules, c'est ça?
si c'est affirmatifs, ces formules font référence à quelles cellules?

[ptitloup57]

oui il y a une formule basique de soustraction
v1=U1-10
V2=U2-12
V3=U3-15
V4=U4-40
V5=U5-18
ETC...

ptitloup57

[mercatog]

Dans l'évènement change de ta feuille

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, c As Range
Dim Klr As Integer
Set plage = Range("V1:V10")
   For Each c In plage
      Select Case c
         Case 1219 To 1245: Klr = 4
         Case 1245.01 To 1270: Klr = 7
         Case 1270.1 To 1324: Klr = 43
         Case 1324.01 To 1357: Klr = 5
         Case 1357.01 To 1393: Klr = 33
         Case 1393.01 To 1428: Klr = 43
         Case Else: Klr = xlNone
      End Select
      c.Interior.ColorIndex = Klr
   Next c
Set plage = Nothing
End Sub

Je n'ai pas ajouté la condition d'appel du code lors du changement de la plage de données.