Bonjour
Mets comme ceci :
Function racine3(nb1 As Integer) As Double
If nb1 < 0 Then
signe = "-"
Else
signe = ""
End If
racine = Abs(nb1) ^ (1 / 3)
racine3 = signe & racine
End Function
Testes à l’appui cela fonctionne
Fais moi un retour
1 « J'aime »