Données et graph en temps reel

Version imprimable

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

16/12/2007, 13h38
bergoliv

Alors, effectivement lorsque je rentre une valeur a la suite de la liste le graph ce met a jour automatiquement. la plage du graph prend bien en compte chaque nouvelle ligne.

Parcontre, chaque nouvelle ligne doit apparaitre a chaque changement de la valeur de la cellule A1, et la si je change la valeur de la cellule A1 manuellement rien ne se passe.

En fait, chaque changement de valeur de A1 doit se rajouter en fin de liste au fur et a mesure.
La valeur de la derniere ligne correspond toujours a celle de A1 par concequence.

sinon le principe de construction du graph est fonctionnel.

merci

Bonjour Père Noël :P
Exact, ton code fonctionne impec.
2 causes possibles pour que bergoliv ne puisse le faire fonctionner.
1°) les minimum et maximum du graph ne sont pas en automatique et les données sont peut-être hors plage..pour certitude, ajouter au début macro
Code:

1 2 3 4 5 6 7 8 9 10 With ActiveChart.Axes(xlValue) .MinimumScaleIsAuto = True .MaximumScaleIsAuto = True .MinorUnitIsAuto = True .MajorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With
2°) il ne les a pas mis à la bonne place. (ce ne serais pas le 1er ;))
Dans l'explorateur de fichier tu Double clic sur la feuille qui contient ton graph.
Une fenêtre s'ouvre avec au dessus 2 combo, tu ouvre celui de guche et sélectionne WorkSheet
l'évenement..
Code:

1 2 3 4 Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub 'ICI TU MET LA SUB
s'inscrit et c'est EN-DESSOUS que tu doit mettre la routine d'Ouskel'n'or.
A+
Edit: trop longtemps avant d'envoyé la réponse 8-)

Modif de la routine d'Ouskel'n'or pour correspondre à ce que tu veux

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
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
    If Target.Address <> "$A$1" Then
        Exit Sub
    Else
        Set FL1 = Worksheets("Feuil1")
        Derlig = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row
        Cells(Derlig + 1, 1) = Cells(1, 1)
    End If
    'FL1.Range("A1").Select 'Ont y est déjà
    PremCol = 1 'Première colonne de la source de données du graphe
    DerCol = 1  'Dernière colonne de la source de données
    'Idem : ont y est déjà
    'If Target.Column <> PremCol And Target.Column <> DerCol Then Exit Sub
    PremLig = 2 '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

A+

16/12/2007, 14h03
bergoliv

Oui, c est exact je n avais pas mis le code au bon endroit, erreur de debutant classique aparement.

Toute la partie constuction auto du graph fonctionne, il ne reste plus qu a incrementer la liste avec chaque nouvelle valeur de A1 pour que ce soit parfait. Mais c est deja super de vous occuper de mon cas comme ca, vraiment merci.

Edit: Oups mon message arrive trop tard je teste ca
merci
16/12/2007, 14h10
bergoliv

Ca a l air de fonctionner parfaitement, mais j attend ce soir 23h30 pour confirmer, j aurais le flux boursier qui aurat demarré.
merci beaucoup a ce soir
16/12/2007, 14h12
ouskel'n'or

Citation:

Envoyé par LeForestier

Modif de la routine d'Ouskel'n'or pour correspondre à ce que tu veux

:mouarf: As-tu regardé ce que j'ai mis dans le fichier joint ? :mouarf:

@bergoliv

Citation:

Envoyé par ousk' réponse 18

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é.

Citation:

Envoyé par ousk' réponse 8

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

Citation:

Envoyé par =ousk' réponse 5

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

Citation:

Envoyé par bergoliv réponse 9

merci pour ces explication minucieuses , pour manipuler les codes dans vb ca va bien :D,merci.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! A voui ? :mouarf:

Citation:

Envoyé par bergoliv réponse 24

Oui, c est exact je n avais pas mis le code au bon endroit, erreur de debutant classique aparement.

Non, c'est l'erreur de quelqu'un qui ne lit pas ce qu'on lui met et qui en plus est susceptible :langue:
A quoi ça sert que ousk' il se décarcasse ? :aie:
16/12/2007, 14h26
bergoliv

