Discussion :

[potili2]

bonjour
je pense utiliser ce type de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case Target.Value
            Case Is > 0
                Target.Offset(0, 1).Interior.ColorIndex = 10
            Case Is < 0
                Target.Offset(0, 1).Interior.ColorIndex = 4
        End Select
    End If

ceci fonctionne très bien, mais si les données arrivent par une liaison DDE, l'évènement n'est pas déclenché. y a t il une possibilité de tourner la difficulté?
merci.
Jean Pierre

[potili2]

ma question n'a pas l'air de faire recette...
est ce quelqu'un pourrait au moins me dire s'il est possible de déclencher un évènement par une liaison DDE. les changements des valeurs de cellules ont l'air de se faire de façon transparente pour excel qui ne semble ne s'apercevoir de rien.
merci.
Jean Pierre

[alsimbad]

cool man on passe pas notre temps devant l'écran.
je te répond sans avoir essayé parce que je ne sais meme pas exactement ce que tu appele une liaison dde. mais bon, je suppose que tes cellules sont liées. tu peux essayer d'utiliser l'evenement quand calculate, ça peut le faire

[potili2]

i beg your pardon...
dans la cellule A1 arrive le cours de bourse d'une action, cours transmis par une liaison DDE (comment, ça, j'en sais pas plus que toi!) directement d'un serveur boursier.
l'instant d'arrivée est bien sur inconnu (c'est du live!) et de plus plusieurs arrivées peuvent se faire dans le même "jet" donc on ne peut pas travailler avec une boucle qui surveillerait toutes les 10 secondes, et de toutes façons, vu le nombre d'actions à surveiller...
je pense que l'arrivée d'une nouvelle valeur n'est pas détectée par excel var cette arrivée n'est pas interne. A mon avis, il faut ruser, mais comment?
en tout cas, merci pour ta réponse.
Jean Pierre

[alsimbad]

tu as essayer le quand calculate?

[SfJ5Rpw8]

tu as essayer le quand calculate?

oui l'événement calculate est bien exécuté ... reste ensuite à recherché les valeurs modifiées....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Calculate()
Debug.Print "Calculate " & Now
End Sub

[potili2]

désolé, j'étais au boulot...
effectivement calculate fonctionne (plusieurs lignes par seconde...)
mais ça ne fait que déplacer le problème, non ? puisque calculate ne peut s'appliquer à une cellule.
sinon il y a la boucle pemanente, mais au risque de rater des valeurs!
bref, ça me parait pas évident.
Jean Pierre

[alsimbad]

il y a quelque chose que je ne saisi pas, et je ne vais pas pouvoir recréer ta macro pour le savoir. en terme français, elle fais quoi exactement? je veux dire, j'ai bien compris qu'elle change la couleur de la cellule selon sa valeur, mais quelle cellule exactement? et quel est le but? t'avertir d'un changement?tu peux peut etre ascocier quand calculate et quand change, ou meme quand calculate et une condition si changement.avec une action quand change, tu peux recuperer l'arrivée d'une valeur, savoir quelle est l'adresse de la cellule qui change, et n'analyser que celle là, ainsi pas de boucle et étant seule a etre analyser, tu ne perd pas de temps. remarque, je dis ça, je sais pas encore si c'est possible, c'est des idées, mais je pense quen associant ces fonctions là, on devrait y arriver

[potili2]

la petite macro fait changer de couleur, effectivement selon le signe de la variation du cours qui arirve en A1, pour attirer l'atention visuellement.
mais ce n'était qu'une première approche, il me faudra aussi calculer, par exemple la somme des volumes correspondant à cette action et qui, eux, arriveront en A2, par ex.
Bref, il faut pouvoir "jouer" avec la cellule qui a bougé, avec elle précisément, et le plus rapidement possible, avant qu'elle ait à nouveau changé.
ton idée d'associer calculate et changement est à creuser, je vais continuer à tenter de ce côté.