[XL-2003] MFC avec VBA

MFC avec VBA

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:

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

MFC avec VBA

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:

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

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

Code:

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:

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+