Graphiques

Bonjour tout le monde,

est ce que vous pouvez m'aider s'il vous plait à developper mon code, il a pour but de créer des graphiques . voici le tableaux de données:

[*] January February March April May June July August September October November December

client A 16046 16676 16873 16751 17010 20046 20559 20668 21084 21023 21043 20907

% client A 0,063 0,060 0,056 0,064 0,060 0,069 0,071 0,083 0,062 0,054 0,058 0,077

client B 7 54 23 76 87 0 9 98 2 13 14 16

% client B 8 26 3 7 8 4 6 8 4 3 4 7

client C 16963 17591 17688 17873 18140 19855 20308 21232 22188 22146 22429 21164

%client C 0,067 0,063 0,059 0,070 0,064 0,068 0,070 0,079 0,067 0,061 0,064 0,080

écart 917 915 815 1122 1130 -191 -251 564 1104 1123 1386 257

[*]

ce tableau de données est dans une feuille CR, pour le moment mon code me met tout en graphique ligne, mais je veux que client A, B et C soit en histogramme et les pourcentage soient en lignes en plus de donner la possibilité à l'utilisateur d'écrire le titre qu'il veut, voici mon code:

'tracer le graphique
Set gr = ThisWorkbook.Charts.Add
With gr
.SetSourceData Source:=ThisWorkbook.Sheets("CR").Range("C4:N10"), PlotBy:=xlRows

'figer les données
For num = 1 To 6
.SeriesCollection(num).XValues = ThisWorkbook.Sheets("CR").Range("C2:G2").Value
.SeriesCollection(num).Values = ThisWorkbook.Sheets("CR").Range("c" & num + 2 & ":G" & num + 2).Value
.SeriesCollection(num).Name = ThisWorkbook.Sheets("CR").Range("b" & num + 2).Value
Next

'formater le graphique
.ChartType = xlLine
.Location Where:=xlLocationAsNewSheet
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "month"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "result"
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 14
.Deselect
.Move
End With
Application.ScreenUpdating = True

'faire le ménage
Set pg = Nothing
Set gr = Nothing
Set nouv = Nothing
End Sub

merci d'avance pour votre aide

bonne journée

Bonjour,

Merci de joindre un fichier.

ok voilà

merci pour ton aide