Discussion :

[chapodhor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ensuite tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[chapodhor]

Bonjour parmi,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

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 ?

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

[chapodhor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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