[résolu] Génération de graphique Excel, problème de location

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [résolu] Génération de graphique Excel, problème de location

brolouille

Ô rage Ô desespoir !!

Bonjour a tous,
J'expose mon petit problème qui me prend la tete depuis bientot 2h
Je voudrais afficher un graphique selon les coordonnées qui sont sur une plage de cellules. Jusqu'ici tout va bien, j'ai reussi a créer le graphique que je souhaitais.
Maintenant, je voudrais inclure ce graphique en tant qu'objet dans un classeur excel et non en tant que nouveille feuille.
J'ai lu plusieurs post et utilise la syntaxe en gras. Cependant rien n'y fait , erreur a l'execution :

"La méthode Location de l"objet '_Chart' a échoué"

Je ne sais pas si ca vient vraiment de la méthode loc. si vous pouviez me donner un ti coup de main
merci

Code :

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(nom).Range(Sheets(nom).Cells(3, 7), Sheets(nom).Cells(Sheets(nom).Cells(2, 4) + 2, 8)), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).name = "=""Barycentres"""
ActiveChart.Location where:=xlLocationAsObject, name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Déplacement des barycentres"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

Message édité par brolouille le 08-05-2007 à 20:51:05

Publicité

Thierry_94

Bonsoir,
Je pense qu'il faut activer la feuille de destination avant l'insertion du graphique.
Bon courage ...

Message édité par Thierry_94 le 08-05-2007 à 19:57:12

jpcheck

Pioupiou

un petit charts.add.activate ?

ingenieurcesi

il faut selectionner la feuille et surtout une cellule

es tu sur de ton range ? il me parait bizarre

Message édité par ingenieurcesi le 08-05-2007 à 20:18:08

seniorpapou

Bonsoir,
"sheet1" existe?
Cordialement

brolouille

En fait quand je vire cette ligne :

Code :

ActiveChart.Location where:=xlLocationAsObject, name:="Sheet1"

le graphe se met sur une nouvelle feuille du classeur, et tout est nickel, la forme, les options et tout ca.
Mais des que je veux l'inserer en tant qu'objet, ca bug.

J'ai essaye :
charts.add.activate, sans succes
selection d'une feuille avant l'insertion, sans succes

"sheet1" est je pense juste le nom de l'objet que je souhaite creer. j'ai essaye d'appeler la fonction sans cet argument mais sans succes encore une fois

ps: pour info je travaille avec visual basic 6.3

Message édité par brolouille le 08-05-2007 à 20:41:28

brolouille

Tu avais raison seniorpapou. J'ai continuer mes recherches et en effet, le paramètre name demandé est le nom de la feuille dans laquelle insérer l'objet. Sheet1 n'existait pas...

Le bon code au final est donc celui ci:

Code :

Dim nom As String
nom = ActiveSheet.name
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(nom).Range(Sheets(nom).Cells(3, 7), Sheets(nom).Cells(Sheets(nom).Cells(2, 4) + 2, 8)), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).name = "=""Barycentres"""
ActiveChart.Location where:=xlLocationAsObject, name:=nom
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Déplacement des barycentres"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

Message édité par brolouille le 08-05-2007 à 20:49:53

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[résolu] Génération de graphique Excel, problème de location

Sujets relatifs
[PHP] Systeme de génération d'image avec caractères : captcha	[C C++] problème Gnu scientific library 1.8 avec Dev-C++
[Resolu] Java Pathfinder [urgent]	xmldom et plantage sous ie [Resolu]
[VB .NET]Problème gestion d'onglets	Probleme d'installation code block sous Ubuntu
[RESOLU]prob rmi	WinBinder : Impossible d'accèder à mon objet [Résolu]
probleme de slot avec qt et de QTimer	DLL Visual C++ 2005 Express to VBA Excel
Plus de sujets relatifs à : [résolu] Génération de graphique Excel, problème de location

Page générée en 0.056 secondes