Excel VBa espace pile insuffisant [Résolu]

Réponse 2 / 11

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 191
10 avril 2008 à 09:15

Bonjour,
Peut-être un peu plus simple pour un timer avec 1 seconde de tempo.

Dans un module de feuille
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Pour exemple d'application Démarre/Arrète le timer à chaque changement de cellule.
'mais peu être mis sur un bouton
    TimeOnOFF = Not TimeOnOFF
    If TimeOnOFF Then Timer
End Sub

Dans un module public
Public TimeOnOFF As Boolean

Sub Timer()
Dim S As Integer
    While TimeOnOFF = True
        If Second(Now) > S Or Second(Now) = 0 Then
            'Exécution du code
            'pour exemple
            Sheets("Feuil1").Range("A1").Value = Time
            S = Second(Now)
        End If
        DoEvents
    Wend
    
End Sub

A+

Réponse 3 / 11

amigo
5 mai 2008 à 17:29

Bonjour,

la ligne

  Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=False

se trouve dans la procédure StopTimer, elle est sensée stoper l'execution des taches planifiée (Schedule).

Tu remarqueras que dans la procédure, cette ligne de code est précédée par On Error Resume Next, ce qui veut dire que l'auteur a prévu que l'execution de Schedule:=False pouvait occasionner une erreur.

Pour arrêter le Timer, appelle StopTimer, normalement il ne devrait plus y avoir de problème.
Arrête le Timer quand tu ferme la feuille ( Private Sub UserForm_Terminate() ).

De plus l'appel à la procédure StartTimer qui prépare le Timer pour l'interuption suivante doit être à la dernière ligne de la macro qui execute ton code.

Sub Macro1() '<- nom de la macro initialisée dans la constante cRunWhat
   ' les instructions de ta macro à executer
   '...
   '...
   StartTimer '<- dernière instruction
End Sub

A+.

fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
6 mai 2008 à 08:16

salut et merci
ouais j'avais compris le fonctionnement
j'appelle bien la fonction stop timer quand je veux arréter le timer
il ne me met pas d'erreur
le truc c'est que lorseque j'en recreer un autre il y en a deux qui tourne ce qui fait que au lieu de s'exécuté toutes les 2 secondes ma procédure s'execute toutes les secondes
en fait deux de suite et apres une attente de deux seconde
Donc c'est que la fonction stop timer n'a pas fonctionner et que le "on error resume next"
a pris la main
c'est bizarre la ligne " Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=False "
est dans l'aide et il ne dise pas que ca peut merder
encore merci de ton aide

Réponse 4 / 11

amigo
9 avril 2008 à 16:24

Bonjour,

Ce message peut arriver quand une fonction s'appelle elle-meme recursivement un grand nombre de fois, ou alors quand passe un argument par valeur et que cet argument est un grand tableau ou un texte important.

Que fait exactement ta macro.

A+.

fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
9 avril 2008 à 16:28

salut merci de ta reponse

voila elle s'appelle elle-meme recursivement un grand nombre de fois

Sub cycle()

While ActiveSheet.cells(11, 1).value = "2"
Dim PauseTime
PauseTime = 1 ' Définit la durée.
Do While Timer < Start + PauseTime
DoEvents ' Donne le contrôle à d'autres processus
Loop

Begin
cycle

Wend
End Sub

Le truc c'est que je voulais recréer le timer de VB pour executer une action toutes les secondes

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

amigo
9 avril 2008 à 16:41

Dans les objets activeX, il y a un controle Timer qui permet de faire ça.

Regarde si ça peut t'arranger, sinon il faudra s'y prendre autrement.

A+.

fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
9 avril 2008 à 16:49

Et on les trouve ou les active X c'est les reference dans le menu outils ?

Réponse 6 / 11

amigo
9 avril 2008 à 17:46

Le controle Timer existe pour VB6, mais je ne l'ai pas trouvé non plus pour VBA.

Il y a encore la fonction timer() qui peut etre utile.
Je regarde comment régler le problème et je posterai ma reponse tout à l'heure.

A+.

Réponse 7 / 11

amigo
9 avril 2008 à 20:25

pardon,

j'ai dit MsgBox dans macro1 mais c'est UserForm1.Label1.Caption = Time
A+.

fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
10 avril 2008 à 08:13

Salut

Merci pour toutes tes infos
j'essaye tous ca et si ca marche je met ma rêponse sinon je dirais au secours

Réponse 8 / 11

fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
10 avril 2008 à 08:42

OK ca marche
je met pas mon code c'est le même que celui au dessus
merci à toi amigo

a+

Réponse 9 / 11

fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
6 mai 2008 à 09:10

salut

Je vais expliquer umpeu mieu le contexte, les evenements declencheurs et la solution

je doit déclencher un timer sur recalcul de la feuil mais seulement si certaine cellule sont a "2"
et le truc c'est que lorseque le timer est lancé je ne veut pas pouvoir en relancer un "Logique"
j'ai donc utiliser un compteur que j'incremente quand je met en route le timer et que je decremente quand je l'arrete

Pour mon probleme d'arret du compteur

en fait dans Sub Macro1() avant je ne fesait pas de test je relancais le timer directement
c'est la qu'etait mon erreur
donc maintenant je test l'etat de mes cellule et suivant le resultat je relance le timer ou pas

vous comprenderez mieux avec le code

debut du module timer

Option Explicit

Public RunWhen As Date
Dim cRunIntervalSeconds As Integer
Public Const cRunWhat = "Macro1" ' the name of the procedure to run

Sub StartTimer()