arf ,arf, ca prend pas pere noel bouguont mais au grand coeur j en suis sur, je t aime :love:

meme ,si c est vrais, je merite la :fessee:

En plus je viens de passe NOUVEAU MEMBRE grace a vous!!:yaisse2:
16/12/2007, 14h38
LeForestier

Désolé Ousk, pour les messages de la page 1 je les ai lu hiers mais pas aujourd'hui.

Citation:

:mouarf:As-tu regardé ce que j'ai mis dans le fichier joint ? :mouarf:

Oui, je l'ai chargé.
J'ai réexaminé, mais sans les 2/3 lignes ajoutées ça ne s'ajoute pas en dernier ;)

Citation:

Non, c'est l'erreur de quelqu'un qui ne lit pas ce qu'on lui met et qui en plus est susceptible :evilred:

Voyons... Voyons..:P

Citation:

A quoi ça sert que ousk' il se décarcasse ?

Mais à faire avancé le Smilblick comme tu le fait d'habitude. :P:P:P
A+
16/12/2007, 15h53
ouskel'n'or

Citation:

Envoyé par LeForestier

J'ai réexaminé, mais sans les 2/3 lignes ajoutées ça ne s'ajoute pas en dernier ;)

Je n'ai pas compris. Tu veux dire que si on ajoute une ligne ça ne fonctionne pas ? J'ai pourtant testé en ajoutant ou en modifiant des lignes existantes...
Dis-moi car tel que tu me vois je suis très inquiet ;)
A+
16/12/2007, 16h14
LeForestier

Citation:

Envoyé par bergoliv

Alors, effectivement lorsque je rentre une valeur a la suite de la liste le graph ce met a jour automatiquement. la plage du graph prend bien en compte chaque nouvelle ligne.

Parcontre, chaque nouvelle ligne doit apparaitre a chaque changement de la valeur de la cellule A1, et la si je change la valeur de la cellule A1 manuellement rien ne se passe.

En fait, chaque changement de valeur de A1 doit se rajouter en fin de liste au fur et a mesure.
La valeur de la derniere ligne correspond toujours a celle de A1 par concequence.

sinon le principe de construction du graph est fonctionnel.

merci

Citation:

Envoyé par ouskel'n'or

Je n'ai pas compris. Tu veux dire que si on ajoute une ligne ça ne fonctionne pas ? J'ai pourtant testé en ajoutant ou en modifiant des lignes existantes...
Dis-moi car tel que tu me vois je suis très inquiet ;)
A+

Ca fonctionne très bien quand ont ajoute une ligne mais...
Si j'ai bien compris, et il me semble que c'est le cas,
La valeur est systématiquement entrée par son système, dans A1, et doit être ajoutée en fin de colonne et ensuite ta fonction est actionnée. ;)
A+
16/12/2007, 16h30
bergoliv

oui,oui c est exactement ca!
16/12/2007, 16h34
ouskel'n'or

Splatch ! En pleine poire ! Ouf ! Je crois enfin avoir compris :
1 - Une donnée arrive en A1...
2 - Cette donnée doit être placée en fin de colonne
avant que
3 - le graphe prenne en compte cette nouvelle donnée

La série-collection démarre donc en A2 pour se terminer sur nouvelle "dernière ligne"

Si c'est bien ça il y a une ligne de code à ajouter.

J'attends donc confirmation de bergoliv

A toi, bergoliv... ;)
16/12/2007, 16h46
LeForestier

Tu pédale un peu dans a choucroute aujourd'hui :P:P:P
Si tu met les 2/3 lignes que j'ai ajouté, le problème est résolu et il n'y a rien d'autre à ajouter.
:king:
A+
Edit:
J'espère que t'est pas tout rouge...
16/12/2007, 16h47
bergoliv

Oui, c est ca , :king:

les données qui arrivent en A1 forme un flux de prix boursier.
Tout ca pour avoir un graphique temps reel de mon flux afin de pouvoir etudier certain chose et de s affranchir des limites des plateformes boursiere.

