Macro+graphe

[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]

Re : Macro+graphe

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

 

[CB60]

Re : Macro+graphe

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]

Re : Macro+graphe

Ce lien n'existe plus

 

[myDearFriend!]

Re : Macro+graphe

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]

Re : Macro+graphe

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

 

[jmboutbout]

Re : Macro+graphe

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

 

[jmboutbout]

Re : Macro+graphe

quelq'un pourait m'aider svp

 

[CB60]

Re : Macro+graphe

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

 

[jmboutbout]

Re : Macro+graphe

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

 

[CB60]

Re : Macro+graphe

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!]

Re : Macro+graphe

Bonjour jmboutbout, CB60, le Forum,

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 :

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]

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

Cordialement,

 

[CB60]

Re : Macro+graphe

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

 

[jmboutbout]

Re : Macro+graphe

bonjour a tous,

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

Ce lien n'existe plus