Données et graph en temps reel

Version imprimable

Voir 40 message(s) de cette discussion en une page

15/12/2007, 11h24
bergoliv

Données et graph en temps reel

bonjour,

Je voudrais, sous excel, créer une liste de données evolutive et avoir le graphique modifié en temps reel.

Par une liaison DDE, j'obtient dans une cellule le prix d une action qui evolue en temps reel.

1)Je voudrais , a chaque changement de valeur de cette cellule, enregistrer la nouvelle valeur dans la cellule du dessous et ainsi de suite afin d obtenir une liste de données pour creer mon graph.

2)Créer un graph a partir de cette liste qui ce metrait a jour automatiquement a chaque nouvelle cellule.

3)pouvoir limiter le nombre de cellules.

Voila mais questions:
Excel peut il faire ca sans passer par du language de programmation ou faut il obligatoirement faire une macro ?

J ai environ 10000 changement de valeur dans ma journée pour une action,sachant que je fais ca sur une dizaine d action, est ce que ca ne va pas etre trop lourd pour excel?

Si la macro est obligatoire, pouvez vous me dire par ou commencer ?

merci.
15/12/2007, 12h13
ouskel'n'or

Par macro, c'est assez simple à réaliser. Par Excel, je ne vois pas. Si on pouvait utiliser une fonction pour obtenir la nouvelle plage à chaque incrémentation du nombre de lignes, ça règlerait le pb... mais je ne vois pas comment le graphe récupérerait la nouvelle valeur.
Par macro, tu dois déjà avoir la procédure plaçant la nouvelle donnée... où le fais-tu manuellement ?
Dis-nous en plus ;)
15/12/2007, 13h23
LeForestier

Bonjour,
Bonjour Ouskel'n'or

Citation:

ça règlerait le pb... mais je ne vois pas comment le graphe récupérerait la nouvelle valeur.

Dans la macro, en mettant la valeur au bon endroit dans la plage de données du Graph ?
A+
15/12/2007, 13h41
bergoliv

je vais essayer d etre plus clair.

Dans une cellule d'excel j importe le cours d une paire de monnaie par l intermediaire d un lien , appelé DDE entre excel et un logiciel boursier.

Donc dans cette cellule j ai le prix en temps reel de ma paire en tapant cette commande dans ma cellule: MT4|BID!USDCHF.
J ai donc le cours en temps reel de ma paire qui fluctue dans ma cellule.

Ensuite pour créer un graph je pense qu il faut d abord créer une liste d apres chaque changement de prix. Donc chaque fois que la valeur de la cellule de reference change il faut decaler d une cellule pour inscrire la nouvelle valeur.

Ce qui reviend a sauvegarder dans une liste toute les nouvelles valeurs de la paires les unes apres les autres.

Ensuite il n y a plus qu a faire un graph de cette liste qui incorpore chaque nouvelle valeur.

merci

Je te propose un code en supposant que la plage de données de ton graph couvre les colonnes A et B (1 et 2) et vont de la ligne 1 à la dernière ligne renseignée de ta feuille de calculs, colonne A.
Enfin, pour le N° du graphe, j'utilise le N° du dernier graphe créé.

Ce code est à placer dans la feuille de code de la feuille "feuil1"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Worksheet_Change(ByVal Target As Range)
Dim PremCol As Integer, NoLig As Long, NoGraph As Integer
Dim Derlig As Long, PremLig As Integer
Dim FL1 As Worksheet
    Set FL1 = Worksheets("Feuil1")
    FL1.Range("A1").Select
    PremCol = 1 'Première colonne de la source de données du graphe
    DerCol = 2  'Dernière colonne de la source de données
 
    'Si d'autres colonnes que les colonnes PremCol  ou DerCol son modifiées, on sort
    If Target.Column <> PremCol Or Target.Column <> DerCol Then Exit Sub
 
    PremLig = 1 'Première ligne de la source de données
 
    'dernière ligne renseignée de la source de données (ici de la feuille de calculs)
    Derlig = FL1.Cells(Columns(PremCol).Cells.Count, PremCol).End(xlUp).Row
 
    'Adresse de la nouvelle plage après insertion d'une ligne ou la modif d'une cellule
    Plage = Range(Cells(PremLig, PremCol), Cells(Derlig, DerCol)).Address
 
    NoGraph = ActiveSheet.ChartObjects.Count
 
    ActiveSheet.ChartObjects(NoGraph).Activate
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Plage), PlotBy _
        :=xlColumns
    FL1.Range("A1").Select
 
