temps reel Résolu

Question

j'ai fait une macro Vba pour excel, qui est sensé tourner en temps reel en utilisant une application OnTime cependant excel finit par envoyer un message d'erreur et se ferme tout seul 
Quelqu peut il me proposer une alternative ?

ucfoutu · Accepted Answer

Ce n'est pas du tout ainsi que je voyais les choses !
Tel que tu t'y prends là, en effet, tu retombes exactement dans les cas précédents puisque ton code lui-même modifie tes données et que ton évènement Change se relance donc sur lui-même systématiquement.
Ce n'est pas du tout le mécanisme dont je t'ai parlé ...
Laisse tes instructions dans la procédure où elles étaient ...

Dans ton évènement Change :
Private Sub Worksheet_Change(ByVal Target As Range) 
  stratl
end sub
Dans ta procédure startl :
Sub strat1()
  Application.EnableEvents = False  ' <<<<<<ici (pour inhiber l'évènement Change et éviter que ta procédure elle-mêne le relance)
Dim x As Variant
Dim xm As Variant
Dim xp As Double
Dim xi As Variant

'etc... etc...

Dim t As Variant
Dim poidsr As Double
Dim datei As Date

x = Workbooks("test").Worksheets("test1").Range("D7").Value


' etc etc....

  Call position(x, xm, xi, xp, poids, pos, compteur, nom, LQ, PLQi, BQ, PBQi, t, poidsr)

 Application.EnableEvents = True (pour réautoriser lk'évènement Change maintenant que ta proc est terminée) 
End sub
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

NHenry · Answer

Bonjour,

Quel message d'erreur ?

Mon site

ucfoutu · Answer

Bonjour,
1) tu es ici dans le tghème VB6 et non VBA !
2) sans ton code (celui qui appelle la procédure définie par application.ontime et celui de la procédure ainsi appelée, ma foi... il faudrait être devin )

3) et quand et comment arrêtes-tu l'exécuition de cetyte procédure ?
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

J'appelle par ailleurs ton attention sur la signification de "temps réel"... (c'est du sérieux que ne saurait gérer Windows ... Et encore moins Application.OnTime  qui exécutera à intervalles définis et non inférieurs à une seconde ...)


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

je viens de m'inscrire sur le Forum donc désolé si je me suis trompé de thème. 

Effectivement quand je dis temps reel je veux dire de façon périodique (en fait toutes les trentes secondes ça suffit) et ce pendant toute la journée.
j'avoue que je n'ai pas de procedure d'arrêt, je sais qu'il en faut une, le problème c'est qu'au bout d'une heure, de toute façon, excel se ferme
avec l'erreur d'éxécution 9 qui s'affiche

Voilà

ucfoutu · Answer

2) sans ton code (celui qui appelle la procédure définie par application.ontime et celui de la procédure ainsi appelée, ma foi... il faudrait être devin ) 

Il est si secret, ce code que tu ne nous as toujours pas montré ? 

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

NHenry · Answer

Bonjour,

Tu as essayé de déboguer ? (Quand il y a une erreur en VBA, tu peux aussi déboguer ton code)

Erreur 9 : indice en dehors de la plage

Tu accède peut être à un tableau et tu tapes hors des dimensions de celui-ci ?

Mon site

ucfoutu · Answer

Bonjour, NHenry,
Et rien ne prouve d'ailleurs que Application.Ontime soit là le responsable (sauf si, dans la procédure qu'il déclenche périodiquement et que l'on ignore encore puisqu'aucun code n'a été montré , il modifie des indices ...)
Moi, ma boule de cristal n'a pas encore été réparée. Et la tienne ? En moins mauvais état ? 

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

NHenry · Answer

Ben, j'en trouve assez facilement :)


Certes, ce n'est pas du cristal, mais à chacun ses moyens :D

Mon site

ucfoutu · Answer

Ouais...
Bref... A défaut que le demandeur ne se décide (enfin) à nous parler plus concrètement et à nous montrer le code qu'on lui demande, qu'il continue à en faire à sa tête, mais qu'il se dépatouille alors seul ! (on ne va tout de même pas pleurer pour qu'il nous aide à l'aider ... c'est sûr !)


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

