Creation de série graphique

Le 23/07/2016 à 15:17

Bonjour a tous

J'ai une macro qui permet de créer des series graphiques de deux types I,J

Le problème est que les series I efface automatiquement les series J

Avez vous une solution car je cherche mais je ne trouve pas

Ci-dessous la macro

Sub Macro50()

Application.DisplayAlerts = False

Dim Lignes As Integer, I As Integer, J As Integer

Lignes = 0

I = 2

J = 3

For Lignes = 30 To 37

'Macro I----------------------------------

'Macro J----------------------------------

End With

I = I + 1

J = J + 1

Next

Application.DisplayAlerts = True

End Sub

Merci bcp

Boubou

Le 24/07/2016 à 11:26

Bonjour

Je relance le sujet avec le fichier Excel

Rappel du message de hier

"Bonjour a tous

J'ai une macro qui permet de créer des series graphiques de deux types I,J

Le problème est que les series I efface automatiquement les series J

Avez vous une solution car je cherche mais je ne trouve pas "

Merci d'avance pour toute aide

21ex.xlsm (215.66 Ko)
Le 24/07/2016 à 11:32

Bonjour,

Merci de joindre ta procédure VBA avec le fichier.

Cdlt.

Le 24/07/2016 à 11:40

Bonjour

Le code VBA est dans le fichier (Bouton EX)

Cdt

14ex.xlsm (209.89 Ko)
Le 24/07/2016 à 11:59

Désolé j'avais un Pb sur la macro

Voici le bon excel en pièce jointe (Bouton EX)

Merci d'avance

23ex.xlsm (211.05 Ko)
Le 24/07/2016 à 12:32

Re,

Il n'y a toujours pas de procédure VBA dans les fichiers joints.

Cdlt.

Le 24/07/2016 à 13:04

Bonjour

Le code est dans le fichier "Module 3"

Impossible de visualiser le code pour vous?

Ci-dessous le code en question

Cdt

Sub Macro50()

Application.DisplayAlerts = False

Dim Lignes As Integer, I As Integer, J As Integer, VI As Integer, VJ As Integer

Lignes = 0

I = 2

J = 3

'VI = 0

'VV = 0

With ActiveSheet.ChartObjects("Graphique 1").Chart

Do Until .SeriesCollection.Count = 1 'boucle supprimant toutes les séries jusqu'à ce qu'on arrive à UN

.SeriesCollection(2).Delete

Loop

End With

For Lignes = 30 To 37

'----------------------------------------------------------------------------------------------------------------------------G5>G9

'Macro LIGNE NOIRE

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(I).Name = "='DONNEES-GRAPH'!$J$" & Lignes

ActiveChart.SeriesCollection(I).XValues = "='DONNEES-GRAPH'!$L$" & Lignes & ":$M$" & Lignes

ActiveChart.SeriesCollection(I).Values = "='DONNEES-GRAPH'!$N$" & Lignes & ":$O$" & Lignes

ActiveChart.SeriesCollection(I).Select

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.ObjectThemeColor = msoThemeColorAccent1

'.ForeColor.TintAndShade = 0

'.ForeColor.Brightness = 0

End With

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.ObjectThemeColor = msoThemeColorText1

'.ForeColor.TintAndShade = 0

'.ForeColor.Brightness = 0

'.Transparency = 0

End With

With Selection.Format.Line

.Visible = msoTrue

.Weight = 8

End With

'Macro51 EFFACER LEGENDE

'ActiveSheet.ChartObjects("Graphique 1").Activate

'ActiveChart.Legend.Select

'ActiveChart.Legend.LegendEntries(I).Select

'Selection.Delete

' Macro5I BOULE

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(I).Select

ActiveChart.SeriesCollection(I).Points(1).Select

With Selection

.MarkerStyle = xlMarkerStyleCircle

.MarkerSize = 5

End With

Selection.MarkerStyle = 8

Selection.MarkerSize = 50

With Selection.Format.Fill

.Visible = msoTrue

'.ForeColor.ObjectThemeColor = msoThemeColorAccent0

.ForeColor.RGB = RGB(0, 0, 0)

'.Solid

End With

Selection.Format.Line.Visible = msoFalse

' Macro55 MSN EN BLANC

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(I).Select

ActiveChart.SeriesCollection(I).Points(1).Select

ActiveChart.SeriesCollection(I).Points(1).ApplyDataLabels

ActiveChart.SeriesCollection(I).DataLabels.Select

ActiveChart.SeriesCollection(I).Points(1).DataLabel.Select

Selection.ShowCategoryName = -1

Selection.ShowValue = 0

Selection.Position = xlLabelPositionCenter

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(I).DataLabels.Select

ActiveChart.SeriesCollection(I).Points(1).DataLabel.Select

Selection.AutoText = True

With Selection.Format.TextFrame2.TextRange.Font.Fill

'.Visible = msoTrue

.ForeColor.ObjectThemeColor = msoThemeColorBackground1

'.ForeColor.TintAndShade = 0

'.ForeColor.Brightness = 0

'.Transparency = 0

'.Solid

Selection.Format.TextFrame2.TextRange.Font.Size = 30

Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue

End With

'Selection.Format.TextFrameI.TextRange.Font.Bold = msoTrue

' Macro 56 Macro SAVING FINALE

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(I).Select

