Excel Graphique sparkline

[JeanDan]

Bonjour,

J'aimerai créer un graphique sparline sous Excel à partir de VBA. Le code ci-dessous ne fctionne pas. Voici ce que j'obtient :"erreur définie par l'application ou par l'objet "
Code Visual Basic :

Code :

1
2
Range("A1").SparklineGroups.Add Type:=xlSparkColumn, SourceData:= _
"VMOY parcs!N3:W3"

Est-ce que qq1 saurait d'où proviendrait l'erreur

Merci d'avance

[Daniel.C]

Bonjour,

Quand tu utilises des noms de feuille avec des espaces, tu dois les encadrer avec des quotes (guillemets simples) :

Code :

1
2
Range("A1").SparklineGroups.Add Type:=xlSparkColumn, SourceData:= _
"'VMOY parcs'!N3:W3"

[mercatog]

Code :

SourceData:="'VMOY parcs'!N3:W3"

Le nom de ta feuille de données contient un espace, il fallait entourer le nom complet d'apostrophe.

Une autre remarque, spécifie le nom de la feuille de A1, pour n'avoir aucun souci plus tard.

Mieux est de faire

Code :

Worksheets("Feuil1").Range("A1").SparklineGroups.Add Type:=xlSparkColumn, SourceData:="'VMOY parcs'!N3:W3"

en adaptant le nom Feuil1.

[Edit]Bonjour Daniel, devancé.

[JeanDan]

Bonjour,

Super! ta méthode fonctionne parfaitement. Pour l'intégrer dans mon code j'ai du apporter qques modifications :

Code :

1
2
Range("A1").SparklineGroups.Add Type:=xlSparkColumn, SourceData:= _
"VMOY parcs!" & cells(num_ligne1,num_colonne1) & ":" & cells(num_ligne2,num_colonne2) &"""

Et comme par hasard cela ne fctionne pas//:/ décidemment...
Dsl de revenir dessus mais j'ai essayé pas mal de chose ss résultat.

Merci

[Daniel.C]

"'VMOY parcs'!", pas "VMOY parcs!".

[JeanDan]

Oups... excuse moi je me suis planté de copier-coller. Le code qui fonctionne parfaitement était bien :

Code :

Worksheets("Feuil1").Range("A1").SparklineGroups.Add Type:=xlSparkColumn, SourceData:="'VMOY parcs'!N3:W3"

Aprés intégration dans mon programme ca donne :

Code :

Worksheets("Feuil1").Range("A1").SparklineGroups.Add Type:=xlSparkColumn, SourceData:="'VMOY parcs'!" & Cells(num_ligne1,num_colonne1) & ":" & Cells(num_ligne2,num_colonne2) & """

Cela ne fonctionne pas :/K+Je ne vois pas pourquoi

A+

[mercatog]

Ensuite il fallait mettre .address

Code :

1
2
3
With Worksheets("VMOY parcs") 'Adapte le nom de Feuil1
    Worksheets("Feuil1").Range("A1").SparklineGroups.Add Type:=xlSparkColumn, SourceData:="'" & .Name & "'!" & .Cells(num_ligne1, num_colonne1).Address & ":" & .Cells(num_ligne2, num_colonne2).Address
End With