Effacer une cellule en fonction d'une autre

Bonjour à tous,

j('ai un code assez basique que voici :

Sub clement()

If Range("h12") = 0 Or Range("h13") = 1 Or Range("h14") = 1 Or Range("h16") = 1 Or Range("h23") = 1 Or Range("h33") = 0 Or Range("h36") = 0 Or Range("h37") = 0 Then Range("h39") = "Défavorable" Else Range("h38").Value = Application.WorksheetFunction.Sum(Range("h12:h37"))

[H39].Font.ColorIndex = 3

End Sub

J'aimerais que si H39 affiche "Défavorable" alors la somme calculé en H38 soit effacé ( ou éventuellement recalculé/. j'ai tenté apres des Else if mais sans succes

Merci à tous pour votre aide,

Bonjour

Si j'ai bien compris ce que tu veux faire dans ton code essaie ceci

Sub clement()
If Range("h12") = 0 Or Range("h13") = 1 Or _
    Range("h14") = 1 Or Range("h16") = 1 Or Range("h23") = 1 Or _
    Range("h33") = 0 Or Range("h36") = 0 Or Range("h37") = 0 Then
    Range("h39") = "Défavorable": Range("H38").ClearContents
    Else: Range("h38").Value = Application.WorksheetFunction.Sum(Range("h12:h37"))
End If
Range("H39").Font.ColorIndex = 3
End Sub

Si ok, lors de ta réponse clique sur le v Vert à coté du bouton EDITER pour cloturer le fil

Amicalement

J'adore ce forum, parfait merci !