graphique suivant plage de date

[gege21]

je voudrai faire des graphique suivant une plage de date (ex 10/janv/2010 au 15/janv/2010)
par vba
mais comment faire
plus de détail dans la feuille

 

[pierrejean]

Re : graphique suivant plage de date

Re

Les memes avec mise en place et dimensionnement

Et merci a l'enregistreur de macros

Sub Macro3()
    Range("B7:G42").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Feuil1'!$B$7:$C$42")
    ActiveChart.ChartType = xlLine
    LeNom = "=""" & Range("C6").Value & """"
    ActiveChart.SeriesCollection(1).Name = LeNom
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Top = Range("M5").Top
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Left = Range("M5").Left
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Height = Range("M24").Top - Range("M5").Top
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Width = Range("U5").Left - Range("M5").Left
End Sub
Sub Macro4()
    Range("B7:G42").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Feuil1'!$B$7:$G$40")
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Name = "=""PDFsFR"""
    ActiveChart.SeriesCollection(2).Name = "=""PDFsDE"""
    ActiveChart.SeriesCollection(3).Name = "=""PDFsES"""
    ActiveChart.SeriesCollection(4).Name = "=""PDFsiT"""
    With ActiveChart
      .HasTitle = True
      .ChartTitle.Text = Range("D6") & " - " & Range("E6") & " - " & Range("F6") & " - " & Range("G6")
    End With
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Top = Range("M5").Top
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Left = Range("V5").Left
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Height = Range("M24").Top - Range("M5").Top
    ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Width = Range("AD5").Left - Range("V5").Left
End Sub

 

[ROGER2327]

Re : graphique suivant plage de date

Re...

Le résultat est celui voulu, déjà mille merci !!

Je veux pas abuser de votre disponibilité, mais de savoir le reproduire et ne pas bétement redemander un fichier.

Pouvait vous détailler quelle formule est utilisé et surtout à quel endroit.

Si vous utilisez le navigateur Firefox, il existe une extension gratuite qui permet de filmer la page (CaptureFOX Official Website )

Ca aiderai je pense beaucoup de personne de voir en temps réel la marche à suivre.

Merci

Vraisemblablement intéressant pour les étatsuniens, ce CaptureFOX...

N'étant bêtement que francophone et n'en ayant même pas honte, je raconte en Français :
J'ai converti le fichier original au format .xlsx en fichier au format .xls.
J'ai obtenu un fichier lisible avec Excel2003 et je l'ai enregistré sous le nom PDFS_2003.xls.
Dans ce fichier, j'ai créé des plages nommées (Menu Insertion/Nom/Définir...) :
x

[COLOR="DarkSlateGray"][B]=DECALER(Feuil1!$B$6;1;0;NBVAL(Feuil1!$B:$B)-NBVAL(Feuil1!$B$2:$B$4)-1;1)[/B][/COLOR]

xx

[COLOR="DarkSlateGray"][B]=DECALER(Feuil1!$B$1;EQUIV(Feuil1!$M$3;Feuil1!$B:$B;0)-1;0;EQUIV(Feuil1!$N$3;Feuil1!$B:$B;0)-EQUIV(Feuil1!$M$3;Feuil1!$B:$B;0)+1;1)[/B][/COLOR]

COM

[COLOR="DarkSlateGray"][B]=DECALER(xx;0;1)[/B][/COLOR]

FR

[COLOR="DarkSlateGray"][B]=DECALER(xx;0;2)[/B][/COLOR]

DE

[COLOR="DarkSlateGray"][B]=DECALER(xx;0;3)[/B][/COLOR]

ES

[COLOR="DarkSlateGray"][B]=DECALER(xx;0;4)[/B][/COLOR]

IT

[COLOR="DarkSlateGray"][B]=DECALER(xx;0;5)[/B][/COLOR]

J'ai créé une validation (Menu Données/Validation...) de type Liste ayant pour source

[COLOR="DarkSlateGray"][B]=x[/B][/COLOR]

dans la plage M3:N3
Dans les Données source... des graphiques, j'ai placé

[COLOR="DarkSlateGray"][B]=PDFS_2003.xls!xx[/B][/COLOR]

comme Étiquette de l'axe des abscisses (X) et

[COLOR="DarkSlateGray"][B]=PDFS_2003.xls!COM[/B][/COLOR]

comme Valeurs pour la série COM,

[B]=PDFS_2003.xls!FR[/B]

comme Valeurs pour la série FR,

[COLOR="DarkSlateGray"][B]=PDFS_2003.xls!DE[/B][/COLOR]

comme Valeurs pour la série DE,

[COLOR="DarkSlateGray"][B]=PDFS_2003.xls!ES[/B][/COLOR]

comme Valeurs pour la série ES,

[COLOR="DarkSlateGray"][B]=PDFS_2003.xls!IT[/B][/COLOR]

comme Valeurs pour la série IT.
J'ai enregistré et déposé le fichier sur le forum.

Pour savoir ce que font les fonctions utilisées, il suffit de consulter les fichiers d'aide fourni avec Excel.

À pierrejean : ne disposant pas d'Excel2007, je n'ai pas testé vos contributions.
​

ROGER2327
#3347

8 Floréal An CCXVIII
2010-W17-2T22:23:33Z

 

[Kijer]

Re : graphique suivant plage de date

Merci bien pour cette longue explication, j'ai déjà essayé (et réussi) la première étape, j'essai la suite dès que je peux.