Discussion :

[LostIN]

Bonjour
j'ai un gros prb,
je reprends un classeur excel avec des graphiques.
ces graphiques sont basés sur des lignes.
Ma question est la suivante:
je voudrais que le graphique se modifie qd je supprime une ligne (référence).
Donc suppression de la légende, de la courbe correspondante.

comment je peux faire?

merci pour vos pistes;

bon dév

[LostIN]

en fait, c'est supprimer une série (nommé) d'un graphique.

des pistes?

[LostIN]

voila ce que je tente
graphique61.Chart.SeriesCollection(nIndexASuppr).Delete

pb, il ne me trouve pas le graphique61 qui est le graphique en question

ps: ce traitement a lieu dans une procédure lancé depuis une autre feuille (userform)

[SfJ5Rpw8]

et le graphique il est ou dans une feuille de calcul du même classeur ..?

[LostIN]

oui dans une feuille de ce classeur

le graphique s'appelle graphique61, il existe déjà, car par défaut il y a toujours deux séries et il est sur un onglet du classeur

puis on crée des séries
et on veut maintenant avoir la possibilité d'en supprimer

[SfJ5Rpw8]

une feuille de calcul ..? ou graphique...? le nom graphique61 il sort d'ou ..?



essai de préciser la feuille de calcul

Code :

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

1
2
 
Sheets("Feuil1").ChartObjects("Graphique61").Chart.SeriesCollection(nIndexASuppr).Delete

[LostIN]

déjà merci de te pencher sur mon pb

j'ai tenté ce que tu m'as dit et voial le message précis d'erreur.

Erreur d'execution 1004:
Impossible de lire la propriété charobject de la classe worksheet


ps: petite précision, avant d'effectuer ce traitement, je supprime une ligne de données de cette feuille, et cela fonctionne.

[SfJ5Rpw8]

c'est pas charObject mais chartOb..

vérifie le nom de tes graphes par exemple avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test()
  Dim c As ChartObject
  For Each c In Sheets("Feuil1").ChartObjects
 
    MsgBox c.Name
 
  Next
 
End Sub

[LostIN]

merci
ca va mieux
en fait c un bug d'excel (il me le nomme en anglais, soit chart 61)

petit bug subsidiaire :
la série reste en erreur (ref) mais si je ferme et relance le classeur, cela n'apparait plus?
comment traiter ca?

[SfJ5Rpw8]

merci
ca va mieux
en fait c un bug d'excel (il me le nomme en anglais, soit chart 61)

oui j'ai pas tout compris la mais cela marche avec le nom en français .. mais il te manquai peu-être un espace entre graphique et 61...

petit bug subsidiaire :
la série reste en erreur (ref) mais si je ferme et relance le classeur, cela n'apparait plus?
comment traiter ca?

pour la question subsidiaire... ? ils sont où ces ref...

[LostIN]

pardon en fait je voulais dire qu'il restait la légende correspondante.
on la vire comment?

[LostIN]

en fait même en fermat et réouvrant le #ref reste apparant

[SfJ5Rpw8]

quel type de graphique utilise tu , je n'arrive pas à le reproduire... lors de la destruction d'une série la légende correspondant et aussi supprimée...

[LostIN]

oulala, le truc que je reprend est bizrrement fait

en fait, il ya a par défaut 10 série de prévu

imaginons j'ai 4 séries, donc 4 label.

qd on ajoute une nouvelle série, ca prend la série + 1 soit 5
et ca affiche dans la légende (en l'agrandissant) les 4premières légendes plus la suivante.

voila pourquoi j'ai #ref d'afficher.
donc mon but est de réduire ce cadre légende pour ne laisser apparaitre que les 4 légende qd j'ai supprimer la 5e.

tu comprends?

ps : voila le code (que je comprends pas qui permet d'ajouter des lignes)

Code :

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

1
2
3
4
5
6
7
8
    Range("reference").Offset(Range("Nb_Mobile"), 0).EntireRow.Select
    ActiveSheet.Outline.ShowLevels RowLevels:=3
    Selection.Rows.Ungroup
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    Range(Range("reference").Offset(Range("Nb_Mobile") - 1, 0), Range("reference").Offset(Range("Nb_Mobile"), 0)).EntireRow.Select
    Selection.FillDown
    Range("reference").Offset(Range("Nb_Mobile"), 0).Select
    Selection.FillDown

[LostIN]

j'ai viré toutes ces "fausses" séries, du coup qd je crée ou supprime, tou va bien.

merci de ton coup de main précieux.