Bonjour à tous,
J'ai fais un petit bout de code pour gérer les division par zéro mais j'ai toujours le message d'erreur 11 qui reproche ma dision par zéro. Je ne sais pas pourquoi mon code ne marche pas. Voici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub divzero()
    Dim Sh As Worksheet
 
    Set Sh = ActiveSheet
    Sh.Cells(55, 2).Formula = IIf(Sh.Cells(53, 2).Value <> 0, Sh.Cells(52, 2) / Sh.Cells(53, 2), 0)
 
    Set Sh = Nothing
End Sub
Merci à vous.

J'ai essayé ça aussi mais j'ai eu droit à un #Nom? :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sh.Cells(55, 2).Formula = "=If(Sh.Cells(53, 2) = 0, """", Sh.Cells(52, 2)/Sh.Cells(53, 2))"