Elargir sélection de données d'un graphique
Noune
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
J'essaie de mettre en place une macro qui, lorsque j'ajouterai une ligne de données dans mon classeur, ajouterait également cette ligne dans la sélection de données de mon graphique.
Cependant il semblerait qu'il y ait un soucis dans le code et je ne comprend pas pourquoi.
Voici mon code :
ActiveSheet.ChartObjects("Graphique 1").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range("A1:D" & [D65536].End(xlDown).Row).Select
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(A), PlotBy:=xlColumns
La ligne qui semble poser problème est :
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(A), PlotBy:=xlColumns
Je ne comprends pas où est l'erreur.
Merci par avance pour votre aide
Bonne journée
J'essaie de mettre en place une macro qui, lorsque j'ajouterai une ligne de données dans mon classeur, ajouterait également cette ligne dans la sélection de données de mon graphique.
Cependant il semblerait qu'il y ait un soucis dans le code et je ne comprend pas pourquoi.
Voici mon code :
ActiveSheet.ChartObjects("Graphique 1").Activate
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range("A1:D" & [D65536].End(xlDown).Row).Select
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(A), PlotBy:=xlColumns
La ligne qui semble poser problème est :
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(A), PlotBy:=xlColumns
Je ne comprends pas où est l'erreur.
Merci par avance pour votre aide
Bonne journée
A voir également:
- Elargir sélection de données d'un graphique
- Fuite données maif - Guide
- Changer de carte graphique - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
- Comment faire un graphique sur excel - Guide
2 réponses
Bonjour à tous les deux
Si tu tiens absolument à une macro, essaies ceci
Cdlmnt
Si tu tiens absolument à une macro, essaies ceci
Public Sub ok()
Dim plage As String, lifin As Long
lifin = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ChartObjects("Graphique 1").Activate
plage = "A1:D" & lifin
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(plage), PlotBy:=xlColumns
End Sub
Cdlmnt
Salut,
Est-ce impératif de passer par une macro ou bien ne serait-il pas plus simple de nommer une variable dynamique avec la fonction DECALER :
https://www.developpez.net/forums/d647917/logiciels/microsoft-office/excel/graphique-excel-plage-donnees-variable-longueur/
??? ;)
Est-ce impératif de passer par une macro ou bien ne serait-il pas plus simple de nommer une variable dynamique avec la fonction DECALER :
https://www.developpez.net/forums/d647917/logiciels/microsoft-office/excel/graphique-excel-plage-donnees-variable-longueur/
??? ;)
