Discussion :

[buhrne]

Salut tout le monde,

Voilà j'ai un petit souci.
J'ai une feuille de calcul bourrée de cases vides au départ (données brutes). A partir de ces cellules vides j'ai créé dans un autre feuille un graphique en courbe avec une série pour chaque colonne de mon tableau "données brutes".
Lorsque l'on place dans ce tableau des données, souvent, le nombre de colonnes exploitées ne correspond pas toujours au nombre de colonnes dispos (souvent moins). J'ai donc créé une macro pour ajuster le tableau aux dimensions des données insérées. Jusque là tout marche au top.
Seulement une fois ce redimensionnement effectué, dans mon graphique, c'est le merdier, j'ai des séries qui ne contiennent aucune données qui restent dans mon graph. C'est vilain comme tout.

J'aurais donc voulu un peu d'aide pour savoir s'il est possible par macro de gicler ces références vides!

Merci d'avance

[buhrne]

J'oubliais, j'ai essayé ceci, mais ça me vire une série sur deux.
Donc pas bon.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim i As Integer
Dim e
 
e = Sheets("liste").Range("B1").Value
'dans cette cellule est indiqué la dernière valeur de série valide
 
For i = e + 1 To 36
ActiveChart.Legend.LegendEntries(i).LegendKey.Delete
Next i

[wilfried_42]

re:

Quand tu veux supprimer des objets, que ce soient des lignes, des colonnes, des images.............
il faut toujours faire une boucle inversée, car si tu supprimes l'occurence 2, la trois devenant automatiquement 2 ne sera pas traitée au prochain next

Code :

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

1
2
3
For i = 36 to e + 1 step -1
ActiveChart.Legend.LegendEntries(i).LegendKey.Delete
Next i

[buhrne]

A force de me faire avoir par le même piège à loup, je vais bien finir par me méfier!! Nan?

En tous cas merci Wilfried pour m'avoir remis la lumière.

Ça devrait marcher.