Changement de valeur via DDE dans 1 cellule

slprism,

Tu peux intercepter les mises à jour DDE par l'événement Calculate et stocker
les anciennes valeurs dans des variables (ou une seule variable tableau).
Exemple pour la cellule A1, dans le module de code de la feuille concernée :

Public OldValue

Private Sub Worksheet_Calculate()

MsgBox "Ancienne valeur = " & OldValue
MsgBox "Nouvelle valeur = " & Range("A1")
OldValue = Range("A1")

End Sub

Il faudrait également initialiser OldValue à l'ouverture du classeur :

Private Sub Workbook_Open()

Feuil1.OldValue = Feuil1.Range("A1")

End Sub

Laurent

Bonjour,

Je dispose d'un tableau Excel (feuille) qui est mis à jour régulièrement via
un flux DDE.
Comment faire en VBA pour comparer les valeurs (oldvalue, newvalue) des
cellules du tableau entre chaque rafraichissement ?

Merci d'avance.

Merci beaucoup de ton aide Laurent.

Bonne continuation.
Serge.

"Laurent Longre" <nospam@free.fr> a écrit dans le message de news:
%23Wtw1QNLFHA.2132@TK2MSFTNGP14.phx.gbl...

slprism,

Tu peux intercepter les mises à jour DDE par l'événement Calculate et
stocker les anciennes valeurs dans des variables (ou une seule variable
tableau). Exemple pour la cellule A1, dans le module de code de la feuille
concernée :

Public OldValue

Private Sub Worksheet_Calculate()

MsgBox "Ancienne valeur = " & OldValue
MsgBox "Nouvelle valeur = " & Range("A1")
OldValue = Range("A1")

End Sub

Il faudrait également initialiser OldValue à l'ouverture du classeur :

Private Sub Workbook_Open()

Feuil1.OldValue = Feuil1.Range("A1")

End Sub

Laurent

Bonjour,

Je dispose d'un tableau Excel (feuille) qui est mis à jour régulièrement
via un flux DDE.
Comment faire en VBA pour comparer les valeurs (oldvalue, newvalue) des
cellules du tableau entre chaque rafraichissement ?

Merci d'avance.