Bonsoir ,j'ai écrit cette fonction et cette macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function valeurPuissanceBis(ByVal x As Double, ByVal n As Long) As Double
If x > 0 And n > 0 Then
    If (n Mod 2) = 0 Then
    valeurPuissanceBis = valeurPuissanceBis(x * x, n / 2)
Else
    valeurPuissanceBis = 1
End If
End Function
 
 
Sub puisslo()
Dim m As Double, n As Long
m = Application.InputBox("Entre une valeur de x", Type:=1)
n = Application.InputBox("Entre une valeur de n", Type:=1)
MsgBox = "le résultat de l'opération est" & valeurPuissanceBis(m, n)
End Sub
et j'ai ce message d'erreur à la compilation je ne comprends pas :

un appel de fonction dans la partie gauche de l'affectation doit renvoyer variant ou object .

Le probleme est dans la macro je pense au msgbox , vous en voyez un vous ?

merci