Discussion :

[marcuswillbe]

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

[marcuswillbe]

Bonsoir. Oubliez mon premier message, voici une explication plus claire.
J'ai la colonne D et la colonne G qui sont des colonnes de couleur.
Les 2 suivent les même code de couleur.
La colonne D est la multiplication de la colonne B et C.
La colonne G, est le résultat de la colonne D et la colonne F.
Mon code ne fonctionne uniquement que pour la première colonne (la colonne
D)
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
21
Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
Dim Rg As Range 
Dim formulaCell As Range 
Set Rg = Intersect(Target, Union(Cells(1, "b").EntireColumn, Cells(1, 
"c").EntireColumn)) 
If Not Rg Is Nothing Then 
    For Each c In Rg 
        Set formulaCell = Cells(c.Row, "d") 
        Select Case formulaCell.Value 
            Case Is >= 12 
                formulaCell.Interior.ColorIndex = 3 
            Case Is >= 7 
                formulaCell.Interior.ColorIndex = 46 
            Case Is >= 5 
                formulaCell.Interior.ColorIndex = 6 
            Case Is >= 0 
                formulaCell.Interior.ColorIndex = 10 
        End Select 
    Next 
End If 
End Sub

Il faut aussi que la colonne G change en même temps que tu modifies la colonne F ou D.
Merci de m'aider.
Marc

[LeForestier]

Bonjour,
A première vue... Tu te trompe d'événement, met plutôt ton code dans l'événement...

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

Celui que tu emploi n'est activer que quand on change de feuille.
De plus, l'événement est généré quand tu ENTRE sur la cellule et non quand tu en sort.
De ce fait il faudrait modifié ton 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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Lig As Long, i As Integer
Static AncAdd As String, AncCel
    If Target.Count > 1 Then Exit Sub
    If AncAdress <> "" Then  'pour 1ère initialisation.
        If Range(AncAdd).Column = 2 Or Range(AncAdd).Column = 3 Then
        Select Case AncCel
            Case Is >= 12
                Range(AncAdd).Interior.ColorIndex = 3
            Case Is >= 7
                Range(AncAdd).Interior.ColorIndex = 46
            Case Is >= 5
                Range(AncAdd).Interior.ColorIndex = 6
            Case Is >= 0
                Range(AncAdd).Interior.ColorIndex = 10
        End Select
        End If
    End If
    AncAdd = Target.Address
    AncCel = Target.Value2
End Sub

Faudra peut-être changer les adresses !
Cette façon de faire ne nécessite pas de repasser toute les colonnes, dés que tu quitte une cellule elle est mise à jour.

A+