Discussion :

[Mugette]

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

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.

[SfJ5Rpw8]

il nous manque un peu de code avant... la ligne ou tu créé le graphique...



sinon pour l'erreur.. :

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 :

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

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

[Mugette]

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 :

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

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

[Mugette]

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

Merci d'avance

[SfJ5Rpw8]

...Erreur sur

Code :

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

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 ?

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

[SfJ5Rpw8]

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 ?"

[SfJ5Rpw8]

sinon vu l'aide en ligne VBA, tu as un probléme sur l'utilisation de la méthode location :

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 :

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

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...

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

Cdt,