[jmboutbout]

Bonjour,

jai fait le tracer d'un tir balistique,mais je n'arrive pas animer,je voudrais afficher chaque point un apres l'autre mais je narrive pas.comment faire ?
merci de vos reponses .

[jmboutbout]

je pense utiliser un macro mais je ne vois pas comment l'utiliser pouvias m'aider ?

[CB60]

Bonjour
Tu devrais mettre un petit bout de fichier avec quelques infos et le graph que tu souhaite, ce seras plus facile pour essayé de t'aider.

[jmboutbout]

MEGAUPLOAD - The leading online storage and file delivery service

[myDearFriend!]

Bonjour jmboutbout, cher ami CB60, le Forum,

Tiens... ça me rappelle un vieux fil de discussions... Animation d'un graphique. Peut-être ce fil pourra t'inspirer...

Cordialement,

[jmboutbout]

ok merci, sa va etre difficile puisque mes notions en VB sont quasi nul!!!!

[jmboutbout]

mais personnes n'a une petit idee ? parceque la je suis bloquée.dsl de vous embeté avec mais jaimerais y arriver.

[jmboutbout]

quelq'un pourait m'aider svp

[CB60]

Bonsoir
Un morceau de MichelXld et de John Walkenbach,
Regarde si cela peut te faire avancé?

[jmboutbout]

Merci bcp pour votre aide je vais voir comment sa marche un peu tous sa.Merci encore

[CB60]

Bonjour à tous
Voici quelques modif, si quelqu'un a une idée pour coupler les deux macros, je n'ai pas réussi ( probléme rafraichissement???)

[myDearFriend!]

Bonjour jmboutbout, CB60, le Forum,

Posté par CB60

Bonjour à tous
Voici quelques modif, si quelqu'un a une idée pour coupler les deux macros, je n'ai pas réussi ( probléme rafraichissement???)

Dans le module de code, tu peux remplacer l'ensemble par :

DANS UN MODULE DE CODE STANDARD

Option Explicit

Sub AnimateChart()
Dim StartVal As Long, r As Long
    Range("depart").Value = "0"
    With ActiveSheet.ChartObjects("Graph1").Chart
        .Axes(xlValue).MinimumScale = Range("k4").Value
        .Axes(xlValue).MaximumScale = Range("k5").Value
        .Axes(xlValue).MinorUnitIsAuto = True
        .Axes(xlCategory).MinimumScale = Range("k7").Value
        .Axes(xlCategory).MaximumScale = Range("k8").Value
        .Axes(xlCategory).MinorUnitIsAuto = True
    End With
    StartVal = Range("depart")
    For r = StartVal To 492 - Range("nbvaleur")
        Range("depart").Value = Range("depart").Value + 1
        DoEvents
    Next r
End Sub

Cordialement,

[CB60]

re
merci Didier, ta correction m'a permis de comprendre sur quoi je butée...

[jmboutbout]

bonjour a tous,

c'est bon j'ai reussie à avoir ce que je souhaitais,
Merci encore

MEGAUPLOAD - The leading online storage and file delivery service