[resolu] pb créer graphique

Marsh Posté le 09-01-2006 à 11:03:13

J'ai un problème lorsque je veux créer mon graphique de type:

L'indice n'appartient pas à la selection.

Private Sub CommandButton1_Click()
Dim nme

nme = ActiveSheet.name
Range("A500" ) = nme

Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("nme" ).Range("A100:M100" ), PlotBy:= _
xlRows

ActiveChart.Location Where:=xlLocationAsObject, name:="nme"

end

Si je met Feuil1 à la place de nme ca marche. Le problème c'est que je veux que ca marche tout le temps et pas que pour Feuil1. De plus dans ma case A500 j'ai bien le nom de la feuil en cours.

Message édité par baddrive le 10-01-2006 à 08:06:48

Marsh Posté le 09-01-2006 à 11:03:13

Marsh Posté le 09-01-2006 à 13:53:21

nme est une variable donc ne met pas de guillemets autour.
Ca donne :

nme = ActiveSheet.name
Range("A500" ) = nme

Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets(nme).Range("A100:M100" ), PlotBy:= _
xlRows

ActiveChart.Location Where:=xlLocationAsObject, name:=nme

end

Marsh Posté le 09-01-2006 à 14:11:44

J'ai fait ca mais maintenant ca me met:

Proprieté ou méthode non gérée par cet objet

Marsh Posté le 09-01-2006 à 14:40:57

Et qu'est-ce que cela fait si tu déclares nme comme :

Dim nme as string

---------------
Proverbe chinois: il vaut mieux apprendre à pêcher à un mendiant que de lui donner du poisson...

Marsh Posté le 09-01-2006 à 15:53:38

merci ca marche avec string

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *