Le code ci -dessous ne fonctionne pas,
code
Pourtant, il donne le résultat des formules DDDD et EEEECode:[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
à
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:
Merci d"en tenir compte à l'avenirLa courtoisie est de rigueur sur ce forum : pour une demande de renseignements bonjour et merci devraient être des automatismes.
Pour la modération,
yoda1234.
-----