VBA Macro pour réaliser une formule avec ArcCOS

[SunBeam13]

Bonjour tout le monde !

J'aimerais réaliser une code ou je calcule l'inverse du Cosinus.

J'ai réalisé une macro mais elle beug au niveau du "ACos".

Pouvez me dire, s'il vous plaît coment réaliser cette fonction?

Voici le code en question :


Dim TetaZ, AzimutSol As Integer

TetaZ = Acos(Sin(Déclinaison) * Sin(Latitude) + Cos(Latitude) * Cos(Déclinaison) * Cos((Oméga_1 + Oméga_2) / 2))

AzimutSol = Asin(((Cos(Déclinaison) * Sin((Oméga_1 + Oméga_2) / 2))) / 2) / Sin(TetaZ)

End Sub



Le problème est au niveau de la partie mise en gras.

Merci!

 

[mécano41]

Re : VBA Macro pour réaliser une formule avec ArcCOS

Bonjour,

Ces fonctions n'existent qu'en fonctions de feuilles de calculs et pas en VBA donc

WorksheetFunction.Acos(....

et

WorksheetFunction.Asin(...

Autre chose : évite les lettres accentuées dans le VBA ; elles produisent parfois des erreurs...

Cordialement

EDIT : en cherchant dans l'aide à : Fonctions mathématiques dérivées, tu peux voir également comment utiliser Atn qui, elle, existe...

 

[SunBeam13]

Re : VBA Macro pour réaliser une formule avec ArcCOS

Merci pour ton aide précieuse Mécano 41!