Excel - Macro Fermé

Question

Bonjour, 

Je suis toute nouvelle sur le forum et novice sur la macro et j'aurais besoin de vos lumière si vous le voulez bien.

A partir d'un tableau excel de + de 100 lignes, je cherche à créer une macro pour obtenir un graphique par ligne.

Je m'explique : 
chaque ligne correspond un client (N° - Nom - prénom.....) avec un nombre de produits par mois.
Je souhaite obtenir un graphique d'évolution par client pour l'année.
La finalité est de pouvoir inclure ces résultats ( graphiques ) lors d'un publipostage word.

J'ai réussi à faire la macro suivante :

Sub GraphPS()
'
' GraphPS Macro
'

'
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Range("Feuil1!$A$1:$J$130")
    ActiveChart.SetSourceData Source:=Range("A1:I2")
    ActiveChart.SetSourceData Source:=Sheets("chrono").Range("A1:A" & i)
End Sub


A partir de cette macro mon graphique se créer bien mais avec un message d'erreur : 
Erreur d'éxécution '9':
L'indice n'appartient pas à selection.

De plus les éléments qui devraient se trouver sur mon axe des absisses, se trouvent dans ma légende....

J'avoue que je suis completement dépassée.

Pourriez-vous me venir en aide ?
Je vous remercie vivement.

Bonne fin de journée.

ccm81 · Answer

Bonjour

1. sur quelle instruction se produit l'erreur?
2. Il y a trois affectations différentes en fin de procédure aux données source du graphique, seule la dernière sera prise en compte
3. aucune valeur n'est affectée à la variable i de la dernière ligne, donc i=0

4. Peux tu envoyer une partie de ton classeur anonymisée et au format excel 2003 sur cjoint.com et joindre le lien obtenu à ton prochain message

Cordialement

isagate · Answer

Bonjour, 

- l'erreur se fait sur la dernier ligne de ma macro

voici le lien https://www.cjoint.com/?3Boh1MdBR6M .
Merci pour votre aide.

Bonne journée.

ccm81 · Answer

1. - l'erreur se fait sur la dernier ligne de ma macro 
C'est bien ce que je te disais (point 3) la variable i n'a pas de valeur attribuée donc vaut 0 et la plage "A1:A" & i est la plage A1:A0 ce qui provoque une erreur
Il te faut  donc attribuer à i une valeur
ex1: i = 10 si la plage est A:A10
ex2. si i est la dernière ligne non vide de la colonne A 
i = Sheets("chrono").Range("A" & Rows.Count).End(xlUp).Row

2. ton fichier n'est pas au format excel 2003 je ne peux pas le lire (fichier/enregistrer sous/type ... xls)

isagate · Answer

https://www.cjoint.com/?3Bol4coNsKW

désolée ...voici le nouveau fichier.
Merci

ccm81 · Answer

Deux petites remarques avant de continuer
1. ActiveChart.SetSourceData Source:=Sheets("chrono").Range("A1:A" & i)
il n'y a pas de feuille "chrono" dans ton fichier, donc, normal que ça plante,
sans compter la valeur de i

2. Si j'ai compris, tu veux faire un graphique par ligne soit 129 graphiques
Créer un graphique avec une macro, c'est très lourd, en effet, il te faut programmer toues les caractéristiques de ton graphique: taille, couleurs, polices, marques, etc ... et ça, je ne me le sens pas
Je pense que le plus simple serait de fabriquer un graphique bien fignolé correspondant à la première ligne de données (de la feuille Feuil1, StatPS ?)
la macro ferait alors les copies de ce graphique (dans quelle feuille ?) 
Un truc de ce genre https://www.cjoint.com/?3Bonk0nCLqi 
Si ça te va, tu fais ce graphique, penses aus titre, légendes, quadrillages, taille, etc ...  et tu t'inspire de mon exemple ou tu me renvoies le fichier

isagate · Answer

Bonjour, 

Je te remercie beaucoup du coup de pouce. Je pense effectivement partir sur la deuxième solution.
Merci et bonne journée.

Excel - Macro

6 réponses

Discussions similaires