J'ai un fichier avec 100 graphiques. Pour 50 de ces=20
graphiques (de type Courbe) je veux ajouter une courbe de=20
tendance lin=E9aire.
Ces graphiques sont tous similaires et sont compos=E9s de 2=20
s=E9ries. Une 2003 et l'autre 2004. Je veux ajouter la=20
courbe seulement sur l'ann=E9e 2004.
Est-ce possible de programmer une macro pour effectuer=20
l'exercice sur les 50 graphiques sans avoir =E0 le faire un=20
par un?=20
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" a écrit dans 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!
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" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
07eb01c50df0$3c3c63f0$a601280a@phx.gbl...
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?
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" a écrit dans 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!
JF
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" a écrit dans 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!
.
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:=False,
DisplayRSquared:=False).Select
End With
Next i
Next j
Cordialement.
Daniel
"JF" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
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?
ç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" a écrit dans 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
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" a écrit dans le message de news: 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" a écrit dans 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!
.
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" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1d8201c50e06$3a20fc00$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
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?
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" a écrit dans le message de news: 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" a écrit dans 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
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" a écrit dans le message de news: 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" a écrit dans 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!
.
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" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1d8201c50e06$3a20fc00$a501280a@phx.gbl...
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" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:
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?
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" a écrit dans le message de news: 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" a écrit dans 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?