Désolé pour le manque d'information mais c'est un programme que je fais dans mon stage que je ne fais qu en debut de semaine (et donc je n'ai pas accès à mon ordi de bureau en fin de semaine bref). voici le code c'est evidemment pas de la grande programmation j'accepte donc volontier toutes les critiques constructives:


Sub strat1()
Dim x As Variant
Dim xm As Variant
Dim xp As Double
Dim xi As Variant
Dim poids As Double
Dim pos As Variant
Dim compteur As Integer
Dim nom As Double
Dim LQ As Double
Dim BQ As Double
Dim PLQi As Double
Dim PBQi As Double
Dim t As Variant
Dim poidsr As Double
Dim datei As Date

x = Workbooks("test").Worksheets("test1").Range("D7").Value

xm = Workbooks("test").Worksheets("test1").Range("E7").Value

xp = Workbooks("test").Worksheets("test1").Range("F7").Value

xi = Workbooks("test").Worksheets("test1").Range("G7").Value

poids = Workbooks("test").Worksheets("test1").Range("G13").Value

pos = Workbooks("test").Worksheets("test1").Range("H9").Value

compteur = Workbooks("test").Worksheets("test1").Range("F13").Value

nom = Workbooks("test").Worksheets("test1").Range("C7").Value

LQ = Workbooks("test").Worksheets("test1").Range("C9").Value

BQ = Workbooks("test").Worksheets("test1").Range("C11").Value

PLQi = Workbooks("test").Worksheets("test1").Range("E9").Value

PBQi = Workbooks("test").Worksheets("test1").Range("E11").Value

t = Workbooks("test").Worksheets("test1").Range("E13").Value

poidsr = Workbooks("test").Worksheets("test1").Range("C15").Value

datei = Workbooks("test").Worksheets("test1").Range("C13").Value

If datei = Date Then
Workbooks("test").Worksheets("test1").Range("F13").Value = 2
Else
Workbooks("test").Worksheets("test1").Range("F13").Value = 1
End If

If x < xm Then
Workbooks("test").Worksheets("test1").Range("E7").Value = x
End If

If x > xp Then
Workbooks("test").Worksheets("test1").Range("F7").Value = x
End If

Call position(x, xm, xi, xp, poids, pos, compteur, nom, LQ, PLQi, BQ, PBQi, t, poidsr)

Application.OnTime Now + TimeValue("00:00:01"), "strategy"

End Sub

je n'ai pas encore mis de procédure d'arrêt, mais je sais qu'il en faut une pour arrêter la boucle. Le problème c'est que ce programme doit tourner toute la journée, mais il s'arrête 
automatiquement au bout d'une heure avec le message d'erreur précédent
voilà

ucfoutu · Answer

tu le fais exprès, ou quoi ?
Me relire, donc :
sans ton code (celui qui appelle la procédure définie par application.ontime et celui de la procédure ainsi appelée, ma foi... il faudrait être devin ) 
*
Et ceci, dans l'hypothèse selon laquelle (ce dont je ne suis pas aussi certain que tu l'es) ton erreur est vraiment dûe à Application.Ontime (ce qui est alors lancé), comme tu l'affirmes, et non à autre chose dans ton code !
Mais on ne pourra commencer à y voir clair que lorsque nous saurons (ENFIN) ce qui est lancé par Application.Ontime. Et nous tâcherons alors, si rien n'y est fautif, de chercher ailleurs dans ton code (dans ta procédure position, peut-être..., mais commençons par celle appelée par Ontime , comme demandé depuis le tout début de cette discussion et non encore montré )

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

bon les enfants faut se detendre, si le but du forum est de prendre les gens pour des cons faut aller consulter 

Application.OnTime Now + TimeValue("00:00:01"), "strat1" (et pas "strategy" comme j'ai pu l'ecrire)

cette procedureure s'appelle elle meme 

la procedure position ne fait rien de special des additions 

