Discussion :

[xime78]

Bonjour tout le monde,

J'ai un petit soucis avec une fonction "arcos" qui a toujours fontionnée, et qui du jour au lendemain génère une erreur.

J'utilise EXCEL 2003 SP2, et VBA 6.3

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'////////////////////////////////////////
Public Function ARCOS(angle As Variant) As Double
    'Dim value As Double
    If (angle = 1) Then 'condition 1
        ARCOS = 0
    ElseIf (angle = -1) Then 'condition 2
        ARCOS = 4 * Atn(1) 'PI
    Else 'condition 3
        ARCOS = 2 * Atn(1) + Atn(-angle / Sqr(1 - angle * angle))
    End If
End Function
'////////////////////////////////////////

Voici l'erreur: lorsque "angle = -1", la macro ne s'arrête pas à la condition 2, mais va jusqu'à la 3 !! Comme dit plus haut, ça a toujours fonctionné jusqu'à il y a 3 jours, bien sur sans rien changer au code, et sans modif matérielle (ah si maintenant que j'y pense quelques mises à jour de windows!!)

En pièce jointe: une copie d'écran du code quand ça bloque.

Merci