Execution macro si

[mcj1997]

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

 

[Skqgent]

Re : Execution macro si

Bonjour, peut être ça

If Range("D10").value = 1 then
call ModifC9
end if

 

[GI_GI]

Re : Execution macro si

Bonjour a tous

Sub ModifC9()

If Range(“D10”).Value=1 Then

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 If

End Sub

 

[mcj1997]

Re : Execution macro si

NON CELA NE FONCTIONNE PAS J'AI UN RENVOI VERS LA LIGNE CALL MODIFC9 qui s'inscrie en jaune.





Sub ModifC9()
If Range("D10").Value = 1 Then
Call ModifC9
End If

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

 

[mcj1997]

Re : Execution macro si

j'ai un renvoi sur la ligne ifrange

 

[Skqgent]

Re : Execution macro si

Si c'est dans le même bloc utilise plutôt la réponse de GI GI