Sub Position(x, xm, xi, xp, poids, pos, compteur, nom, LQ, PLQi, BQ, PBQi, t, poidsr)
Dim a As Double
Dim b As Double
Dim msg As String
Dim style As Integer
Dim title As String
If compteur = 1 Then
     If t = "+" Then
            If x < xi + poids * (xp - xi) Then
                If Workbooks("test").Worksheets("test1").Range("F9").Value <> Int(poids * PLQi) Then
                 msg = " Attention erreur, voulez vous continuez ?"
                 style = 4
                 title = "Warning"
                 result = MsgBox(msg, style, title)
                         If result = vbYes Then
                             a = Int(poids * PLQi)
                             Workbooks("test").Worksheets("test1").Range("F9").Value = a
                              Workbooks("test").Worksheets("test1").Range("H13").Value = Workbooks("test").Worksheets("test1").Range("H13").Value + (PLQi - a) * _
                              Workbooks("test").Worksheets("test1").Range("C9").Value
                               Workbooks("test").Worksheets("test1").Range("E9").Value = a
                             b = xi + poidsr * (xp - xi)
                             Workbooks("test").Worksheets("test1").Range("G7").Value = b
                             Workbooks("test").Worksheets("test1").Range("F7").Value = x
                             
                             
                          Else
                             Workbooks("test").Worksheets("test1").Range("F9").Value = PLQi
                             
                                  If x < xi + poidsr * (xp - xi) Then
                                         msg = "Stoppez activité!!!"
                                         style = 4
                                         title = "Alerte"
                                         result = MsgBox(msg, style, title)
                                         If result = vbYes Then
                                         Workbooks("test").Worksheets("test1").Range("H13").Value = Workbooks("test").Worksheets("test1").Range("H13").Value + (PLQi) * _
                                         Workbooks("test").Worksheets("test1").Range("C9").Value
                                         Stop
                                         End If
                                  End If
                         End If
                    ElseIf x < xi + poidsr * (xp - xi) Then
                             msg = "Stoppez activité!!!"
                                         style = 4
                                         title = "Alerte"
                                         result = MsgBox(msg, style, title)
                                         If result = vbYes Then
                                         Workbooks("test").Worksheets("test1").Range("H13").Value = Workbooks("test").Worksheets("test1").Range("H13").Value + (PLQi) * _
                                         Workbooks("test").Worksheets("test1").Range("C9").Value
                                         Stop
                    End If
                    Else
                         Workbooks("test").Worksheets("test1").Range("F9").Value = PLQi
                         
                End If
End If      
End If
End Sub

c'est juste une fonction test pour savoir comment gerer les boucles 
Maintenant il y a deux questions:
1) comment faire tourner strat1 en boucle sur la journée. Pour répondre à cette question il n'y a pas besoin de plus d'information il me semble.
2) le pourquoi du message d'erreur, cette question est secondaire pour moi (secondaire ne veux pas dire que cela n'a aucune importance ou que ce n'est pas lié à la première question je dis ça pour ceux qui voudraient encore se défouler), je veux surtout la réponse a la première question. Voilà vous avez tout 
Merci d'avance pour ceux qui voudront bien m'aider

ucfoutu · Answer

sans ton code (celui qui appelle la procédure définie par application.ontime et celui de la procédure ainsi appelée, ma foi... il faudrait être devin ) 
mais commençons par celle appelée par Ontime , comme demandé depuis le tout début de cette discussion et non encore montré
bon les enfants faut se detendre, si le but du forum est de prendre les gens pour des cons faut aller consulter

