Discussion :

[boben]

Bonjour,

je souhaite réaliser 310 graphiques identique (des nuages de points)

j'ai 310 entités qui n'évolueront pas (colonne A),
j'ai 12 périodes représentées par 12 colonnes (B-M)

1 ligne = 1 Entité
pour chaque entité j'ai une valeur par période et je souhaite représenter un nuage de point plus courbe de tendance linéaire et équation de la droite
en gros pour chaque ligne je veux un nouveau graphique (B2-M2 à B311-M311) avec pour nom de graphique l'entité dans le colonne A.
j'ai tenté de faire une boucle mais mon code ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
For i = 1 To 310
 
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Indice_Hfaune_flore!A & i"
    ActiveChart.SeriesCollection(1).XValues = "=Indice_Hfaune_flore!$B$1:$M$1"
    ActiveChart.SeriesCollection(1).Values = "=Indice_Hfaune_flore!B & i :M & i"
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Trendlines.Add
    ActiveChart.SeriesCollection(1).Trendlines(1).Select
    Selection.DisplayEquation = True
    Selection.DisplayRSquared = True
    ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select
    Selection.Left = 266.902
    Selection.Top = 9.077
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Graphique 4").IncrementLeft 500.25
    ActiveSheet.Shapes("Graphique 4").IncrementTop -198
 
Next i
 
End Sub

quelqu'un pourrait m'orienter ? merci

[Menhir]

Je pense que ton problème est juste un mauvais positionnement des guillemets et un & oublié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveChart.SeriesCollection(1).Name = "=Indice_Hfaune_flore!A" & i
    ActiveChart.SeriesCollection(1).XValues = "=Indice_Hfaune_flore!$B$1:$M$1"
    ActiveChart.SeriesCollection(1).Values = "=Indice_Hfaune_flore!B" & i & ":M" & i

Petit détail : à ta place, j'utiliserais une variable objet plutôt que ActiveChart.
Les ActiveSheet sont inutiles.

Autre remarque : pour les lignes Left et Top, tu devrait calculer des valeurs en fonction de i. Sinon, tous tes graphiques seront au même endroit et se recouvriront les uns les autres.

[boben]

Ok merci,

j'ai bien corrigé ces petits problèmes mais cela ne fonctionne toujours pas, il ne trouve pas les valeurs à prendre ne compte,
je pense que le problème vient du début de mon code et qu'il manque certainement un ligne ou deux avant ou après le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For i = 1 To 310

merci

[Menhir]

cela ne fonctionne toujours pas, il ne trouve pas les valeurs à prendre ne compte,

Tu pourrais être plus précis sur les symptômes de ton problème ?

je pense que le problème vient du début de mon code et qu'il manque certainement un ligne ou deux avant ou après le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 1 To 310

A priori non.
Certes, il serait mieux de déclarer ta variable avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i As Long

Mais ce n'est pas ça qui empêchera l'usage de ton code.
Ca pourrait le bloquer si tu l'avait précédé de l'option Explicit mais, dans ce cas, ça te bloquerai d'entrée avec un message "Variable non définie". A priori, ce n'est pas le cas.

[boben]

Alors,

cela me dit erreur 438

à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Selection.DisplayEquation = True

j'ai un graph qui apparait avec en abscisse 0 0.2-0.4-...1 au lieu de 1 à 12
et en ordonnée 0.1...1 au lieu de mes valeurs qui oscillent entre 0 et 6
le titre donne #ref
et il n'y a aucun point sur le graph

comment je peux insérer une partie de mes données ici ?

[boben]

graph.xlsx

voilà mes données