GNT sans publicité, site mobile, fonctionnalitées exclusives...

Graphiques

Le
JF
Bonjour,

J'ai un fichier avec 100 graphiques. Pour 50 de ces
graphiques (de type Courbe) je veux ajouter une courbe de
tendance linéaire.
Ces graphiques sont tous similaires et sont composés de 2
séries. Une 2003 et l'autre 2004. Je veux ajouter la
courbe seulement sur l'année 2004.

Est-ce possible de programmer une macro pour effectuer
l'exercice sur les 50 graphiques sans avoir à le faire un
par un?

Merci pour votre aide!
Lire les 4 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #1960086
Bonjour.
Ce bout de code modifie tous les graphiques sur toutes les feuilles. A toi
de faire le tri.
For j = 1 To Sheets.Count
For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Activate
With ActiveChart
.ChartArea.Select
.SeriesCollection(2).Select
.SeriesCollection(2).Trendlines.Add(Type:=xlLinear,
Forward:=0, _
Backward:=0, DisplayEquation:úlse,
DisplayRSquared:úlse).Select
End With
Next i
Next j
Cordialement.
Daniel

"JF" 07eb01c50df0$3c3c63f0$
Bonjour,

J'ai un fichier avec 100 graphiques. Pour 50 de ces
graphiques (de type Courbe) je veux ajouter une courbe de
tendance linéaire.
Ces graphiques sont tous similaires et sont composés de 2
séries. Une 2003 et l'autre 2004. Je veux ajouter la
courbe seulement sur l'année 2004.

Est-ce possible de programmer une macro pour effectuer
l'exercice sur les 50 graphiques sans avoir à le faire un
par un?

Merci pour votre aide!
JF
Le #1960061
Merci pour l'aide...

ça ne fonctionne pas pour les deux premier graphiques et
ensuite ça fonctionne pour les 6 graphiques suivant et
après il y a un message d'erreur qui s'affiche :
erreur d'exécution 1004:
Erreur définie par l'application ou par l'objet.

Qu'est-ce que ça veut dire??




-----Message d'origine-----
Bonjour.
Ce bout de code modifie tous les graphiques sur toutes
les feuilles. A toi

de faire le tri.
For j = 1 To Sheets.Count
For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Activate
With ActiveChart
.ChartArea.Select
.SeriesCollection(2).Select
.SeriesCollection(2).Trendlines.Add
(Type:=xlLinear,

Forward:=0, _
Backward:=0, DisplayEquation:úlse,
DisplayRSquared:úlse).Select
End With
Next i
Next j
Cordialement.
Daniel

"JF" le message de news:

07eb01c50df0$3c3c63f0$
Bonjour,

J'ai un fichier avec 100 graphiques. Pour 50 de ces
graphiques (de type Courbe) je veux ajouter une courbe de
tendance linéaire.
Ces graphiques sont tous similaires et sont composés de 2
séries. Une 2003 et l'autre 2004. Je veux ajouter la
courbe seulement sur l'année 2004.

Est-ce possible de programmer une macro pour effectuer
l'exercice sur les 50 graphiques sans avoir à le faire un
par un?

Merci pour votre aide!


.



Daniel
Le #1958535
Mmm...
C'est difficile à dire. Ça dépend trop de l'organisation du classeur, de la
version d'Excel (je suis avec XL 2003), etc...
Tu peux essayer de faire fonctionner la macro en mode ligne à ligne pour
voir où ça bloque.
Dans la mesure où le classeur ne contient pas de données confidentielles, tu
peux me l'envoyer à mon adresse perso (dans ce cas, enlève les trois Z de
l'adresse).
Cordialement.
Daniel
"JF" 1d8201c50e06$3a20fc00$
Merci pour l'aide...

ça ne fonctionne pas pour les deux premier graphiques et
ensuite ça fonctionne pour les 6 graphiques suivant et
après il y a un message d'erreur qui s'affiche :
erreur d'exécution 1004:
Erreur définie par l'application ou par l'objet.

Qu'est-ce que ça veut dire??




-----Message d'origine-----
Bonjour.
Ce bout de code modifie tous les graphiques sur toutes
les feuilles. A toi

de faire le tri.
For j = 1 To Sheets.Count
For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Activate
With ActiveChart
.ChartArea.Select
.SeriesCollection(2).Select
.SeriesCollection(2).Trendlines.Add
(Type:=xlLinear,

Forward:=0, _
Backward:=0, DisplayEquation:úlse,
DisplayRSquared:úlse).Select
End With
Next i
Next j
Cordialement.
Daniel

"JF" le message de news:

07eb01c50df0$3c3c63f0$
Bonjour,

J'ai un fichier avec 100 graphiques. Pour 50 de ces
graphiques (de type Courbe) je veux ajouter une courbe de
tendance linéaire.
Ces graphiques sont tous similaires et sont composés de 2
séries. Une 2003 et l'autre 2004. Je veux ajouter la
courbe seulement sur l'année 2004.

Est-ce possible de programmer une macro pour effectuer
l'exercice sur les 50 graphiques sans avoir à le faire un
par un?

Merci pour votre aide!


.



Daniel
Le #1958536
Mmm...
C'est difficile à dire. Ça dépend trop de l'organisation du classeur, de la
version d'Excel (je suis avec XL 2003), etc...
Tu peux essayer de faire fonctionner la macro en mode ligne à ligne pour
voir où ça bloque.
Dans la mesure où le classeur ne contient pas de données confidentielles, tu
peux me l'envoyer à mon adresse perso (dans ce cas, enlève les trois Z de
l'adresse).
Cordialement.
Daniel
"JF" 1d8201c50e06$3a20fc00$
Merci pour l'aide...

ça ne fonctionne pas pour les deux premier graphiques et
ensuite ça fonctionne pour les 6 graphiques suivant et
après il y a un message d'erreur qui s'affiche :
erreur d'exécution 1004:
Erreur définie par l'application ou par l'objet.

Qu'est-ce que ça veut dire??




-----Message d'origine-----
Bonjour.
Ce bout de code modifie tous les graphiques sur toutes
les feuilles. A toi

de faire le tri.
For j = 1 To Sheets.Count
For i = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(i).Activate
With ActiveChart
.ChartArea.Select
.SeriesCollection(2).Select
.SeriesCollection(2).Trendlines.Add
(Type:=xlLinear,

Forward:=0, _
Backward:=0, DisplayEquation:úlse,
DisplayRSquared:úlse).Select
End With
Next i
Next j
Cordialement.
Daniel

"JF" le message de news:

07eb01c50df0$3c3c63f0$
Bonjour,

J'ai un fichier avec 100 graphiques. Pour 50 de ces
graphiques (de type Courbe) je veux ajouter une courbe de
tendance linéaire.
Ces graphiques sont tous similaires et sont composés de 2
séries. Une 2003 et l'autre 2004. Je veux ajouter la
courbe seulement sur l'année 2004.

Est-ce possible de programmer une macro pour effectuer
l'exercice sur les 50 graphiques sans avoir à le faire un
par un?

Merci pour votre aide!


.



Publicité
Suivre les réponses
Poster une réponse
Anonyme