Discussion :

[julking92]

Bonjour tout le monde,


Je souhaite créer un évènement Excel qui ajoute automatiquement les données sur un graphique, tout en conservant les données déjà présentes lorsque l'on ajoute des séries et des données.
Le code que j'utilise marche lorsque les noms des séries et les données sont regroupées, mais quand on insère des colonnes entre, cela ne fonctionne plus...

Pour cela, j'ai essayé de nommer dynamiquement deux plages de données (au lieu d'une seule) et de les regrouper en une, mais cela ne fonctionne toujours pas...

Ci-joint un fichier exemple pour mieux comprendre mon problème. J'ai essayé d'être le plus clair et le plus compréhensible possible.

Merci d'avance pour votre aide !

[julking92]

Oups je viens de voir le message épinglé à propos des pièces jointes !

Alors pour être plus propore quand aux règles du forum, je reprends, voici ce que j'essaie de faire :

Je souhaite créer un évènement Excel qui ajoute automatiquement les données sur un graphique, tout en conservant les données déjà présentes.
Ce code que j'utilise marche lorsque les noms des séries et les données sont "regroupées" (pas de colonnes entre les noms des séries et les données) mais quand on insère des colonnes entre, c'est la cata...

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("Source_donnees"), PlotBy:= _
        xlRows
End If
End Sub

Et le problème est que j'aimerais justement intercaler des colonnes entre la colonne des séries et la source de données. J'ai donc essayé de nommer dynamiquement deux plages de données, mais cela ne fonctionne quand même pas, toutes les colonnes entre la colonne que je veux qui soit celle des séries et les données sont prises dans le libellé des séries....

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("Lignes", "Donnees"), PlotBy:= _
        xlRows
End If
End Sub

Comment faire pour que les sources de séries ne prennent en compte que la première colonne ?

Merci..!

[julking92]

Exemple1-bis.xlsm

Bonjour tout le monde, j'ai simplifié le fichier exemple.. En espérant que ma demande soit plus simple à comprendre..

[julking92]

Mon problème n'ayant pas l'air de soulever les foules ( ) j'ai "collé" la colonne avec les noms des séries et celles avec les données.

Je reste preneur d'une solution pour intercaler des colonnes entre et que les noms des séries ne bougent pas sur le graphique