Application.OnTime Now + TimeValue("00:00:01"), "strat1" (et pas "strategy" comme j'ai pu l'ecrire) 
je te laisse juger par toi-même ....
Voilà vous avez tout 
Que nenni ! (et pour ton ibnfo : ce n'est pas ta procédure position qui pourrait déclencher l'erreur 9 !)
Tu comptes la montrer quand, cette procédure ?
A défaut de la montrer maintenant (on en est quand même à un bon lot de messages la réclamant !) moi, je t'abandonne sans le moindre scrupule. ('Et il te restera à apprécier qui, dans cette affaire, prend les autres pour ce qu'ils ne sont pas ... et qui doit "consulter"  ) 
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Attends donc ...
voilà que tu dis maintenant :
Application.OnTime Now + TimeValue("00:00:01"), "strat1" (et pas "strategy" comme j'ai pu l'ecrire) 
ce qui ferait que ta procédure, qui est celle qui semble être la principale, se répèterait elle-même toutes les secondes (à condition, en plus, d'avoir été lancée une première fois)... Joli ! . Tu obtiendrais le même résultat en l'assortissant d'une boucle de répétition à l'infini ... (c'est une véritable histoire de ... devine).

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Et en plus, comme ta procédure se relance inlassablement elle-même, sans jamais "rendre la main" au système, je vois mal comment et par quoi les données qu'elle traite pourraient avoir été modifiées... (à moins qu'elles ne l'aient été depuis une autre appli, dont tu ne nous parles pas).
Je suppose/espère donc que ta machine est équipée d'un excellent processeur et qu'il est protégé/refroidi  par un excellent ventilateur (tu nne l'entends pas s'emballer ?) ...


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

ok !!!la je vois pas ce que vous voulez de plus  
strat1 initialise  les variables x, xm , ...., poidsr
j'utilise la procedure position: 

Call position(x, xm, xi, xp, poids, pos, compteur, nom, LQ, PLQi, BQ, PBQi, t, poidsr) 

je vous ai aussi donné le code de position.
Une fois que celle-ci est terminé je rappelle la procedure strat1: 

Application.OnTime Now + TimeValue("00:00:01"), "strat1"

tout ça s'applique sur une page excel ou des mises à jours se font regulièrement c'est pour ça que j'ai besoin de gerer des boucles la je n'ai rien d'autre à vous donné je peux pas l'inventer s'il manque quelquechose très bien dites moi quoi au lieu de me chier sur la gueule    

ucfoutu:

"Attends donc ... 
voilà que tu dis maintenant : 

Application.OnTime Now + TimeValue("00:00:01"), "strat1" (et pas "strategy" comme j'ai pu l'ecrire) 


ce qui ferait que ta procédure, qui est celle qui semble être la principale, se répèterait elle-même toutes les secondes (à condition, en plus, d'avoir été lancée une première fois)... Joli ! . Tu obtiendrais le même résultat en l'assortissant d'une boucle de répétition à l'infini ... (c'est une véritable histoire de ... devine). "

au départ ce n'etait pas une seconde mais plutot 30 j'ai une pour essayer de repoduire l'erreur quand vous me l'avez demandé et enfin elle ne fait que tourner en boucle puisqu'elle appelle la procedure position 
j'ai vu qu il y avait des critiques c'est très bien je suis là pour ça mais surtout pour les solutions que vous avez a proposer 
Merci

ucfoutu · Answer

Une chose doit être claire dans ton esprit : aucune ligne de ton code montré de saurait déclencher l'erreur dont tu parles. l'erreur 9 concerne en effet un indice n'appartenant pas à la sélection et rien du code montré ne touche au moindre indice.
Entre donc en mode debug et dis-nous sur quelle ligne, du code que tu nous as montré, intervient ton erreur .
L'erreur est- donc générée ailleurs (c'est pour moi clair).
Comment et depuis où et quoi sont effectuées tes mises à jour ? (ton erreur s'y trouve probablement)
Je  vois par ailleurs mal, où la main est rendue au système, dans le même fil (thread)... ce qui me donne à penser qu'un autre fil intervient (mais tu ne nous en dit rien, te contentant d'insister pour trouver la cause de ton erreur dans ce qui ne saurait générer cette erreur là. on peut y passer ainsi beaucoup de temps !) !



____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

bon déjà je comprends mieux ecoutes j'essaie de reproduire l'erreur et je te donnerai plus de détails (demain car je n'ai pas d'ordi chez moi)par contre peux tu m'en dire un peu plus sur cette histoire de "rendre la main au système"
Merci

ucfoutu · Answer

Pendant toute la durée des instructions d'une procédure (dans un même fil) seules ces instructions s'exécutent. Pour que d'autres (du même fil) puissent être également exécutées, il est nécessaire que la procédure permette au système de le faire.
C'est la  vocation de DoEvents (à lire dans ton aide en ligne)
Mais je maintiens que ton problème est plus fondamental que cela, puisque tu nous dis que des mises à jour s'effectuent pendant la procédure (qui ne se termine jamais). C'est la raison pour laquelle je ne peux que penser à des modifications effectuées sur un autre fil. Et comme Excel n'est pas "multiThread", je pense bien évidemment à un fil d'une application externe ou d'une autre instance.
Voilà (à moins que tu ne nous ai pas tout dit de l'instance en cours)

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Ajoutons quelques petites choses :
1) regarde dans ton aide en ligne la vocation de l'instruction stop (elle n'est pas forcément ce que tu crois qu'elle est)
2) je t'ai dit qu'Excel n'était pas" MultiThread". Ce n'est pas tout-à-fait vrai ! Excel lui-m^me utilise deux threads, mais pas ton appli. Excel utilise en fait un second thread dont il est le seul gestionnaire : celui des calculs (qui se font dans un thread distinct qu'il est seul à gérer)
Ces calculs (ce thread) intervient chaque fois qu'une valeur de cellule est modifiée
Tu as suivi ? On continue ...
3) Que fait Excel dans ce second thread ? =====>> il calcule/recalcule
Il calcule/recalcule quoi ? toutes les cellules dotées d'une formule...
4) Formules ? ===>>> oui : toutes celles d'Excel, mais également toutes les fonctions personnalisées (à mettre dans un module bas), appelable comme "formule depuis une cellule, qui prendra le résultat de la fonction personnalisée.
Tu as suivi ? ===>> on continue.
5) Que font donc tes procédures ? ===>> elles me paraissent fort modifier la valeur d'une cellule en fonction des valeurs d'autres cellules, non (ou je me trompe ?) ?. Mais alors : une simple fonction personnalisée mise comme formule dans la cellule concernée et cette cellule prendra la valeur retournée par cette fonction ...
Et ce, chaque fois qu'il y aura eu une modification (ta "mise à jour", apparemment) des données servant au calcul/recalcul.
Tu suis ? ===>> on continue alors :
En observant cette "philosophie" de base d'Excel ===>> même plus besoin d'un pseudo timer (application.Ontime) pour faire ce que montre ton code 
Voilà ! Lis, relis, re-relis... et ... change ton fusil d'épaule ....

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Je t'encourage vivement à lire ceci :
http://msdn.microsoft.com/en-us/library/aa730921.aspx#Office2007excelPerf_UnderstandingCalculationMethodsExcel
Arrête-toi plus longuement sur les threads qu'utilise Excel pour calculer. Mais lis également calmement tout le reste ===>> tu devrais pouvoir en tirer quelques conclusions et prendre certaines sages décisions .
Voilà ... tu en sais maintenant presqu'autant que moi. A toi de jouer ...

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

