[VBA]Appel d'une fonction

Question

Bonsoir à tous,

Je suis étudiante et débutante en language VBA. Pourriez m'indiquez, s'il vous plait, comment appeler la fonction que j'ai créé dans le cas suivant :

Function livret (m As Double, i As Double, n As Integer) As Double
Dim k As Integer, res As Double
res = m
    For k = 1 To n
        res = res * (1 + i)
    Next k
livret = res
End Function

Sub Test ()
Dim i as double
Dim n as integer
Dim m as double
i = InputBox (&#8220;Veuillez entrez le taux d&#8217;intérêt&#8221;)
n = InputBox (&#8220;Veuillez entrer le nombre d&#8217;années&#8221;)
m = InputBox (&#8220;Veuillez entrer le montant&#8221;)
...
End Sub

Il me manque une dernière ligne dans ma macro "Test", je dois afficher le résultat de la fonction, comment appeler cette fonction,lorsque que j'indique MsgBox ("Utilite), ça ne fonctionne pas...

Merci d'avance.

NHenry · Answer

Bonjour, 

Retour=MaFonction(Parametre1, Parametre2, ...)

Comme tu appelles Inputbox en fait.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

senoritalolotte · Answer

Merci bcp ! Je suis désolée pour le doublon, ce n'est pas le même problème...

senoritalolotte · Answer

ERREUR : Type d'argument ByRef incomptabile.
Sachant que a,b,c sont des nombres positifs ou nuls (mais potentiellement pas entiers).

Pourriez-vous m'aider svp, d'où vient le problème ?

Merci d'avance.

Function Utilite(a As Double, b As Double, c As Double, X As Double, Y As Double) As Double
a = InputBox("Veuillez entrez la valeur de a")
b = InputBox("Veuillez entrez la valeur de b")
c = InputBox("Veuillez entrez la valeur de c")
X = InputBox("Veuillez entrez la valeur de X")
Y = InputBox("Veuillez entrez la valeur de Y")
Utilite = (a * X ^ b * Y ^ c)
End Function

Sub test()
MsgBox (Utilite(a, b, c, X, Y))
End Sub

DevLama · Answer

Dans chaque paramètre tu dois definir comment sera utilisé la Variable
Public Function func(Byval a As Integer,ByVal b as string) As Boolean

'Tu mets tes instructions
End Function

La Science est Grande et Vaste partageons cette connaisance

ucfoutu · Answer

Bonjour,
Comment peux-tu penser, à la fois, à passer des paramètres à une fonction et y définir ces paramètres ?
Si tu écris :
Function Utilite(a As Double, b As Double, c As Double, X As Double, Y As Double) As Double 
c'est que les paramètres a, b, c, X et Y, passés à la fonctions, sont déjà des doubles et qu'ils ont déjà une valeur.
Reste qu'il t'appartient de définir (en amont de la fonction, donc) a, b,c,X et Y. Ils doivent nécessairement être des doubles valides.
Or, prenons par exemple ce que tu écris dans ton tout premier message,. Cette ligne, par exemple et entre autres :
Dim i as double 
i InputBox ("Veuillez entrez le taux d'intérêt") >> imaginons maintenant que l'on veuille y saisir la valeur 1,1 === >>
si l'on saisit "1,1", reconnue comme "numérique" par VBA, elle ne sera pas un double acceptable. Le serait la valeur 1.1 (saisie en "1.1"), mais qui, elle, ne serait pas reconnue comme un "numérique" par l'inputbox.
La solution : utilisation de la fonction de conversion  Cdbl . Ouvre ton aide VBA sur ce mot
________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Regarde par exemple comment réagit ceci, que l'utilisateur utilise la virgule ou le point comme séparateur décimal :
Private Sub CommandButton1_Click()
  Dim a As Double
  a = CDbl(Replace(InputBox("entrez a"), ".", ","))
  MsgBox b(a)
End Sub

Private Function b(a As Double) As Double
 b = a * 1.1
End Function
Ceci étant dit : j'utiliserais à ta place Application.Inputbox (à voir dans ton aide VBA) plutôt que InputBox. Cela te permettrait de forcer l'utilisateur à frapper un "numérique" valise. 




________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

[VBA]Appel d'une fonction

6 réponses

Votre réponse

Discussions similaires