[VBA-excel]Probleme de macro pour creer un graphique.

Version imprimable

30/06/2006, 18h59
Mugette

[VBA-excel]Probleme de macro pour creer un graphique.

Bonjour,

J'essaye de réaliser une macro afin de créer un graphique cependant une erreur me bloque.
Je lui demande de faire un graphique sur une feuille d'un classeur en tant qu'objet mais il me le créé sur une nouvelle "feuille" graphique.

Erreur sur

Citation:

modelType = Range("B1")

Intitulé de l'erreur : La méthode Range de l'objet _Global a échoué.

Avez-vous une idée ?

Merci d'avance.
30/06/2006, 21h15
SfJ5Rpw8
il nous manque un peu de code avant... la ligne ou tu créé le graphique...

sinon pour l'erreur.. :

Citation:

Envoyé par Mugette

Erreur sur Citation:
modelType = Range("B1")
Intitulé de l'erreur : La méthode Range de l'objet _Global a échoué.

cela doit être sans doute être du au fait qu'as l'exécution de ton code la feuille active n'est pas une feuille de calcul mais un graphique ... modifie le code en t'inspirant de :
Code:

1 2 modeltype= Sheets("Mafeuille").Range("B1")

Merci bbil pour ta suggestion mais ca ne fonctionne pas.
Le probleme est que l'erreur qu'il me donne est dans les fichiers temporaires d'excel, je ne peux donc pas les modifier.
Voila le code de création de graphe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub creation_graphique_acti_adsl()
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLines
    ActiveChart.SetSourceData Source:=ActiveWorkbook.Sheets("Données").Range("B1:D3"), PlotBy:=xlRows
    ActiveChart.Location Where:=ActiveWorkbook.Sheets("Graphiques").Range("A11:G29"), Name:="Graphiques"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Activation_adsl "
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

05/07/2006, 12h42
Mugette

Personne pour me donner un coup de main?
Je suis vraiment à la ramasse...

Merci d'avance
05/07/2006, 12h54
SfJ5Rpw8

Citation:

Envoyé par Mugette

...Erreur sur

Code:

modelType = Range("B1")

Intitulé de l'erreur : La méthode Range de l'objet _Global a échoué.
...

je ne trouve pas cette ligne dans ton code... :? elle est ou l'erreur ?
05/07/2006, 12h58
Mugette

Alors c'est ce que je disais dans le premier post, c'est une erreur qui apparait sur un fichier temporaire d'excel, c'est pour ça que je comprends pas.
J'ai 7 projets temporaire nommés VBA project(~GLH0000.TMP), je ne sais pas d'où ils sortent et mon projet plantent dessus.
Si tu as une idée, je trouve des trucs mais ça me convient pas trop en fait.
05/07/2006, 13h06
SfJ5Rpw8

Citation:

Envoyé par Mugette

Alors c'est ce que je disais dans le premier post, c'est une erreur qui apparait sur un fichier temporaire d'excel, c'est pour ça que je comprends pas.
J'ai 7 projets temporaire nommés VBA project(~GLH0000.TMP), je ne sais pas d'où ils sortent et mon projet plantent dessus.
Si tu as une idée, je trouve des trucs mais ça me convient pas trop en fait.

...? ben moi aussi je ne sais pas ce que sont ces "projets temporaires"... ? des feuilles excel qui s'ouvrent "toutes seule ?"
05/07/2006, 13h18
SfJ5Rpw8
sinon vu l'aide en ligne VBA, tu as un probléme sur l'utilisation de la méthode location :

Citation:

Envoyé par Aide en ligne VBA

Location, méthode

Déplace le graphique en un autre emplacement.

Syntaxe

expression.Location(Where, Name)

expression Obligatoire. Expression qui renvoie un objet Chart.

Where Argument de type Long obligatoire. Le nouvel emplacement. Il peut s'agir de l'une des constantes XlChartLocation suivantes : xlLocationAsNewSheet, xlLocationAsObject ou xlLocationAutomatic.

Name Argument de type Variant facultatif. Obligatoire si Where vaut xlLocationAsObject. Le nom de la feuille dans laquelle le graphique est incorporé si Where vaut xlLocationAsObject ou le nom de la nouvelle feuille si Where vaut xlLocationAsNewSheet.

d'ou un code du genre :
Code:

1 2 3 4 5 .. ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphiques" ..
si cela résoud ton probléme de plantage ... faudra voir ensuite le déplacement du graphique dans la feuille excel...
05/07/2006, 15h42
Mugette

Non, ca n'a pas résolu mon pb, j'ai essayé en enregistrant une macro puis en la refaisant tourner via mon formulaire mais toujours la même erreur.

Merci quand même...:cry:

Cdt,