X
xaviier
Guest
Salut a tous! voila plusieurs erreurs apparaissent lorsque je lance cette partie de mon code!
merci de votre aide!^^
Sheets("planning").Select '<= Nom de la feuille a selectioner sur laquelle se trouve le graphique
ActiveChart.Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.ChartArea.Select
With ActiveChart
.SeriesCollection(1).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(2).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(3).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(4).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(5).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(6).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(7).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(8).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(9).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(10).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
End With
merci encore!
@+++
xAvIier
merci de votre aide!^^
Sheets("planning").Select '<= Nom de la feuille a selectioner sur laquelle se trouve le graphique
ActiveChart.Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.ChartArea.Select
With ActiveChart
.SeriesCollection(1).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(2).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(3).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(4).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(5).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(6).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(7).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(8).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(9).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
.SeriesCollection(10).xlValue = _
"=(Calculs!R4C1,Calculs!R4C3,Calculs!R4C5,Calculs!R4C7,Calculs!R4C9,Calculs!R4C11,Calculs!R4C13,Calculs!R4C15,Calculs!R4C17,Calculs!R4C19)"
End With
merci encore!
@+++
xAvIier