Définir la couleur d’arrière-plan en fonction de vérification de la valeur à l’aide VBA dans Microsoft Excel
Question:
Pour les entrées ou les changements de valeurs de formule, une preuve avec les valeurs antérieures doit être lancée. Si la nouvelle valeur de cellule est supérieure, la couleur d’arrière-plan passe à
Réponse:
Placez le code ci-dessous dans le module standard
Private Sub Worksheet_Calculate() Dim rng As Range, rngAct As Range Set rng = Me.UsedRange With Worksheets("Dummy") For Each rngAct In rng.Cells If rngAct.Value < .Range(rngAct.Address).Value Then rngAct.Interior.ColorIndex = 6 ElseIf rngAct.Value > .Range(rngAct.Address).Value Then rngAct.Interior.ColorIndex = 3 End If Next rngAct .Range(rng.Address).Value = rng.Value End With End Sub Sub OutOfOn() With Worksheets("Dummy") If .Visible = True Then .Visible = xlVeryHidden Else .Visible = True End With End Sub