Discussion :

[Jrmy_GTI]

Bonjour !

Voilà je suis étudiant et j'ai pour projet de réaliser une calculatrice, avec notation polonaise inversée. Je vous passe les détails, j'en suis au point où je dois faire les calculs de sinus/cosinus/tangente. J'ai trouver une syntaxe qui effectue le calcul adéquat, mais qui est un peu lourde. Etant donné que le code sera le même dans le cas du sinus/cosinus et de la tangente j'ai décider de créer une subroutine, mais là se pose un petit problème : je vous met la photo pour que ce soit plus facile à comprendre : subroutine en haut, code en bas


Il faut que je déclare l'argument de ma subroutine : "fonc" souligné en vert. Je souhaite le remplacer par "sin", "cos" ou "tan", mais étant donné que ce sont déjà des fonctions internes à VBA, je ne vois pas sous quel type déclarer "fonc" ni même s'il est possible de faire ma subroutine de cette manière !

C'est là le sujet de ce post : est-ce possible de faire ça ? Si oui, comment déclarer mon argument ? Si non, quelles solutions je pourrait utiliser pour palier à cela ?

Merci d'avance !

Cordialement,
Jérémy.

[loufab]

Bonjour,
Tu dois choisir suivant ce que l'utilisateur est susceptible d'employer.

https://msdn.microsoft.com/fr-fr/lib.../jj692781.aspx

Simple, Double, Decimal.

Cordialement,

[Jrmy_GTI]

Bonjour !

Tout d'abord merci pour votre réponse.
Cependant j'ai du me faire mal comprendre : je souhaite remplacer l'argument de ma subroutine, "fonc", par une fonction inhérente à VBA : les fonctions sinus, cosinus, tangente. Ce que vous me proposez ne fonctionne pas étant donnée que je ne transforme pas mon "fonc" par un nombre mais par une fonction.
Je répète que je doute de l'existence d'une telle solution, néanmoins je viens vérifier auprès de spécialistes ! :p

Cordialement,
Bondroit Jérémy.

[loufab]

La question était

...comment déclarer mon argument ?

d'où l'encadré rouge sur le type absent.

Lorsque tu tapes sin( ou cos( ou n'importe quelle fonction VBA, VBE pratique l'auto complétion, il te donne donc le type attendu et celui renvoyé si il y a lieu d'être.

L'ensemble des types et leur capacité est indiqué dans le lien fourni.

Cordialement,
[EDIT] j'ai peut-être pas compris ce que tu souhaitais faire...

[Jrmy_GTI]

Effectivement je n'arrive pas à expliquer ce que je veux faire !
En fait, l'argument de ma subroutine, "fonc", sera remplacé par l'argument que j'indiquerais quand j'appelle ma subroutine "CalculAngle(sin)" ou "CalculAngle(cos)". Il faut donc que je déclare le type de mon argument, manquant et encadré rouge dans mon post. Seulement, il faut que je déclare "fonc" en tant que fonction, vu qu'il sera remplacé par "sin","cos" ou "tan", qui sont des fonctions; et je ne sais donc pas quel type utiliser pour déclarer "fonc" en tant que tel.
J'espère avoir été un peu plus clair !

[loufab]

Ok je vois tu veux typer des fonctions natives.

Il te faut donc créer un type donc une classe, et créer les méthodes qui vont se substituer à ces fonctions.

Je ne pense pas que tu puisses appeler tes méthodes du nom des fonctions (sin, cos...).

A voir.

En regardant ton code je ne sais même pas si ça va fonctionner. Perso je n'ai jamais vu une telle approche :

fonc() restera fonc() il faudrait peut-être voir du cote de la commande Run() plutôt et donc passer un string à ta fonction.

[Jrmy_GTI]

D'accord, merci d'avoir pris le temps de me propose ces solutions !
J'ai finis par abandonner cette idée car elle soulever plus de problème qu'elle ne répondais à mes attentes.
J'indique donc le sujet comme résolu !
Cordialement,

Jérémy.

[loufab]

Résolu c'est le bouton en bas à gauche