implémenter des graphiques automatiquement

Jérémy · 19 Juillet 2006

Bonjour,
Je transfert des données depuis Access sur un tableur excel, beaucoup de données qui sont réparties dans différents tableaux. a partir de ces tableaux, je réalise des graphiques que j'aimerai implémenter automatiquement lors de l'ouverture du tableur.

J'arrive à implémenter un graphique lorsque je rajoute des données au tableau mais c'est du bidouillage et si il faut que je fasse ça pour tous les tableaux ca va me prendre beaucoup de temps.
Avez vous une solution à mon problème? une macro ou autre qui implémenterait tous mes tableaux automatiquement à partir des nouvelles données renseignées...

MErci,
Jérémy

Creepy · 19 Juillet 2006

Re : implémenter des graphiques automatiquement

Bonjour le Forum, Jérémy,

Voici un bout de code qui va t'aider. Dans un premier temps, il faut determiner ta plage de données et ensuite la passer au graphique.

A toi de modifier pour que cela s'adapte à ton besoin.

Code:

dim FinX As Integer
FinX = Sheets(1).Range("IV12").End(xlToLeft).Column
GenGraph.Select ' Mon graphique
   
    With ActiveChart
        .PlotArea.Select
        .SeriesCollection(1).XValues = KelFeuille & "R12C3:R12C" & FinX
        .SeriesCollection(1).Values = KelFeuille & "R27C3:R27C" & FinX
    End With

A+

Creepy

Jérémy · 19 Juillet 2006

Re : implémenter des graphiques automatiquement

Merci mais je ne vois pas ou insérer ce code?
Peux tu me renseigner?

Creepy · 20 Juillet 2006

Re : implémenter des graphiques automatiquement

Hello,

Il faut que tu mettes ce code dans ta procedure qui imùplemente tes données. A la fin

Comme Cela ca mettre à chaque fois ton graphique à jour

A+

Creepy

implémenter des graphiques automatiquement

Jérémy

Guest

Creepy

XLDnaute Accro

Jérémy

Guest

Creepy

XLDnaute Accro

Discussions similaires

implémenter des graphiques automatiquement

Jérémy

Guest

Creepy

XLDnaute Accro

Jérémy

Guest

Creepy

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency