Probleme concernant l'insertion de graphique

Bonjour à tous,

je dispose de deux colonnes de données que je dois synthetiser dans un graphique. j'ai donc réalisé l'action manuellement : j'ai selectionné les colonnes concernées, choisi le style, et modifié les dimensions du graphique. Voici le programme obtenu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub graph() Range("C1:D29").Select ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("Feuil5!$C$1:$D$29") ActiveChart.ClearToMatchStyle ActiveChart.ChartStyle = 207 ActiveSheet.Shapes("Graphique 1").ScaleWidth 1.45625, msoFalse, _ msoScaleFromTopLeft ActiveSheet.Shapes("Graphique 1").ScaleHeight 1.2413192622, msoFalse, _ msoScaleFromBottomRight End Sub

---

J'ai deux problèmes :

1) dans ce cas particulier, je n'ai que 28 données à traiter, mais ce code la ne marchera pas si j'ai un nombre different de données à traiter. N'y a t-il pas moyen de remplacer la ligne "Range("C1:D29").Select" par une autre commande ? j'ai bien essayé de remplacer par Range("C1:D65536"), mais le programme prend du coup des données vides et le resultat est inutilisable

2) l'éxecution de la 7ème ligne fait planter le programme. Apparemment, un objet inconnu y est utilisé, mais je trouve ça étrange qu'une macro faite à la main ne remarche pas après coup..

Voila, je remercie d'avance ceux qui auront la grande gentillesse de me repondre

Code:

---

nbLignes = cells(rows.count, "C").end(xlup).row

---

Ensuite tu peux utiliser

Code:

---

ActiveChart.SetSourceData Source:=Range("Feuil5!$C$1:$D$" & nbLignes)

---

Même chose ailleurs ou tu as le nombre de lignes

Bonjour parmi,

sur vos conseils, j'ai mis les lignes de codes suivantes :

Code:

---

1 2 3 4 5 6

Dim nbLignes As Integer nbLignes = Sheets("Feuil5").Cells(Rows.Count, "C").End(xlUp).Row     Sheets("Feuil5").Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.SetSourceData Source:=Range("Feuil5!$C$1:$D$" & nbLignes)

---

Néanmoins, l'execution de la derniere ligne fait planter le code et me renvoie une erreur d'execution 1004

Sauriez vous pourquoi ? Je vous remercie d'avance pour votre aide

enlève le 2 ici
AddChart2

Autrement, je viens de faire le test et ça fonctionne bien.

Mais peut-être que tes données ne sont pas en colonne C ?

Citation:

---

nbLignes = Sheets("Feuil5").Cells(Rows.Count, "C").End(xlUp).Row

---

Non, ca ne marche décidément pas chez moi.. Etrange !

quoiqu'il en soit, je m'en suis sorti en procédant ainsi :

Code:

---

1 2 3 4 5 6 7 8 9

Dim graph As Chart Set graph = Charts.Add     With graph .SetSourceData Source:=Sheets("Feuil5").Range("Feuil5!$C$1:$D$" & nbLignes) .ClearToMatchStyle .ChartStyle = 207 End With

---

je vous remercie enormement pour votre aide