tableur lotus123, division par 0

[invited1b2fed6]

Le code ci -dessous ne fonctionne pas,

code

[A:u74].Select
Selection.Contents = Cstr(1E-3)
CCCC=[PrecB:w66].contents   	 '=6,00
AAAA=[PrecB:w74].contents	 '=6,0000026
OOOO=[PrecB:u74].contents	'angle en rad

DDDD= Round(((CCCC*1)/(AAAAA*1)),9) 'Il me donne le résulat
EEEE=Round((Sin(OOOO/2)/(OOOO/2)),15)'Il me donne le résulat
Print "DDDD"DDDD,"EEEE"EEEE
	
If Round(((C*1)/(A*1)),9)<Round((Sin(OOOO/2)/(OOOO/2)),9) Then 'Ilne fait pas le test et dit division par 0 , comment faire?

[PrecB:u74].Select
Selection.Contents = Cstr(OOOO+(1E-5))
End If
end code

Pourtant, il donne le résultat des formules DDDD et EEEE
à
If Round(((C*1)/(A*1)),15)<Round((Sin(OOOO/2)/(OOOO/2)),9) Then
le debugeur met une erreur de division par 0.

Comment modifier les paramètres de la feuille ou autre pour qu'il fasse le teste?


Rappel de la charte que tu as acceptée en t'inscrivant ici:

La courtoisie est de rigueur sur ce forum : pour une demande de renseignements bonjour et merci devraient être des automatismes.

Merci d"en tenir compte à l'avenir

Pour la modération,

yoda1234.
-----