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