Utilisation d'une fonction trigo au sein d'une procedure

[Angus]

Bonsoir à tous,

Je debute en programmation

Mon problème est que j'ai besoin d'utiliser la fonction Arccos et que je n'y parviens pas!

Il est facile de trouver le code de la fonction partout sur internet, mais pour l'employer...

voici le code:

Function ArcCos(X As Double) As Double
    'Inverse du Cosinus
    If X = 1 Then
        ArcCos = 0
    ElseIf X = -1 Then
        ArcCos = -PI()
    Else
         ArcCos = Atn(X / Sqr(-X * X + 1)) + PI() / 2
    End If
End Function

Mais ensuite? si je copie ce code au sein de ma procédure, celle-ci se referme juste avant en exigeant un "end sub".
Que dois-je faire? la copier dans un autre module puis faire call ArcCos?

Si j'ai une formule du genre (X*Y)/(arccosZ), comment l'écrire?

 

[Staple1600]

Re : Utilisation d'une fonction trigo au sein d'une procedure

Bonsoir


Comme dirait mecano41 (que je salue)
On a déjà les mêmes à la maison, Léon
https://www.excel-downloads.com/threads/vba-macro-pour-realiser-une-formule-avec-arccos.165714/

 

[Angus]

Re : Utilisation d'une fonction trigo au sein d'une procedure

Merci Staple1600

Toute les fonction de la feuille de calcul sont elles disponible de cette manière?

Comment faire pour ne pas trimbaler "WorksheetFunction.Acos" partout.


Aussi, comment utiliser la fonction écrite dans mon code?

Dim Acos As Double
Acos = WorksheetFunction.Acos

resultat=Acos(X)  ?????

????????????????

 

[Angus]

Re : Utilisation d'une fonction trigo au sein d'une procedure

Et voilà que maintenant j'ai l'erreur"1004":

Impossible de lire la propriété Acos de la classe workSheetFunction

 

[Staple1600]

Re : Utilisation d'une fonction trigo au sein d'une procedure

Bonjour

Il faut utiliser la bonne syntaxe

Sub a()
Dim wf  As WorksheetFunction
Set wf = Application.WorksheetFunction
MsgBox wf.Acos(-1)
End Sub

 

[Si...]

Re : Utilisation d'une fonction trigo au sein d'une procedure

salut

...
y = Application.Acos(X)
...

devrait suffire avec les bonnes déclarations.
A la saisie de y = Application.WorksheetFunction.
la liste des fonctions disponibles doit apparaître.
Ensuite on peut supprimer "Application." ou "WorksheetFunction." qui seront sous-entendus

 

[Angus]

Re : Utilisation d'une fonction trigo au sein d'une procedure

Merci à vous deux!