QUE DOIS-JE AJOUTER A CETTE MACRO AFIN QU'ELLE S'EXECUTE SEULEMENT SI DANS LA CASE D10 IL Y A 1 SINON IL Y A 2 ET DONC ELLE NE S'EXECUTE PAS
MERCI D'AVANCE
Sub ModifC9()
If ActiveSheet.CheckBox1.Value = True Then
Select Case Range("D9").Value
Case Is < 13550
Range("C9") = Range("D9") - 4404
Case Is <= 21860
Range("C9") = Range("D9") - 2202
Case Else
Range("C9") = Range("D9")
End Select
Else
Select Case Range("D9").Value
Case Is < 13550
Range("C9") = Range("D9") - 2202
Case Is <= 21860
Range("C9") = Range("D9") - 1101
Case Else
Range("C9") = Range("D9")
End Select
End If
End Sub
MERCI D'AVANCE
Sub ModifC9()
If ActiveSheet.CheckBox1.Value = True Then
Select Case Range("D9").Value
Case Is < 13550
Range("C9") = Range("D9") - 4404
Case Is <= 21860
Range("C9") = Range("D9") - 2202
Case Else
Range("C9") = Range("D9")
End Select
Else
Select Case Range("D9").Value
Case Is < 13550
Range("C9") = Range("D9") - 2202
Case Is <= 21860
Range("C9") = Range("D9") - 1101
Case Else
Range("C9") = Range("D9")
End Select
End If
End Sub