ActiveChart.SeriesCollection(I).Points(2).Select

ActiveChart.SeriesCollection(I).Points(2).ApplyDataLabels

ActiveChart.SeriesCollection(I).DataLabels.Select

ActiveChart.SeriesCollection(I).Points(2).DataLabel.Select

Selection.ShowSeriesName = -1

Selection.ShowValue = 0

Selection.Position = xlLabelPositionCenter

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(I).DataLabels.Select

ActiveChart.SeriesCollection(I).Points(2).DataLabel.Select

Selection.AutoText = True

With Selection.Format.Fill

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 0, 153)

.Transparency = 0

.Solid

End With

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 0, 0)

.Transparency = 0

End With

With Selection.Format.Line

.Visible = msoTrue

.Weight = 4.5

End With

With Selection.Format.TextFrame2.TextRange.Font.Fill

.Visible = msoTrue

.ForeColor.RGB = RGB(155, 0, 0)

.Transparency = 0

.Solid

Selection.Format.TextFrame2.TextRange.Font.Size = 40

Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue

'-----------------------------------------------------------------------------------------------------------------------------'GO>G9

End With

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(J).Name = "='DONNEES-GRAPH'!$K$" & Lignes

ActiveChart.SeriesCollection(J).XValues = "='DONNEES-GRAPH'!$P$" & Lignes & ":$Q$" & Lignes

ActiveChart.SeriesCollection(J).Values = "='DONNEES-GRAPH'!$R$" & Lignes & ":$S$" & Lignes

ActiveChart.SeriesCollection(J).Select

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.ObjectThemeColor = msoThemeColorAccent1

'.ForeColor.TintAndShade = 0

'.ForeColor.Brightness = 0

End With

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.ObjectThemeColor = msoThemeColorText1

'.ForeColor.TintAndShade = 0

'.ForeColor.Brightness = 0

'.Transparency = 0

End With

With Selection.Format.Line

.Visible = msoTrue

.Weight = 8

End With

'Macro51 EFFACER LEGENDE

'ActiveSheet.ChartObjects("Graphique 1").Activate

'ActiveChart.Legend.Select

'ActiveChart.Legend.LegendEntries(J).Select

'Selection.Delete

' Macro5J BOULE

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(J).Select

ActiveChart.SeriesCollection(J).Points(1).Select

With Selection

.MarkerStyle = xlMarkerStyleCircle

.MarkerSize = 5

End With

Selection.MarkerStyle = 8

Selection.MarkerSize = 50

With Selection.Format.Fill

.Visible = msoTrue

'.ForeColor.ObjectThemeColor = msoThemeColorAccent0

.ForeColor.RGB = RGB(0, 0, 0)

'.Solid

End With

Selection.Format.Line.Visible = msoFalse

' Macro55 MSN EN BLANC

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(J).Select

ActiveChart.SeriesCollection(J).Points(1).Select

ActiveChart.SeriesCollection(J).Points(1).ApplyDataLabels

ActiveChart.SeriesCollection(J).DataLabels.Select

ActiveChart.SeriesCollection(J).Points(1).DataLabel.Select

Selection.ShowCategoryName = -1

Selection.ShowValue = 0

Selection.Position = xlLabelPositionCenter

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(J).DataLabels.Select

ActiveChart.SeriesCollection(J).Points(1).DataLabel.Select

Selection.AutoText = True

With Selection.Format.TextFrame2.TextRange.Font.Fill

'.Visible = msoTrue

.ForeColor.ObjectThemeColor = msoThemeColorBackground1

'.ForeColor.TintAndShade = 0

'.ForeColor.Brightness = 0

'.Transparency = 0

'.Solid

Selection.Format.TextFrame2.TextRange.Font.Size = 30

Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue

End With

'Selection.Format.TextFrameJ.TextRange.Font.Bold = msoTrue

' Macro 56 Macro SAVING FINALE

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(J).Select

ActiveChart.SeriesCollection(J).Points(2).Select

ActiveChart.SeriesCollection(J).Points(2).ApplyDataLabels

ActiveChart.SeriesCollection(J).DataLabels.Select

ActiveChart.SeriesCollection(J).Points(2).DataLabel.Select

Selection.ShowSeriesName = -1

Selection.ShowValue = 0

Selection.Position = xlLabelPositionCenter

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.SeriesCollection(J).DataLabels.Select

ActiveChart.SeriesCollection(J).Points(2).DataLabel.Select

Selection.AutoText = True

With Selection.Format.Fill

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 0, 153)

.Transparency = 0

.Solid

End With

With Selection.Format.Line

.Visible = msoTrue

.ForeColor.RGB = RGB(0, 0, 0)

.Transparency = 0

End With

With Selection.Format.Line

.Visible = msoTrue

.Weight = 4.5

End With

With Selection.Format.TextFrame2.TextRange.Font.Fill

.Visible = msoTrue

.ForeColor.RGB = RGB(155, 0, 0)

.Transparency = 0

.Solid

Selection.Format.TextFrame2.TextRange.Font.Size = 40

Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue

End With

I = I + 1

J = J + 1

Next

Application.DisplayAlerts = True

End Sub

27ex.xlsm (211.05 Ko)
Rechercher des sujets similaires à "creation serie graphique"