Bonjour pour le fait d'ecrcire directement les formule sur la feuille excel j'ai déjà essayé mais le problème c'est que je dois ecrire,dans des cellules, des formules qui dépendent des mêmes cellules et là excel me reponds que cela ne peux se faire qu'un certain nombre de fois (ça c'est d'après mes souvenirs) bref je reteste mon programme et vous donne des news

captainbagdad · Answer

Une autre question au passage l'utilisation de l'application ontime ne permet pas selon le temps imparti de laisser la main a l'ordi quand je faisait tourné le programme je n'avais pas trop de mal à faire d'autre truc avec mon ordi (internet et de faire tourner un autre programme sur excel)

ucfoutu · Answer

Tu as en effet des références circulaires (notamment sur F13 et E7) qu'il va te falloir gérer...
Le problème doit d'ailleurs se poser de manière quasi identique en utilisant ta méthode actuelle.
Que cherches-tu à faire ? on a l'impression que tu recherches des valeurs optimales (mais sans en être vraiment certain). Ne serait-il alors pas plus adroit de faire ces recherches dans un tableau dynamique distinct et de n'intervenir qu'in fine (une seule fois, donc) pour modifier la valeur d'"une cellule ?
Tu pourrais également penser à l'utilisation d'une variable toto pour ne pas redéclencher systématiquement. 
Dur de faire l'analyse complète de ton mécanisme sans même savoir ce qu'il est et ce que tu as en tête. D'instinct (mais je n'en sais rien en fait) je serais tenté d'incrémenter la variable toto de 1 unité à chaque modification des valeurs. Ainsi, si les valeurs sont modifiées par suite d'une mise à jour, toto serait impair. Il serait pair à chaque recalcul. Et je ne permettrait le recalcul que si toto est impair. 
Bonne chance.
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Une autre question au passage l'utilisation de l'application ontime ne permet pas selon le temps imparti de laisser la main a l'ordi quand je faisait tourné le programme je n'avais pas trop de mal à faire d'autre truc avec mon ordi (internet et de faire tourner un autre programme sur excel)

Les autres programmes sont sur d'autres fils et n'ont rien à voir dans cette affaire !

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