End Sub

Tu dis
A+

15/12/2007, 17h19
LeForestier

Bonjour,
A titre d'info.
Ont peu copier la nouvelle plage dans le ClipBoard
Sélectionner le graph et.. Paste.
A+
15/12/2007, 17h54
bergoliv

Merci beucoup de me donner de votre temps, je vais essayer le code de ouskel'n'or, mais sincerement je ne comprend pas tout.

merci
15/12/2007, 19h51
ouskel'n'or

J'ai pourtant documenté chaque ligne :(
Ceci dit, tu nous indiques ce que tu ne comprends pas, LeForestier ou moi t'expliqueront ;)
A+

PS - Pour placer le code dans la feuille de code de "Feuil1", tu vas dans Editeur VB
Dans Excel -> Outils -> Macros -> Editeur VB. Une fois là, deux clics sur Feuil1 ouvre la feuille de code. Tu colles le code passé. Tu adaptes les N° de colonnes début et fin et, pour tester, tu changes ou ajoutes des valeurs dans ces colonnes.
... si c'était ça ton problème :?

NB - Pour que ça fonctionne, ton graphe doit exister et avoir pour données source les données des colonnes 1 et 2 (A et B)
15/12/2007, 22h10
bergoliv

merci pour ces explication minucieuses , pour manipuler les codes dans vb ca va bien :D,merci.
Mais ce que je ne comprend pas c est pourquoi tu travaille sur 2colonnes?(A et B) 8O Il n en faut qu une non?

Ensuite, si je fais un changement de valeur de a1 rien ne ce passe , alors que ca devrais entrer la nouvelle valeur en a2 puis si la valeur de a1 change encore ca devrais entrer la nouvelle valeur en a3 et ainsi de suite afin d avoir une liste de chaque changement de valeur les unes apres les autres.

par contre si je rentre une valeur dans n importe qu elle autre cellule le curseur revient en a1??.

Il y a peut etre un souci dans le code ou alors c est moi qui explique mal mes attentes :oops: .

merci pour votre patience
15/12/2007, 23h15
ouskel'n'or

Les cellules renseignées doivent se suivre sinon tu auras des trous. Tu peux aussi modifier des valeurs dans la colonne 1.
Je vérifie le code.
A+

Ok. Comme tu n'as qu'une colonne, alors modifie cette ligne

Code:

DerCol = 1 'Dernière colonne de la source de données

ensuite supprime la dernière ligne.

Code:

FL1.Range("A1").Select

elle ne sert à rien
Ton graphe a bien été créé à partir de la colonne 1 ?
16/12/2007, 00h14
bergoliv

voila j ai fait les modifs et un message d erreur apparait:

Erreur d execution, impossible de lire la propriete chartobgects de la classe worksheet.

et toujours pas de liste qui se construit.

merci pour votre aide
16/12/2007, 02h27
ouskel'n'or

Montre ton code avec les modifs. Quelle version d'office as-tu ?
Mieux, passe ton fichier ;)
A+

