je dois faire la division suivante:
total=0
1/total, donc 1/0, ce qui donne l'infini, et donc dépassement de capacité.
j'ai essayé ceci:
if total=0 then total = 1
pour faire 1/1
mais ça ne marche pas.
Si il y a dépassement de capacité, il faudrait peut être mieux s'arranger pour que le résultat soit différent de 1. (1/0 = +l'infini, 0/0 = indéfini, 0/1 = 0)
Sub main()
Dim total As Double
Dim calcul As Double
total = 0
If total = 0 Then
calcul = 999999999
else
calcul = 1 / total
endif
ah en fait, il me fait 0/1 (ce qui peut arriver dans l'appli), ce qui fait zéro aussi, comme je l'ai vérifié avec msgbox, mais il me dit aussi dépassement de capacité..
je vais tester tout ça, je suis sur que ca marche mais en fait je cherchais une solution où je ne doive pas faire tout le calcul dans la condition car il s'agit de toute une série de print et je voulais éviter de doubler tout: une fois si total = 0, une fois si total <> 0.
merci de votre aide.
PS: sur ma calculatrice MAC, 1/0 = infini, je dois dire que la démonstration de cette division est bien loin dans ma mémoire..
Honte sur moi ! en simplifiant très fort le problème pour le présenter ici, j'vais perdu de vue une variable qui devait être aussi conditionnelle. Toutes les solutions présentées ici sont donc correctes.