Autre sais tu comment comment activer une macro à chaque fois que la valeurs d'une ou plusieurs à changer ?
Merci pour ta patience

ucfoutu · Answer

Evènement Change de ta feuille.


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Et c'est là une meilleure idée que celle de Application.Ontime (à condition de l'assortir du petit compteur pair/impair dont je t'ai parlé plus haut, de sorte à ce que cet évènement ne déclenche tes trucs que lorsque les données ne sont pas modifiées par tes trucs eux-mêmes, hein ...sinon ==>> toujours le même piège )


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Et tu peux remplacer cette variable pair/impair par une booléenne True/False.
A chaque modif de la booléenne : (si ta variable s'appelle toto) : toto = not toto.
Dans ton code : lorsque tu lances tes trucs, toto (false au départ), va ainsi devenir true (et dans ton  évènement change de ta feuille, tu ne lances tes trrucs que si toto = False)
A la fin de tes procédures de trucs, tu remets toto = not toto.
Ca devrait mieux aller ainsi.


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

ucfoutu · Answer

Suis-je bête ou endormi, aujourd'hui ....? 
Il te suffit d'appeler tes procédures dans l'évènement Change de ta feuille et :
Au début de tes procédures :
Application.EnableEvents = False
puis, à la fin de leur exécution (leur dernière ligne d'exécution) :
Application.EnableEvents = True

et voilà ! mle chien ne se "mordra ainsi plus la queue" 

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

Oui c'est presque cela en fait mon programme doit juste doit juste prendre des valeurs comme un cours de bourse par exemple et doit envoyé un message d'erreur quand celui atteind un certain seuil (ce seuil est une fonction de toute la trajectoire de puis le moment ou tu commence a l'observé) après j en sais pas plus mon maitre de stage ordonne j execute

captainbagdad · Answer

merci poour l info je teste et je te dis ce qu il en est !!!!

captainbagdad · Answer

Bon j'ai des nouvelles, j'ai fait demarrer mon programme ce matin 9h30 et il s'est arreté cet après midi vers 15h30. Excel(version 2003) a redemarré tout seul sans message d'erreur a part une page microsoft disant qu excel a rencontré des problèmes voulez vous envoyer un rapport 
voilà !!!

ucfoutu · Answer

C'est probablement dû (on  pouvait s'y attendre à ce rythme-là) à un overflow en raison de tes références circulaires, entre autres.
Il en ira ainsi tant que tu ne contourneras pas ce problème et que tu continueras à sur-solliciter ton processeur.
As-tu essayé de mettre en oeuvre la/les solution(s) que je t'ai signalées ?
Je pourrais probablement être plus précis en matière d'imagination si tu me disais comment, d'où et par quoi sont exactement faites ces fameuses "mises à jour".


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

non je n'ai pas eu le temps de le faire car je voulais reproduire l'erreur pour les mise à jour pour l'instant je traivaille avec des collages speciaux, en faisant des copies sur une plateforme, pour l'instant ça a très bien fonctionné. Cepedant la plateforme utilisée ne le sera plus par la suite (collage spécial va peut être devenir impossible) j'avais donc dans l'idée d'utiliser des automations via l'instruction RTD (j'apprends donc je ne sais vraiment comment faire pour l'instant) tu vas me prendre pour un gros naze (si c'est pas déjà le cas) mais je rencontre un autre souci(c'est aussi pour cette raison que je n'ai pas encore essayé ta solution) la moindre fonction que je veux créer ne marche pas même celle ci

Function test()
 test = 1
End Function

vba me dit qu'il ne retrouve ni le projet ni la bibliothèque si tu as une info à me donner je suis preneur 

Merci

ucfoutu · Answer

Il est vraisemblable que tu as fait perdre la boule à Excel (ou tout au moins àa-t-il perdu ses pointeurs)
Tu devrais pouvoir retyrouver ton projet sur le disque dur, dans l'état où il se trouvait.
Chaque fois que l'on ouvre un fichier Excel, Excel ouvre en mémoire un fichier temporaire qu'il n(efface que lorsque l'on enregistre le classeur et qu'on le ferme proprement.
Je ne sais quel est le préfixe donné par la version 2003. La version 2007 ouvre un fichier dont le nom commence par ~$
Il suffit alors de rechercher les fichiers commençant par ~$, de localiser le tien, de le renommer et de rouvrir.
Et surtout : arrête de provoquer ainsi Excel.


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

captainbagdad · Answer

évenement Change (via l'évènement Calculate) semble exactement ce que je cherchais finalement mais en l'utilisant je me suis mangé erreur d'execution 28 (Au passge j'en profite pour m'excuser pour les fautes d'ortographe)

captainbagdad · Answer

il te faut peut etre le code (tu vois que j'apprends vite)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant 
Dim xm As Variant 
Dim xp As Double 
Dim xi As Variant 
Dim poids As Double 
Dim pos As Variant 
Dim compteur As Integer 
Dim nom As Double 
Dim LQ As Double 
Dim BQ As Double 
Dim PLQi As Double 
Dim PBQi As Double 
Dim t As Variant 
Dim poidsr As Double 
Dim datei As Date 

x = Workbooks("test").Worksheets("test1").Range("D7").Value 

xm = Workbooks("test").Worksheets("test1").Range("E7").Value 

xp = Workbooks("test").Worksheets("test1").Range("F7").Value 

xi = Workbooks("test").Worksheets("test1").Range("G7").Value 

poids = Workbooks("test").Worksheets("test1").Range("G13").Value 

pos = Workbooks("test").Worksheets("test1").Range("H9").Value 

compteur = Workbooks("test").Worksheets("test1").Range("F13").Value 

nom = Workbooks("test").Worksheets("test1").Range("C7").Value 

LQ = Workbooks("test").Worksheets("test1").Range("C9").Value 

BQ = Workbooks("test").Worksheets("test1").Range("C11").Value 

PLQi = Workbooks("test").Worksheets("test1").Range("E9").Value 

PBQi = Workbooks("test").Worksheets("test1").Range("E11").Value 

t = Workbooks("test").Worksheets("test1").Range("E13").Value 

poidsr = Workbooks("test").Worksheets("test1").Range("C15").Value 

datei = Workbooks("test").Worksheets("test1").Range("C13").Value 

If datei = Date Then 
Workbooks("test").Worksheets("test1").Range("F13").Value = 2 
Else 
Workbooks("test").Worksheets("test1").Range("F13").Value = 1 
End If 

If x < xm Then 
Workbooks("test").Worksheets("test1").Range("E7").Value = x 
End If 

If x > xp Then 
Workbooks("test").Worksheets("test1").Range("F7").Value = x 
End If 

Call position(x, xm, xi, xp, poids, pos, compteur, nom, LQ, PLQi, BQ, PBQi, t, poidsr) 

End Sub

Private Sub Worksheet_Calculate()
    Call Worksheet_Change(Workbooks("test").Worksheets("test1").Range("D7"))
End Sub

et j'ai erreur execution 28

captainbagdad · Answer

j'ai mis un compteur et il semblerait que ma fonction position soit appelé jusqu'à l'affichage de l'erreur 28 mais je ne sais pas pas pourquoi

captainbagdad · Answer

pour fonction position je voulais dire procédure 
enfin comme activer la macro lors du chamgement de cellule ciblée

captainbagdad · Answer

bon bon je crois que tu avais dejà répondu a ces question en fait

captainbagdad · Answer

Merci beaucoup ça marche très bien  (si je modifie les valeurs à la main)
j'ai une dernière question sur l'utilisation de la fonction RTD aurais tu de la documentation? en effet pour l'instant je travaille avec des collages spéciaux or ceci ne provoque pas l'evenement Change 
Voilà si tu pouvais encore m'aider sur ce point ce serait super
En tout cas merci beaucoup pour ton aide (et tes enseignement)

captainbagdad · Answer

enseignements

ucfoutu · Answer

RTD n'est à ma connaissance pas une fonction, mais un objet (que je n'ai jamais utilisé ... je ne suis qu'un débutant en VBA en dépit des apparences ... et ne peux donc t'en parler valablement.)
Si l'objet de la présente discussion est résolu ===>>> clique sur le tag "réponse acceptée" (en regard de la réponse adéquate) et passe à un nouveau sujet à propos de RTD (quelqu'un aura alors peut-être la possibilité de te renseigner sur cette AUTRE question).

____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

Temps reel

45 réponses

Votre réponse

Discussions similaires