merci du tuyau :) thierry "Misange" a écrit dans le message de news:%
Bonjour, Tu trouveras ça sur le site de Jon Peltier (adresse dans les liens d'excelabo)
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
j'aurais besoin de savoir s'il est possible de faire un graphique semi-circulaire avec Excel 2000? et si oui, comment
merci de votre aide @+ thierry
gee-dee-
Bonsoir, Un exemple ????
Sub Macro1() Worksheets.Add Set NewSheet = ActiveSheet '---------- les données [A1].FormulaR1C1 = "Lundi" [A1].AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault [B1].FormulaR1C1 = "=RAND()" [B1].AutoFill Destination:=Range("B1:B6"), Type:=xlFillDefault '---------- [B7].FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)" '---------- ci-dessus on pourra appliquer un coef 1/2 ou 1/3 Range("A1:B7").Select '---------- le graphe Charts.Add ActiveChart.ChartType = xlPie ActiveChart.SetSourceData Source:=NewSheet.Range("A1:B7") ActiveChart.Location Where:=xlLocationAsObject, Name:=NewSheet.Name ActiveChart.SeriesCollection(1).Select '---------- la 1ere serie demarre à -90° With ActiveChart.ChartGroups(1) .VaryByCategories = True .FirstSliceAngle = 270 End With '---------- la 7eme serie est incolore !!!!! ActiveChart.SeriesCollection(1).Points(7).Select Selection.Interior.ColorIndex = xlNone With Selection.Border .Weight = xlThin .LineStyle = xlNone End With Selection.Shadow = False '---------- Set NewSheet = Nothing End Sub
;-)))
"thierry" a écrit dans le message de news:17c4501c41e5f$ccbd9740$
j'aurais besoin de savoir s'il est possible de faire un graphique semi-circulaire avec Excel 2000? et si oui, comment
merci de votre aide @+ thierry
Bonsoir,
Un exemple ????
Sub Macro1()
Worksheets.Add
Set NewSheet = ActiveSheet
'---------- les données
[A1].FormulaR1C1 = "Lundi"
[A1].AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault
[B1].FormulaR1C1 = "=RAND()"
[B1].AutoFill Destination:=Range("B1:B6"), Type:=xlFillDefault
'----------
[B7].FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)"
'---------- ci-dessus on pourra appliquer un coef 1/2 ou 1/3
Range("A1:B7").Select
'---------- le graphe
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=NewSheet.Range("A1:B7")
ActiveChart.Location Where:=xlLocationAsObject, Name:=NewSheet.Name
ActiveChart.SeriesCollection(1).Select
'---------- la 1ere serie demarre à -90°
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 270
End With
'---------- la 7eme serie est incolore !!!!!
ActiveChart.SeriesCollection(1).Points(7).Select
Selection.Interior.ColorIndex = xlNone
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Shadow = False
'----------
Set NewSheet = Nothing
End Sub
;-)))
"thierry" <thmignot@club-internet.fr> a écrit dans le message de
news:17c4501c41e5f$ccbd9740$a601280a@phx.gbl...
j'aurais besoin de savoir s'il est possible de faire un
graphique semi-circulaire avec Excel 2000?
et si oui, comment
Sub Macro1() Worksheets.Add Set NewSheet = ActiveSheet '---------- les données [A1].FormulaR1C1 = "Lundi" [A1].AutoFill Destination:=Range("A1:A7"), Type:=xlFillDefault [B1].FormulaR1C1 = "=RAND()" [B1].AutoFill Destination:=Range("B1:B6"), Type:=xlFillDefault '---------- [B7].FormulaR1C1 = "=SUM(R[-6]C:R[-1]C)" '---------- ci-dessus on pourra appliquer un coef 1/2 ou 1/3 Range("A1:B7").Select '---------- le graphe Charts.Add ActiveChart.ChartType = xlPie ActiveChart.SetSourceData Source:=NewSheet.Range("A1:B7") ActiveChart.Location Where:=xlLocationAsObject, Name:=NewSheet.Name ActiveChart.SeriesCollection(1).Select '---------- la 1ere serie demarre à -90° With ActiveChart.ChartGroups(1) .VaryByCategories = True .FirstSliceAngle = 270 End With '---------- la 7eme serie est incolore !!!!! ActiveChart.SeriesCollection(1).Points(7).Select Selection.Interior.ColorIndex = xlNone With Selection.Border .Weight = xlThin .LineStyle = xlNone End With Selection.Shadow = False '---------- Set NewSheet = Nothing End Sub
;-)))
"thierry" a écrit dans le message de news:17c4501c41e5f$ccbd9740$
j'aurais besoin de savoir s'il est possible de faire un graphique semi-circulaire avec Excel 2000? et si oui, comment