Attribuer une fonction à une variableRésolu

Question

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

cs_Jack · Accepted Answer

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)

JOND210289 · Answer

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

Attribuer une fonction à une variable

2 réponses

Votre réponse

Discussions similaires