Graphique et VBA
Bonjour
j'ai cherché sur google, mais rien
si quelqu'un connais un tuto bien fait pour créer des graphique en vba car je n'arrive pas à obtenir ce que je veux
c'est lister la marques des véhicules qui reviennent pour une plage donné, les compter, suivant le garage de provenance
je ne sais pas si j'ai été clair .
merci d'avance.
Bonjour
a tu un petit fichier exemple, car pas sur que tu es besoin de macro pour faire cela
désolé
voici mon début de code
Sub creationGraphiqueParTableau()
Dim i As Byte
Dim Tabl(4) As String, Table(4) As Integer
Tabl(0) = "peugeot"==>tableau contenant une occurrence unique du fabriquant
Tabl(1) = "renault"
Tabl(2) = "citroen"
Tabl(3) = "audi"
ici les tableaux sont fait manuellement est il possible de le faire en vba ?
Table(0) = 12==>tableau contenant le nombre total de chaque occurrence
Table(1) = 11
Table(2) = 4
Table(3) = 1
'Création graphique
Charts.add
'Définit la localisation du graphique:
ActiveChart.Location _Where:=xlLocationAsObject, Name:="graph11"
'Ajoute une série dans le graphique
With ActiveChart
.Legend.Delete
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = Tabl() 'Abscisses
.SeriesCollection(1).Values = Table() 'Ordonnées
'Définit le type (Courbe)
'.ChartType = xlLine
.ChartType = xlColumnClustered
.HasTitle = True
.ChartTitle.Text = "nbr voitures réparé /societe"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "nbr"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Text = "fabriquant"
End With
End Sub
merci encore à ceux qui peuvent m'aider
bonjour
regarde si le TCD pourrais te convenir??
en B1 tu peu choisir, toutes les pages ou seulement une année, et en I2 j'ai mis une liste déroulante qui te permet de selectionner le type
merci bien comme je peux avoir plusieurs feuilles d'années qui change je vais voir si le TDC s'adapte ou pas
merci encore