ou est l ' erreur??

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
 
X

xaviier

Guest
oki! excuse moi^^! et merci de bien vouloir méD
en fait je veux juste réussir a mettre en place sur mon graphique des absciises de données!
(je ne sais pas si je m' exprime clairement mais bon!)

voila merci!
je tenvoie mon prog!qui evidement marche pas comme il faut.:-/
salut!
xAviier
 

Pièces jointes

  • repopdate.zip
    43.9 KB · Affichages: 15

Statistiques des forums

Discussions
312 229
Messages
2 086 426
Membres
103 206
dernier inscrit
diambote