primus
XLDnaute Nouveau
Bonjour a tous. je cherche a joindre ces 2 macro mise bout a bout
La premiere macro appelle uniquement une boite de dialogue pour rentrer une date de debut et une date de fin. la 2eme partie de ma macro creer un graphique a partir d'un tableau sur 2colones
Dim d As Date, f As Date, o As Object
d = CDate(InputBox("Date de début ?", , DateSerial(Year(Date), Month(Date), 1)))
f = CDate(InputBox("Date de fin ?", , DateSerial(Year(Date), Month(Date) + 1, 1) - 1))
Sheets("output").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("apps").Range("O6:Z7")
ActiveChart.SeriesCollection(1).XValues = "=apps!$O$3:$Z$3"
ActiveChart.SeriesCollection(1).Name = "=apps!$A$6"
ActiveChart.SeriesCollection(2).Name = "=apps!$A$7"
ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "graph_28"
ActiveSheet.Shapes("graph_28").Left = Range("I17").Left
ActiveSheet.Shapes("graph_28").Top = Range("I17").Top
End Sub
mon probleme est que je ne sais pas comment faire une jointure entre cette boite de dialogue et mon graphique. Dans mon tableau la colonne "O" est celle ou se situe mes dates, et j'aimerai que losque je rentre 2 dates le graphique creer n'affiche que l'intervalle choisit
La premiere macro appelle uniquement une boite de dialogue pour rentrer une date de debut et une date de fin. la 2eme partie de ma macro creer un graphique a partir d'un tableau sur 2colones
Dim d As Date, f As Date, o As Object
d = CDate(InputBox("Date de début ?", , DateSerial(Year(Date), Month(Date), 1)))
f = CDate(InputBox("Date de fin ?", , DateSerial(Year(Date), Month(Date) + 1, 1) - 1))
Sheets("output").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("apps").Range("O6:Z7")
ActiveChart.SeriesCollection(1).XValues = "=apps!$O$3:$Z$3"
ActiveChart.SeriesCollection(1).Name = "=apps!$A$6"
ActiveChart.SeriesCollection(2).Name = "=apps!$A$7"
ActiveSheet.ChartObjects(ActiveChart.Parent.Name).Name = "graph_28"
ActiveSheet.Shapes("graph_28").Left = Range("I17").Left
ActiveSheet.Shapes("graph_28").Top = Range("I17").Top
End Sub
mon probleme est que je ne sais pas comment faire une jointure entre cette boite de dialogue et mon graphique. Dans mon tableau la colonne "O" est celle ou se situe mes dates, et j'aimerai que losque je rentre 2 dates le graphique creer n'affiche que l'intervalle choisit