Bonjour tout le monde,
je cherche a faire un programme qui me permet de réaliser des graphes dont les données se trouve sur les colonnes de C à Z. mais chaque colonne est independante. j'aurais donc 24 graphs.
voici tout le prgm:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim variablefeuille As String 'definition des variables
For Each Column In Range("C4:Z10") '' C'EST ICI QUE JE SELECTIONNE CHAQUE COLONNE DE MA PLAGE
For i = 1 To Worksheets.Count 'pour i=1=onglet incrementation CAR J'AI PLUSIEURS ONGLETS
variablefeuille = Worksheets(i).Name 'definition de la variable feuille (onglet)
Charts.Add 'insertion d'un graphique...
ActiveChart.ChartType = xlXYScatterLines '...du type nuage de points
''ActiveChart.SeriesCollection(1).Name = "='ALEXIS 26-11-2007 Ensemble 2'!R2C3:R2C5"
ActiveChart.SeriesCollection.NewSeries 'nouvelle serie
ActiveChart.SeriesCollection(1).XValues = Sheets(variablefeuille).Range("B4:B10") 'les x
ActiveChart.SeriesCollection(1).Values = Sheets(variablefeuille).Range("C4:C10") 'les y ' PAR CONTRE ICI IL ME SELCTIONNE TOUJOURS LA MEME COLONNE C...
ActiveChart.Location Where:=xlLocationAsObject, Name:=variablefeuille 'le graphique ainsi crée est inseré dans la feuille d'où sont tiré les données
With ActiveChart 'caracteristiques du graphiques, axes abscisses et ordonnées
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = -3
.MaximumScale = 3
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlCategory).Select
Application.WindowState = xlMinimized
With ActiveChart.Axes(xlCategory)
.MinimumScale = 0.354166666666667
.MaximumScale = 0.729166666666667
.MinorUnitIsAuto = True
.MajorUnit = 4.16666666666667E-02
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End With
Next i 'incrementation du i, on passe à l'onglet suivant !
