probleme de renvoi de variant ou d'objet

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

Code:

---

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

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

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

bonsoir

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

Code:

---

MsgBox = "le résultat ...

---

bonne soirée
michel

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:

---

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

---

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

je comprends bcp mieux , merci ;)