Si ca vous interresse on peut en parler en privé uniquement bien entendu.

Je pourrais vous expliquer le but de tout ca.
16/12/2007, 17h32
ouskel'n'or

Ok, alors j'ajoute la ligne et je déplace le fichier.
A tout'

Fichier corrigé Pièce jointe 23002

Edit

Citation:

Envoyé par LeForestier

Tu pédale un peu dans a choucroute aujourd'hui :P:P:P
Si tu met les 2/3 lignes que j'ai ajouté, le problème est résolu et il n'y a rien d'autre à ajouter.
:king:
A+
Edit:
J'espère que t'est pas tout rouge...

Ben non, tu cherches deux fois la dernière ligne, ça sert à quoi ? :langue: Moi, je place le test plus loin comme ça on n'a pas à refaire un truc qu'on a déjà fait, et en plus toute la macro reste paramètrable (enfin presque...) :lol:

PS - J'espère que tu n'es pas tout rouge :mouarf:

PS (re) - Au fait, pendant que j'y pense, je n'avais pas vu la modif que tu avais faite sur Target = "A1" :mouarf:
16/12/2007, 17h49
LeForestier

Bon, je vais pas épilogué beaucoups plus longtemps sur ce sujet, constatation..
La sub est exécutée 2 fois pour arrivé au résultat :evilred:
Une ligne en trop :

Code:

FL1.Range("A1").Select 'sert à sortir du graphe

A++
16/12/2007, 18h26
ouskel'n'or

Citation:

Une ligne en trop :

Tu as raison, je l'avais mise le tps de la mise au pt de la macro.

Citation:

La sub est exécutée 2 fois

Ben oui, avec ton code aussi, dès lors que A1 n'est pas la cellule modifiée dans la série, tu reviens avant même que la macro soit finie.
Si tu mets

Citation:

If Target.Address <> "$A$1" Then
Exit Sub
Else

C'est bien que tu repasses par là quand la dernière cellule est modifiée. Sauf qu'on fait les choses à l'inverse l'un de l'autre... Et comme on cherche tous les deux la dernière ligne, tu as raison, ça revient au même, mais tu as tort puisque ce n'est pas différent :aie:

Citation:

Bon, je vais pas épilogué beaucoups plus longtemps sur ce sujet

J'adore épiloguer et j'hésite encore moins quand je suis pas bien certain de ne pas avoir raison :mouarf:
16/12/2007, 18h45
LeForestier

Bon puisque tu ne répond pas à mon MP et que tu adore épiloguer, épiloguons...
A) si ont modifie une cellule autre que A1, ma façon sort IMMEDIATEMENT de la sub, ce qui est logique non ? rien n'est fait
B) Si on modifie la cellule A1, mon système ne passe PAS DEUX FOIS.
C) Ton système, si la cellule A1 est modifiée, repasse DEUX FOIS POUR QUE CE SOIT FAIT.
D) Si une autre cellule que A1 est modifiée, ton système calcul les lignes précédent ton IF.
Quel est le plus cour ?
A+
Désolé, je n'avais pas encore ton MP
16/12/2007, 18h49
ouskel'n'or

Tu as lu ma dernière phrase

Citation:

J'adore épiloguer et j'hésite encore moins quand je suis pas bien certain de ne pas avoir raison :mouarf:

PS - J'ai répondu mais m'a fallu le temps... Eh, j'ai fait la vaisselle de midi entre temps, et les casserolles, c'est long ! :mouarf:

Bonsoir
Tout le travail à été réalisé, mais je pense que ça peut servir aussi:
Une zone nommée et votre macro plus courte
'zone nommée avec insertion, nom, définir.
'valeur =DECALER(Feuil1!L3C1;;;NBVAL(Feuil1!C1)-1;)
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_Change(ByVal Target As Range) Dim Derlig As Long Derlig = Sheets("Feuil1").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row If Target.Address = "$A$2" Then Cells(Derlig + 1, 1) = Target Exit Sub End If Sheets("Feuil1").Range("A2") = "" End Sub

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