DPH91
Nouveau membre
Bonjour,
J'ai un fichier Excel dans lequel j'ai différente colonne.
Ces colonnes sont extrait depuis un logiciel
Première colonne une plage de date qui peut variée selon l'extraction
Colonne suivante dont je n'ai pas l'utilité
Reste 2 colonne dont j'ai besoin pour créer ma macro générant un graphique
Le but du jeu est :
Créer un macro permettant de choisir la date de début et la date de fin pour génération d'un graphique
ComboBox(s) sélectionnant une valeur dans la colonne de date
Dim debut()
debut = Range([A2], [A2].End(xlDown))
Me.DateDebut.List = debut
Dim fin()
fin= Range([A2], [A2].End(xlDown))
Me.DateFin.List = debut
La suite je pêche
Je souhaiterai que lorsque la valeur de début et de fin une fois sélectionnée, me permettent de définir la plage de donnée qui servira à la confection d'un graphique.
La partie concernant la création du graphique je la comprend
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=???, PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=NomGraph.Value
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = NomGraph.Value
.Axes(xlCategory, xlPrimary).HasTitle = False
'.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Taux d'Occupation"
End With
ActiveChart.HasDataTable = False
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With
ActiveChart.ChartArea.Select
Merci de m'aider sur le Comment je peux faire pour qu'une fois la date de début choisie, la date de fin choisie, il aille dans la colonne servant à la base de donnée du graphique.
D'avance merci
J'ai un fichier Excel dans lequel j'ai différente colonne.
Ces colonnes sont extrait depuis un logiciel
Première colonne une plage de date qui peut variée selon l'extraction
Colonne suivante dont je n'ai pas l'utilité
Reste 2 colonne dont j'ai besoin pour créer ma macro générant un graphique
Le but du jeu est :
Créer un macro permettant de choisir la date de début et la date de fin pour génération d'un graphique
ComboBox(s) sélectionnant une valeur dans la colonne de date
Dim debut()
debut = Range([A2], [A2].End(xlDown))
Me.DateDebut.List = debut
Dim fin()
fin= Range([A2], [A2].End(xlDown))
Me.DateFin.List = debut
La suite je pêche
Je souhaiterai que lorsque la valeur de début et de fin une fois sélectionnée, me permettent de définir la plage de donnée qui servira à la confection d'un graphique.
La partie concernant la création du graphique je la comprend
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=???, PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=NomGraph.Value
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = NomGraph.Value
.Axes(xlCategory, xlPrimary).HasTitle = False
'.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Taux d'Occupation"
End With
ActiveChart.HasDataTable = False
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection.Interior
.ColorIndex = 2
.PatternColorIndex = 1
.Pattern = xlSolid
End With
ActiveChart.ChartArea.Select
Merci de m'aider sur le Comment je peux faire pour qu'une fois la date de début choisie, la date de fin choisie, il aille dans la colonne servant à la base de donnée du graphique.
D'avance merci