Graphique VBA Excel ???? Help

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

 

zeb

Modérateur
( Merci d'utiliser la balise CODE ou CPP au lieu de la couleur bleue :o même si c'est joli le bleu :ange: )
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 103
Membres
1 586 287
Dernier membre
lucilleguffey
Partager cette page
Haut