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

[oOVaveOo]

Salut,

Si tu mets :

Code :

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

1
2
3
ElseIf angle = -1 Then 'condition 2
'ou
ElseIf angle = (-1) Then 'condition 2

Ca plante aussi ?

[Maxence HUBICHE]

Aaaah !
Voilà ce que j'appelle une question bien posée !
Du code, un message d'erreur, des espions proposés dans la saisie d'écran, ... super !
Il ne manquait que les balises autour du code, mais, j'ai corrigé ce petit oubli.


Concernant ton souci, je me demande s'il vient de ta fonction, car ce message (appel de procédure incorrect) indique qu'il ne peut compiler du fait de l'usage incorrect, sur le plan syntaxique, d'un procédure.
Essaie de nous indiquer quelle est la ligne en surbrillance (je ne la voie pas dans la saisie d'écran) car c'est à cet endroit que le bât blesse

A+

[ucfoutu]

Je plussoie :

Telle qu'elle est écrite, la fonction ne passe pas par la condition 3 si ANGLE = -1 !

Le preuve :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
MsgBox ARCOS(-1)


Public Function ARCOS(angle As Variant) As Double
    'Dim value As Double
    If (angle = 1) Then 'condition 1
        MsgBox "je passe par la condition 1"
        ARCOS = 0
    ElseIf (angle = -1) Then 'condition 2
        MsgBox "je passe par la condition 2"
        ARCOS = 4 * Atn(1) 'PI
    Else 'condition 3
         MsgBox "je passe par la condition 3"
        ARCOS = 2 * Atn(1) + Atn(-angle / Sqr(1 - angle * angle))
    End If
End Function

Il est donc plus vraisemblable que la valeur passée n'est pas = -1 !!! (laquelle ?)
Curieux typage de angle (celui que j'ai mis en rouge) ...

[decondelite]

Il serait en effet plus judicieux de passer angle comme étant un paramètre de type "Double".

Attention à Variant: son utilisation peut provoquer tout un tas de bogues. Ne l'utiliser que vraiment en dernier recours quand on n'a plus le choix.

[xime78]

Bonjour tout le monde, merci pour vos réponses et votre intérrêt!!

Salut,

Si tu mets :

Code :

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

1
2
3
ElseIf angle = -1 Then 'condition 2
'ou
ElseIf angle = (-1) Then 'condition 2

Ca plante aussi ?

=> oui!

Essaie de nous indiquer quelle est la ligne en surbrillance (je ne la voie pas dans la saisie d'écran) car c'est à cet endroit que le bât blesse

=> La ligne en surbrillance qd ça bloc est:
" ARCOS = 2 * Atn(1) + Atn(-angle / Sqr(1 - angle * angle))"

Je plussoie : ()
Telle qu'elle est écrite, la fonction ne passe pas par la condition 3 si ANGLE = -1 !
[...]
Il est donc plus vraisemblable que la valeur passée n'est pas = -1 !!! (laquelle ?)
Curieux typage de angle (celui que j'ai mis en rouge) ...

=>Certes; il est vraissemblable que la valeur passée n'est pas -1, mais autre chose; ce que n'indique pourtant pas mon espion (voir copie d'écran du 1er message). Je soupconnais un pb d'arrondi, j'ai donc essayé en vain divers type, le dernier étant variant!

Il serait en effet plus judicieux de passer angle comme étant un paramètre de type "Double".

=> Ne marche pas mieux!!

Je n'y parais pas, mais je ris jaune là, parce qu'elle a toujousr marché cette fonction!!!

[decondelite]

Code :

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

ARCOS = 2 * Atn(1) + Atn(-angle / Sqr(1 - angle * angle))

Si c'est là que ça plante, peut-être que tu ne dispose plus des fonctions Atn ou Sqr, voire les deux.

Vérifie qu'elles soient bien présentes dans la librairie VBA->Maths.

[ucfoutu]

=>Certes; il est vraissemblable que la valeur passée n'est pas -1, mais autre chose; ce que n'indique pourtant pas mon espion (voir copie d'écran du 1er message). Je soupconnais un pb d'arrondi, j'ai donc essayé en vain divers type, le dernier étant variant!

On "n'essaye pas" divers types, lorsque l'on développe !
On les définit !
Et (bien évidemment) : on vérifie (avant même d'appeler la fonction qui les utilise) qu'ils sont du type attendu (ne serait-ce que pour ne pas, dans ton exemple, envoyer une chaîne de caractères là où un numérique est attendu !!!).
D'où récupères-tu donc la valeur de la variable angle que tu envoies à ta fonction? C'est là, qu'il te faut être attentif (après, ma foi, tu subis ...)!
Et on vérifie également que la valeur passée est une valeur acceptable (il est par exemple évident que la valeur 2 provoquerait une erreur !)

[oOVaveOo]

Si tu fais ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
 
MsgBox ARCOS(-1)
 
End Sub
 
'////////////////////////////////////////
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

Ca plante aussi ?

[xime78]

Si tu fais ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
 
MsgBox ARCOS(-1)
 
End Sub
 
'////////////////////////////////////////
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

Ca plante aussi ?

Non ça ca marche!


En ce qui concerne les différents types: avant d'aller voir sur un forum, et puisque ma fonction marchait très bien jusque là, j'ai cherché la solution au problème; d'où les "essai"!!


Sqr et Atn sont bien présentes.

A part ça, ça bloque plus précisément au calcul de la racine, puisqu'un espion judicieusement placé m'informe que '1 - angle * angle' vaut -4.44089209850063E-16... ('angle' est quant à lui toujours affiché à -1)...

[oOVaveOo]

Non ça ca marche!

Dis nous comment tu récupères la valeur de angle puisque ça ça marche.

[decondelite]

A mon avis, pour la valeur de angle, VBA t'affiche -1 pour l'espion, mais en réalité il doit probablement valoir -1,00000002 et des poussières, ce qui te donnerait le résultat de -4E-16, je ne vois pas d'autre explication.
Et après, forcément la racine carré d'un nombre négatif, ça plante car VBA ne connaît pas les nombres complexes, ou alors il faut lui apprendre.

Ceci expliquerait également que les 2 tests situés avant sont négatifs.

Voilà, et j'en déduis que c'est toi qui a donné un mauvais paramètre.

[xime78]

Effectivement, je crois que decondelite a raison...

A moi de trouver où ça coince, mais ça risque d'être long, car 'angle' vient d'un produit scalaire, pour lequel j'avais pourtant bien divisé par la norme... Je crois que certains types étaient mal définis, je dois me retrouver avec des "single" ou des "double", et du coup avoir des pb d'arrondis...

Merci à tous!

[Maxence HUBICHE]

essaye de mettre angle en Currency