Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Angus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Angus

Guest
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:

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?
 
Trier par date Trier par votes
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?

Code: 
Dim Acos As Double
Acos = WorksheetFunction.Acos

resultat=Acos(X)  ?????

????????????????
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Utilisation d'une fonction trigo au sein d'une procedure

Bonjour

Il faut utiliser la bonne syntaxe
Code: 
Sub a()
Dim wf  As WorksheetFunction
Set wf = Application.WorksheetFunction
MsgBox wf.Acos(-1)
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Utilisation d'une fonction trigo au sein d'une procedure

salut

Code: 
...
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
853
Lu76Fer
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
329
patricktoulon
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
896
patricktoulon
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
977
jurassic pork
  • Résolu(e)
Autres que penses vous de ce mini test benchmark(timer plus precis)
Réponses
6
Affichages
1 K
patricktoulon
  • Résolu(e)
XL 2013 customui copymemory qui fait encore des siennes
Réponses
8
Affichages
442
Rheeem
R
  • Question Question
XL 2013 enregistrer la capture d'une shape avec les api avec transparence
2
Réponses
26
Affichages
2 K
patricktoulon
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
628
francha62
F
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
882
piga25
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
898
Lu76Fer
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
10 K
TooFatBoy
M
  • Question Question
Microsoft 365 Ma fonction VBA s'exécute avec toutes mes Macros
Réponses
8
Affichages
849
MACx
M
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
Génération de QR Codes
Réponses
9
Affichages
2 K
Rheeem
R
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
2 K
Dudu2
I
  • Résolu(e)
Microsoft 365 VBA EXCEL Utilisation d'une variable avec données dans un tableau
Réponses
4
Affichages
1 K
mapomme
G
  • Question Question
XL 2016 Correction VBA récupération terme fonction polynomiale
Réponses
7
Affichages
980
Dranreb
M
  • Question Question
XL 2019 Code VBA
Réponses
12
Affichages
939
MarieLN
M
B
  • Résolu(e)
XL 2016 Texte en gras d'une cellule extrait
Réponses
4
Affichages
1 K
Bastien43
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…