Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer des nouvelles lignes via Macro dans graphique XY

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion syl0038
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

syl0038

XLDnaute Junior
Bonjour,
Quelqun un pourrait il me dire comment faire pour insérer via un code des lignes supplémentaire dans un graphique XY.
Je pourrais le faire en manuel mais j'ai 250 lignes et d'autres vont s'ajouter par la suite.
J'ai essayé de le faire en vain...

En vous remerciant.
 

Pièces jointes

Trier par date Trier par votes
Re : Insérer des nouvelles lignes via Macro dans graphique XY

Bonsoir,

Ce code permet de créer une série en étant sur une des cellules d'une des lignes du tableau
Code: 
Private Sub CommandButton1_Click()
With ActiveSheet.ChartObjects("Chart 1").Chart
   .SeriesCollection.NewSeries
   .SeriesCollection(.SeriesCollection.Count).Name = "=Sheet1!" & Cells(ActiveCell.Row, 1).Address
   .SeriesCollection(.SeriesCollection.Count).XValues = "=Sheet1!" & Cells(ActiveCell.Row, 2).Address
   .SeriesCollection(.SeriesCollection.Count).Values = "=Sheet1!" & Cells(ActiveCell.Row, 3).Address
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Insérer des nouvelles lignes via Macro dans graphique XY

Merci pour vos informations!

Voici le code que j'ai utilisé au final avec votre aide :

Private Sub CommandButton1_Click()
Dim i As Long, j As Long, k As Long, l As Long

ActiveSheet.ChartObjects("Chart 1").Activate

Do Until ActiveChart.SeriesCollection.Count = 0
ActiveChart.SeriesCollection(1).Delete
Loop

For i = 2 To 12

With ActiveSheet.ChartObjects("Chart 1").Chart
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).Name = Cells(i, 1)
.SeriesCollection(.SeriesCollection.Count).XValues = Cells(i, 2)
.SeriesCollection(.SeriesCollection.Count).Values = Cells(i, 3)

End With

Next i


End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
482
sylvanu
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
524
laurent950
  • Question Question
XL 2016 graphique avec pilotage
Réponses
0
Affichages
188
richardlion
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
394
NikonvsWild
N
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
557
Yogean
Y
X
  • Question Question
Microsoft 365 Graphique radar avec section identique et remplissage différent
Réponses
4
Affichages
410
Xav424
X
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
702
jeff1494
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
472
sylvanu
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
402
agayet
A
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
571
Abi23
A
P
  • Résolu(e)
XL 2021 Identifier lignes des doublons dans message Box
Réponses
5
Affichages
435
pierrof
P
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
852
AtTheOne
S
  • Résolu(e)
XL 2013 Copier-Coller une ligne dans tableau variable, et la manipuler.
Réponses
4
Affichages
374
StéphaneDeLà
S
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
383
Altfkat
A
O
  • Question Question
XL 2016 Identification et mise en forme des jours fériés dans un calendrier
Réponses
7
Affichages
691
TooFatBoy
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
N
  • Question Question
Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro
2
Réponses
16
Affichages
2 K
crocrocro
C
P
  • Question Question
XL pour MAC MAC OS - question sur macro VBA pour gestion fichier budget
Réponses
0
Affichages
216
pamino
P
T
  • Résolu(e)
Microsoft 365 Insérer une image DANS une cellule
Réponses
12
Affichages
2 K
Thomi
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…