• Initiateur de la discussion Initiateur de la discussion xaviier
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Retour