Discussion :

[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 :

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

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 :

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

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

[mercatog]

Code :

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

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 :

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

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 :

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

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 :

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

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

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

Code :

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

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 :

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

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