Discussion :

[bodeckson]

bonjour à tous,
je suis débutant en VBA mais je programme déjà mieux en java ou pascal.
j'ai ajouté dans mon fichier excel 2007, une fonction facto qui me donne le factoriel d'un nombre.
voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function facto(n As Double) As Double
Dim fac As Integer
fac = n
     For i = 1 To n - 1
    fac = fac * i
 Next
     facto = fac
 End Function
 
Sub factoriel(n As Double)
MsgBox facto(n)
End Sub

lors de l’exécution, j'ai de bons résultats mais seulement pour les chiffres de 0 à 7. à partir de 8 j'ai l’erreur suivante: #VALEUR!
pouvez-vous me dire pourquoi?

Merci d'avance pour votre aide.

[dodo69]

Salut,

fac est déclarer comme integer,
autrement dis il ne peut pas attendre factoriel 8 ki est egale a 40000

met tout simplement

Code :

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

 dim fac as long

et ca devrai marché

[mercatog]

Code :

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

1
2
 
Dim Fac As Double

PS: ça m'étonne ton choix pour n As double