Sub test() Dim R As Long Dim N Dim Saisie As Boolean Saisie = False While Saisie = False N = InputBox("Entrez une valeur pour N", "Somme_Fact") If IsNumeric(N) Then Saisie = True For J = 1 To Int(N) R = R + Factorielle(J) Next Debug.Print (R) Else MsgBox "Merci de saisir un nombre.." End If Wend End Sub Function Factorielle(ByVal X As Long) As Long Dim i As Long Resultat = 1 For i = 1 To X Resultat = i * Resultat Next i Factorielle = Resultat End Function
je souhaitais te demander si je n'ai plus besoin de mettre les codes :
console.readline
ou console.writeline
console.read?