Discussion :

[Celia1303]

Bonjour !

J'ai créer un graphique en vba (sous excel) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim MonGraphe As Chart, MaPlage As Range
Set MaPlage = Worksheets("Tableau1").Range(Cells(9, 3), Cells(17, 3))
 
Set MaPlage2 = Worksheets("Tableau1").Range(Cells(9, 4), Cells(17, 4))
 
Set MonGraphe = ThisWorkbook.Charts.Add
 
MonGraphe.ChartWizard MaPlage, xlBar, , xlRows, , , False, "Description des adhérents de l'UDEM", "Pourcentage", "Nb d'adhérents"

Mon graphique fonctionne, mais je voudrais que les informations de la MaPlage2 soient en abcisse.

Comment peut on le faire ?

Merci.

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim objChart As Chart, objRange As Range
 
    Set objRange = Worksheets("Feuil1").Range(Worksheets("Tableau1").Cells(9, 3), Worksheets("Feuil1").Cells(17, 4))
    Set objChart = ThisWorkbook.Charts.Add
    objChart.ChartType = xlbar
    objChart.SetSourceData objRange, xlColumns

si tes abscisses sont dans la colonne 3 (C), ca devrait marcher