Attribuer une fonction à une variable

[Résolu]
Signaler
Messages postés
11
Date d'inscription
dimanche 16 octobre 2011
Statut
Membre
Dernière intervention
19 novembre 2011
-
Messages postés
11
Date d'inscription
dimanche 16 octobre 2011
Statut
Membre
Dernière intervention
19 novembre 2011
-
Bonjour, je nouveau dans le monde magique du VBA. Je souhaite concevoir un petit logiciel qui calcul des cames mécanique.
Mon problème est le suivant:
If Rap > Ra Then
S = S_l_d(theta, beta, L) " c'est à cette étape que je pense que ça ne marche pas"
Else
S = S_l_m(theta, beta, L)
End If

While theta < (beta + beta_p)
R = R0 + S(theta, beta, L)
End While

Function S_l_m(ByVal theta As Double, ByVal beta As Double, ByVal L As Double) As Double
S_l_m = L * theta / beta
End Function
Function S_l_d(ByVal theta As Double, ByVal beta As Double, ByVal L As Double) As Double
S_l_d = L - L * theta / beta
End Function

Je veux attribuer à S une fonction S_l_d ou S_l_m ect

Merci

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
Salut

La prochaine fois, utilise la coloration syntaxique - 3eme icone à droite = plus facile à relire et comprendre

Eh bien déclare une fonction nommée S (pas judicieux comme nom) à qui tu transmettras les paramètres et dans laquelle tu mettras la 1ère partie du code; le 1er If

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
11
Date d'inscription
dimanche 16 octobre 2011
Statut
Membre
Dernière intervention
19 novembre 2011

Salut Jack,
Je prend note pour la coloration syntaxique. Merci pour cette méthode, je n'avais pas vu le problème sous cette angle. Je vais essayer ça demain.
Si j'ai nommé la fonction 'S', c'est parce que on me l'impose pour mon devoir, je suis étudiant.

merci