re: tourne en boucle

[francky]

Bonsoir a tous

merçi a Enzobob et charly 2 pour vôtre aide

En fait je me suis mal exprimé je voudrais que le calcul s'effectue quant la valeur de A1 change Car cette valeur change automatiquement sans intervention sur la cellule.

Private Sub Worksheet_Activate()
Dim tmp As Integer

tmp = Range('A2')
Range('a2') = tmp + Range('A1')

End Sub

Désolé je suis un débutant

A +
:sick:

 

[Charly2]

Bonjour Francky, bonjour à toutes et à tous

Pour ceux que cela intéresse : Lien supprimé .

Peut-être pourrais-tu nous envoyer le code de ta procédure événementielle, et nous dire ce qui modifie la valeur de la cellule A1. Un exemple joint serait un plus

Amicalement
Charly

PS : Lis donc la charte du forum, car nous étions certainement quelques-uns à suivre ton précédent fil de discussion...

 

[francky]

En fait mon pc est relié a un automate TSXMicro et je récupère des mots directement sous excel via Kepserveur c'est pour cela que ma cellule change automatiquement.
Si vous voulez plus de renseignements n'hésitez pas.

 

[Charly2]

Bonsoir Francky,

Si tu récupères tes mots par une procédure, c'est peut-être de ce côté-là qu'il faut chercher, non ?

As-tu le code ou une partie du code qui modifie la cellule A1 ?

Amicalement
Charly

 

[francky]

Voilà ma cellule A1

=kepdde|_ddedata!channel1.TSXMicro.Cumulus_2_temp

 

[Charly2]

Re

Huuummmmmpppffffffffff :sick:

J'ai pô ça en stock . Alors autre question : à quelle fréquence les données de ton automate sont-elles récupérées ? Je te demande ça car peut-être est-il possible de mettre en place une procédure de surveillance de la cellule A1 en utilisant 'OnTime'...

A+
Charly

 

[francky]

En fait la fréquence est aléatoire c'est le problème
Et il n'existe pas une formule qui effectuerai le calcul quant la cellule change de valeur par hazard ???
En tous cas merçi de ton aide

 

[Charly2]

Re-re-re-re-re :lol:

Non, sérieusement, il n'existe pas de procédure événementielle, à ma connaissance, qui effectue le calcul quand une cellule change de valeur par un appel à une fonction

Je viens d'essayer plusieurs possibilités mais j'avoue humblement être dépassé par ton problème :S

Désolé.

Amicalement
Charly

 

[francky]

Merçi quant même d'avoir essayé

Vous avez le mérité d'essayer c'est déja beaucoup

 

[Charly2]

Merci Francky,

Si toutefois ton automate n'envoie pas plus d'une valeur par seconde et qu'elle ne soit pas identique, j'ai une possibilité...

A toi de me dire s'il y a plus d'une modification de ta cellule par seconde (ce que je pense possible à priori avec ce type d'automate).

A+
Charly

 

[francky]

En fait c'est possible avec l'automate mais pas dans ce cas précis le temps de changement de la valeur est supérieur à la seconde.

 

[Charly2]

Bonjour Francky,

Je te joins un fichier avec l'utilisation d'une procédure lancée par Application.OnTime, dans l'exemple, j'ai choisi un delta-T de 2 secondes.

C'est adapté d'un autre programme et je n'ai pas modifié le bouton de lancement.

Tiens nous au courant

Amicalement
Charly [file name=Francky_20051203113403.zip size=11060]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Francky_20051203113403.zip[/file]