Discussion :

[Ardiden31]

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))"

[SfJ5Rpw8]

bonjour,

la solution est dans l'aide en ligne et l'exemple d'erreur donné est justement une division par zéro :

Remarques

La fonction IIf évalue toujours truepart et falsepart, même si elle ne renvoie qu'un seul de ces arguments. Vous devez donc être particulièrement attentif à certains effets secondaires indésirables de cette fonction. Par exemple, si l'évaluation de falsepart engendre une division par zéro, une erreur se produit même si la valeur de expr est True.

[Malick]

Peut-être que cette discussion pourrait vous être utile :

http://www.developpez.net/forums/d11...ision-via-vba/

[Ardiden31]

Merci milkoseck voila la bonne synthaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Sh.Cells(55, 2).Formula = IIf(Sh.Cells(53, 2).Value > 0, "=" & Sh.Cells(52, 2).Address & "/" & Sh.Cells(53, 2).Address & "", "")