bien voila le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
modifiéPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim PremCol As Integer, NoLig As Long, NoGraph As Integer
Dim Derlig As Long, PremLig As Integer
Dim FL1 As Worksheet
    Set FL1 = Worksheets("Feuil1")
    FL1.Range("A1").Select
    PremCol = 1 'Première colonne de la source de données du graphe
    DerCol = 1  'Dernière colonne de la source de données
 
    'Si d'autres colonnes que les colonnes PremCol  ou DerCol son modifiées, on sort
    If Target.Column <> PremCol Or Target.Column <> DerCol Then Exit Sub
 
    PremLig = 1 'Première ligne de la source de données
 
    'dernière ligne renseignée de la source de données (ici de la feuille de calculs)
    Derlig = FL1.Cells(Columns(PremCol).Cells.Count, PremCol).End(xlUp).Row
 
    'Adresse de la nouvelle plage après insertion d'une ligne ou la modif d'une cellule
    Plage = Range(Cells(PremLig, PremCol), Cells(Derlig, DerCol)).Address
 
    NoGraph = ActiveSheet.ChartObjects.Count
 
    ActiveSheet.ChartObjects(NoGraph).Activate
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Plage), PlotBy _
        :=xlColumns
 
 
 
End Sub

J ai la version execl du pack office XP, plus exactement version 2002 SP3

Et j ai pas de fichier puisque je commence a peine avec votre aide.
J ai juste un fichier ou la cellule a1 contient cette lignes me permettant d avoir mon flux boursier en temps reel: MT4|BID!USDCHF et votre code avec vba.

merci

16/12/2007, 10h43
ouskel'n'or

Si j'avais mieux relu...

Code:

If Target.Column <> PremCol and Target.Column <> DerCol Then Exit Sub

Comme tu n'as qu'une seule colonne, ça ne devrait rien changer mais avec deux, c'était une erreur.
Ceci dit, avec une seule donnée, ton graphe ne doit rien afficher.
Je viens de tester de nouveau et pour moi, correction faite, ça fonctionne pour chaque ligne ajoutée ou chaque modification d'une cellule renseignée de la plage.
Essaie en renseignant plusieurs lignes manuellement.
A+

PS - Pour la version, j'ai la même que toi SP3. Si tu as SP2 ça ne change rien ici. Mais tu devrais faire la mise à jour.
16/12/2007, 11h33
LeForestier

bonjour,
Essaye de remplacer la ligne suivante

Code:

set NoGraph = ActiveSheet.ChartObjects.Count

:P
A+
16/12/2007, 12h04
bergoliv

1 pièce(s) jointe(s)

Je suis vraiment désolé mais ca ne fonction pas malgré vos dernieres modifs, je vous envoie un screen tres simple de ce que ca devrais faire sauf que j ai tout entré manuellement.

Pièce jointe 22994

ci ca peut eclaicir la chose.

merci
16/12/2007, 12h12
ouskel'n'or

Hello l'homme des bois,
Mon code fonctionne tel quel, teste-le.
Instancier simplement le graph demande plusieurs autres modifications que visiblement bergoliv ne saurait pas faire.
Il serait nécessaire de les lui indiquer ;)
A+

Je regarde le fichier joint.
16/12/2007, 12h25
ouskel'n'or

Je te joins un fichier. Je pense que tu as mis ton code dans un module standard, non dans la feuille de code de la feuille de calculs.
Deux clics sur feuil1 dans l'éditeur te montrera le code. Pas de module ajouté.
Ajoute des données dans la colonne A pour tester.
Tu commences ton graphe ligne 2, j'ai donc mis PremLig = 2.
Tu peux modifier.
Tu dis
A+

Le fichier corrigé ici http://www.developpez.net/forums/sho...2&postcount=37
16/12/2007, 12h29
bergoliv

Excusé moi je suis pommé :bug:, J ai baut chercher je n arrive pas a faire fonctionner tout ca, :oops: je suis archi nul dans ce domaine mais j aimerais bien comprendre alors HO OUI, HO OUI indiquez moi !! :sm:

merci signé le:traine:
16/12/2007, 12h30
ouskel'n'or

Tu as testé mon fichier ?

Voir 40 message(s) de cette discussion en une page