Discussion :

[Maxence45]

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

[Singular]

Il me semble qu'il te manque un End If dans ta fonction valeurPuissanceBis...

Je dis ça parce que j'ai appris à me méfier des raccourcis de langage et de leurs effets imprévisibles.

[SilkyRoad]

bonsoir

Et enlève le signe = après le MsgBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox = "le résultat ...

bonne soirée
michel

[Maxence45]

ok mais c'est cuieux , mon code de fonction est bon et elle me renvoit tjs le résultat 0 c'est pas normal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function valeurPuissanceBis(ByVal x As Double, ByVal n As Long) As Double
If n > 0 Then
    If (n Mod 2) = 0 Then
    valeurPuissanceBis = valeurPuissanceBis(x * x, n \ 2)
    End If
Else
    valeurPuissanceBis = 1
End If
End Function

[pgz]

Bonsoir.

Je ne vois pas pourquoi tu penses que ta fonction est bonne.
Il me semble normal qu'elle renvoie toujours 0 : dès que n est impair.
Et quelque soit la valeur n initiale, à force de la diviser par 2, elle passe toujours par une valeur impaire qui arrête la récursivité et renvoie la valeur 0 qui est répercutée aux niveaux d'appels.

PGZ

[Maxence45]

je comprends bcp mieux , merci