Dépassement de capcacité

[remady]

Bonjour tout le monde

Je suis confronté au problème suivant, voici ma fonction :

Sub fonction()
Dim j As Long, i As Long
Dim P(4) As Double, MoyennePannes As Double, MoyenneIncidents As Double, MoyenneCouts As Double

For j = D(4) To F(4) [COLOR="Red"]' D et F sont des fonctions que j'appelle et ne pausent aucun problème [/COLOR]
P(0) = P(0) + Cells(6, j).Value
P(1) = P(1) + Cells(13, j).Value * Cells(6, j).Value
P(2) = P(2) + (Cells(20, j).Value * Cells(6, j).Value)
P(3) = P(3) + (Cells(27, j).Value * Cells(6, j).Value)
MoyennePannes = P(1) / P(0)
MoyenneIncidents = P(2) / P(0)
MoyenneCouts = P(3) / P(0)

Cells(79, 5).Value = MoyennePannes
Cells(79, 6).Value = MoyenneIncidents
Cells(79, 7).Value = MoyenneCouts

Next j
End Sub

Donc quand les valeurs de mes cellules sont differentes de 0, la fonction s'exécute sans aucun problème, par contre quand les valeurs ne sont pas encore renseignés et puisque ma fonction se lance à l'ouverture du fichier, j'ai l'erreur suivante "Dépassement de capacité". Je me dis peut etre que c'est du à la division par P(0) qui dans ce cas la est égal à 0, mais je n'arrive pas à trouver la solution pour y remédier.

Merci à tous ceux qui pourront m'aider.

 

[tbft]

Re : Dépassement de capcacité

bonjour

essayer d'afficher le résultat de D(4) et de F(4) a l'ouverture du fichier
il y a peut être une boucle infini...

ou peut être des appels qui s'enchainent....

vers l'infini au delà...
désolé

 

[remady]

Re : Dépassement de capcacité

salut tbft,

merci de me répondre, non il n'y a pas de boucle infini dans ma fonction, et D(4) et f(4) me renvoie simplement 2 entiers sans aucune erreur, comme je le précise dans mon post, mon code marche parfaitement quand les valeurs des cellules à calculer ne sont pas nulles !

merci encore un fois.

 

[Pierrot93]

Re : Dépassement de capcacité

Bonjour,

essaye peut être avec un test de ce type, enfin si j'ai bien compris :

P(0) = P(0) + IIf(Cells(6, j).Value = vbNullString, 0, Cells(6, j).Value)

bonne journée
@+

 

[tbft]

Re : Dépassement de capcacité

Bonjour

Serait il possible d'avoir une partie du fichier,svp?

 

[remady]

Re : Dépassement de capcacité

Bonjour,

Je m'excuse de répondre aussi tard à vos réponses, je n'avais pas accès au forum, et je vous remercie de vous intéresser à mon cas. En fait pierrot j'ai réussi à m'inspirer de ta solution pour régler mon problème, merci encore une fois.

a+