Discussion :

[ShinobiFX]

Bonjour,


J'importe des données depuis un terminal de Trading (MT4) via liaison DDE inclus dans la metatrader.

Je souhaiterais recuperer la valeur max d'une serie de données qui varie en continue puisque DDE.

Le probleme pour moi est que quand j'applique la formule max à la cellule la valeur retourné est toujours la valeur de la cellule


Je m'explique:


en B3 j'ai des valeurs qui arrivent en flux continue (donc la valeur change sans cesse),et bien excel me retourne en valeur max systematiquement la valeur de la cellule b3.


Je voudrais faire un filtrage des données sur une période de temps et pouvoir recuperer la valeur MAX de cet échantillon.


Si quelqun pourrais m'aider ce serait vraiment sympa,car je bloque la dessus depuis un moment.


Merci d'Avance.

[SfJ5Rpw8]

Bonjour,

tu ne peu pas utiliser Max, il faut mémoriser la valeur maximale dans une autre cellule par exemple à chaque changement de B3 , je te propose de placer la valeur maximale en B4 et d'effectuer la mémorisation à chaque recalcul de ta feuille rajoute dans la feuille de code associée à ta feuille de calcul le code suivant :

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_Calculate()
 
If me.range("B3") > Me.Range("B4") then me.range("B4") = Me.range("B3")
 
End sub

[ShinobiFX]

Salut BBIL,

Merci beaucoup d'avoir pris le temps de me répondre.

En fait si je comprends bien tu me proposes de placer en B4 lles valeurs plus grandes que B3 et ce de manière systématique afin de récupérer la valeur max?

Je synthétise:

En gros SI en B3 ma valeur est plus grande que la précedente alors archivage en B4 et ainsi de suite.?

[SfJ5Rpw8]

Bonjour,
Oui tu as tout compris..

[ShinobiFX]

Salut BBIL,je rencontre un petit soucis avec le code que tu m'a indiqué si tu peux m’aiguiller sur le message d'erreur.Lorsque je lance la macro,le compilateur me retourne soit:

utilisation incorrecte du mot clé ME.

Voici mon code source:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Spread()
'
' Spread Macro
'
 
'
    ActiveCell.FormulaR1C1 = "=(R[3]C[1]-R[3]C)*10000"
    Range("B4").Select
 
    If Me.Range("B3") > Me.Range("B4") Then Me.Range("B4") = Me.Range("B3")
 
End Sub

[SfJ5Rpw8]

Bonjour,

Je n'ai pas utilisé d'ActiveCell dans mon code ... !!!!!

Je n'ai pas utilisé d'objet range sans préciser la feuille concerné dans mon code !!!

Je n'ai pas utilisé de Select dans mon code ..!!!!




relis mon message copie le code sans le modifier et sans rien rajouter dans la page de code associé à ta feuille excel !