[VBA] Condition = Valeur négative

Option Explicit
'############
'Auteur PMO2
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim lig&
Dim i&
Dim R As Range
Dim R2 As Range
Dim C As Range
Dim valeur
Dim couleur
Set R = Application.Intersect(Target, Range(Columns(2).Address))
If R Is Nothing Then Exit Sub
'--- A adapter ---
valeur = Array("toto", "tutu")
couleur = Array(41, 44)
'-----------------
For Each C In R
lig& = C.Row
Set R2 = ActiveSheet.Range(Cells(lig&, 3), Cells(lig&, 14))
For i& = LBound(valeur) To UBound(valeur)
If C = valeur(i&) Then
R2.Interior.ColorIndex = couleur(i&)
On Error Resume Next
If valeur(i&) = "tutu" Then
R2.Value = -R2(Cells(lig&, 3), Cells(lig&, 14)).Value '= -R2(Cells(lig&, 3), Cells(lig&, 14)).Value
Exit For
End If
End If
Next i&
Next C
End Sub
'############

Cliquez pour agrandir...