Créer un graphique avec la dernière ligne d'un tableau

Résolu
Aurélie -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je possède sur une feuille excel un tableau qui peut varier de longueur. Je souhaite créer une macro qui trace un graphique bâton avec la première ligne de de ce tableau et la dernière ligne.

Mon code est le suivant:

Sub graph2()
' Dim DLig As Long
DLig = Worksheets("Plan GER").Range("G" & Rows.Count).End(xlUp).Row

ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range("G:K" & DLig)
ActiveChart.SeriesCollection(1).XValues = "='Plan GER'!$G$9:$K$9"
End Sub


l'erreur se trouve à la ligne:
ActiveChart.SetSourceData Source:=Range("G:K" & DLig)

Pouvez-vous m'aider svp?

A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

ceci:
ActiveChart.SetSourceData Source:=Range("G" & DLig & ":K" & DLig)
ou
ActiveChart.SetSourceData Source:=Range("G" & DLig, "K" & DLig)

les deux vont bien
0