If ActiveSheet.cells(19, 1).value = "" Then
cRunIntervalSeconds = 2
Else
cRunIntervalSeconds = CInt(ActiveSheet.cells(19, 1).value)
End If
RunWhen = Now + TimeValue("0: 0: " & cRunIntervalSeconds)
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=True

End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, Schedule:=False

End Sub

Sub Macro1()

Dim Mcp As Object
Dim var As Variant
Dim j As Integer
Dim Cmpttimer As Integer

var = Array("Cmpt_statistique")
Set Mcp = CreateObject("WinCC-Runtime-Project")
Cmpttimer = Mcp.GetValue(var(0))

Feuil1.Begin "c'est la procedure que je veut executer cycliquement
' Call StartTimer to schedule the procedure again

If ActiveSheet.cells(11, 2).value = "2" Or ActiveSheet.cells(11, 5).value = "2" Or ActiveSheet.cells(11, 8).value = "2" Then
StartTimer
Cmpttimer = 2
j = Mcp.SetValue(var(0), Cmpttimer)
Range("A11").Select
ActiveCell.FormulaR1C1 = ""
End If

If ActiveSheet.cells(11, 2).value <> "2" And ActiveSheet.cells(11, 5).value <> "2" And ActiveSheet.cells(11, 2).value <> "2" Then
StopTimer
Cmpttimer = 0
j = Mcp.SetValue(var(0), Cmpttimer)
End If

End Sub

voila j'espere que ca sera utile a quelqu'un et si un autre quelqu'un a rien compris qu'il le dise j'essayerai d'etre plus clair

merci de votre aide

Réponse 10 / 11

amigo
6 mai 2008 à 10:22

Bonjour,

D'aprés ce que dit le type qui à écrit l'article, tu peux programmer plusieurs taches, il faut les mettre dans des variables distinctes.
On peut aussi essayer de paramétrer les procédures StartTimer et StopTimer

Déclare 2 variables RunWhen1 et RunWhen2

Public RunWhen1 As Double
Public RunWhen2 As Double

Sub StartTimer(HeureExec as double, MaMacro as String)
    Application.OnTime EarliestTime:=HeureExec, Procedure:=MaMacro, Schedule:=True
End Sub

Tu règle l'heure et tu déclenche la planification de tes taches en appelant StartTimer.

RunWhen1= Now + TimeSerial(0,0,5) 'execution dans 5 secondes
' ou encore RunWhen1=TimeSerial(12,0,0) ' execution à 12h précises
StartTimer(RunWhen1,"macro1")

RunWhen2= Now + TimeSerial(0,1,0) 'execution dans 1 minute
StartTimer(RunWhen2,"macro2")

Ensuite tes macros déclenchent une nouvelle programmation après execution
<code>
Sub Macro1()
   ' les instructions de ta macro1 à executer
   RunWhen1= Now + TimeSerial(0,0,5) 'nouvelle execution dans 5 secondes
   StartTimer(RunWhen1,"macro1")
End Sub

Sub Macro2()
   ' les instructions de ta macro2 à executer
   RunWhen2= Now + TimeSerial(0,1,0) ' nouvelle execution dans 1 minute
   StartTimer(RunWhen2,"macro2")
End Sub

Pour arreter le Timer c'est la meme chose

Sub StopTimer(HeureExec as double, MaMacro as String)
    On Error Resume Next
    Application.OnTime EarliestTime:=HeureExec, Procedure:=MaMacro, Schedule:=False
End Sub

Appel de StopTimer

StopTimer(RunWhen1,"macro1")
StopTimer(RunWhen2,"macro2")

Je n'ai pas testé, mais d'aprés l'article, si j'ai bien compris, c'est comme que ça marche.

A+.

fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
6 mai 2008 à 10:59

ouais sauf que d'apres "LE TYPE QUI A ECRIT L'ARTICLE"
la fonction stop timer ne fonctionne pas donc il faut bricolé quelque chose dans "sub macro1et2"
avant de rappeler Start timer
voila a+

Zavatta_novice
2 déc. 2008 à 21:59

Bonjour, je suis plus que novice en vba et j'ai un souci avec un code qui m'affiche un "EPSACE PILE INSUFFISANT", et bien entendu je ne m'en sors pas!!
Je vous mets si dessous le code, sachant que je sais d'où vient l'erreur (après plusieurs tests j'ai trouvé), cela vient de l'appel à la fonction 'nor' dans la ligne : rho = K * T * Exp(-r * T) * nor(d)

Mon code est censé pouvoir calculer le RHO d'une option en finance
Quelqu'un peut il m'aider svp ??
Merci bcp

Option Explicit

Function nor(x As Double)

nor(x) = 0.5 + 0.3989423 * ((x - x ^ 3) / 6 + (x ^ 5) / 40)

End Function

Function rho(So As Double, v As Double, r As Double, K As Double, T As Double)

Dim d As Double

d = (Log(So / K) + ((r - v ^ 2) / 2) * T) / (v * (T ^ (1 / 2)))

rho = K * T * Exp(-r * T) * nor(d)

End Function

Sub projet()

Dim Rh As Double

Rh = rho(305, 0.2, 0.04, 300, 0.25)

MsgBox (Rh)

End Sub

Réponse 11 / 11

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 260
3 déc. 2008 à 00:01

Bonsoir,

Function nor(x As Double)
   nor = 0.5 + 0.3989423 * ((x - x ^ 3) / 6 + (x ^ 5) / 40)
End Function

avec nor(x) tu la rappelles indéfiniment

Mais crée une nouvelle discussion la prochaine fois, tu augmentes tes chances d'être lu...
eric

Excel VBa espace pile insuffisant

11 réponses

Discussions similaires