Bonjour à vous tous.
Voici mon problème. Je cherche à adapter mon code pour la mise en forme conditionnelle pour que les colonnes C et D se mettent à jour automatiquement, Puisque ces colonnes sont des colonnes avec des formules.
Voici un exemple.
Cellule A2= 2
Cellule B2= 11
Cellule C2= = A2+B2= 12, donc la couleur devrait être rouge. Jusqu'à là, ça fonctionne. Mais si je retourne dans la cellule B2
et que je change le chiffre 11 pour 0, la couleur devrait être vert, mais elle ne change pas.
Voici mon 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
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
Dim Rg As Range 
Set Rg = Intersect(Target, Union(Range("c2:c23"), Range("d2:d23"))) 
If Not Rg Is Nothing Then 
    For Each c In Rg 
        With c 
            Select Case Target.Value 
                Case Is >= 12 
                    .Interior.ColorIndex = 3 
                Case Is >=7 
                    .Interior.ColorIndex = 46 
                Case Is >= 5 
                    .Interior.ColorIndex = 6 
                Case Is >= 0 
                    .Interior.ColorIndex = 10 
            End Select 
        End With 
    Next 
End If 
End Sub
Voici un exemple de mon fichier
http://cjoint.com/?fmv6NhOAEL

Merci de votre aide
Marc