erreur pile

[bobn10]

Bonjour,
j'ai un probleme sur Excel il me marque un message d'erreur "erreur 1004 espace pile insufisante" je vous ai copier le prog pourriez vous m'aider en me disant d'ou cela peut venir.
(a SAVOIR: je vais chercher des valeurs dans un programme toutes les heures et j'execute une pile fifo)

Private Sub Worksheet_Calculate()

Windows("Copie-2-de INTOUCH.xls").Activate
Worksheets("Feuil1").Activate
ActiveSheet.Cells(9, 1).Value = ActiveSheet.Cells(8, 1).Value
If (ActiveSheet.Cells(8, 1).Value) > (ActiveSheet.Cells(10, 1).Value + 0.041) Then
Call Action



End If

End Sub



ET VOILA L'ACTION



Sub Action()
'
'
'Pile fifo de bas jusqu en haut
'
LignE = 754
Do
LignE = LignE - 1
Range("A" & LignE & ":IV" & LignE).Select
Selection.Copy
Range("A" & LignE + 1).Select
ActiveSheet.Paste
Loop While (LignE > 10)

'écriture des données instantanées dans ligne 10 de B jusqu à IV

Application.CutCopyMode = False
ColonnE = 1
Do
ActiveSheet.Cells(10, ColonnE).Value = ActiveSheet.Cells(8, ColonnE).Value
ColonnE = ColonnE + 1
Loop While (ColonnE < 257)
Range("A1").Select



End Sub




Merci de votre aide a bientot j'espere

 

[Ti]

chaque fois que tu fais une copie de tes cellules, tu déclenches l'événement calculate, et la macro worksheet_calculate se redéclenche. Au bout d'un moment, tu satures la pile. Donc en début de ton worksheet_calculate, tu mets :

Application.Calculation =xlCalculationManual

et à la fin tu mets

Application.Calculation =xlCalculationAutomatic

 

[bobn10]

Merci,
ca fonctionne pour l'instant je vais voir avec le temps
par contre tu peuix m'expliquer la fonction de tes 2 lignes

merci beaucoup