Posez votre question Signaler

VBA-Excel: creation graphique - erreur 1004 [Résolu]

Nelly1234 11Messages postés 12 septembre 2011Date d'inscription 27 septembre 2011Dernière intervention - Dernière réponse le 13 sept. 2011 à 10:49

Bonjour,
je débute en VBA Excel. Je dois tracer une courbe dans un grahique avec une abscisse et une ordonnée.
J'ai trouvé un exemple dans le support microsoft, que j'ai copié.
Dans le code ci dissous, j'ai un problème a la premiere ligne sur Range("B3:M3").Select
qui indique 'erreur d'execution 1004 - Erreur définie par l'application ou par l'objet'
Je me suis assurée que j'ai bien une feuille active: OK
Quelqu'un peut m'aider?
Merci d'avance
Function traceGraphique(zoneDonnees) As Integer
' Select the range of data of the chart.
Range("B3:M3").Select
' Assign the address of the selected range of cells to a variable.
myrange = Selection.Address
' Assign the name of the active sheet to a variable. This line is
' used in order to allow a chart to be created on a separate chart
' sheet.
mysheetname = ActiveSheet.name
' Add a chart to the active sheet.
ActiveSheet.ChartObjects.Add(125.25, 60, 301.5, 155.25).Select
' To create a chart on a separate chart sheet, remark out the
' previous line, and substitute the next line for the one above.
' Charts.Add
Application.CutCopyMode = False
' This line can best be written by recording a macro, and
' modifying the code generated by the Microsoft Excel Macro
' recorder.
ActiveChart.ChartWizard _
Source:=Sheets(mysheetname).Range(myrange), _
Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
Title:="", CategoryTitle:="", _
ValueTitle:="", ExtraTitle:=""
End Function

VBA-Excel: creation graphique - erreur 1004 »

Suggestions

VBA-Excel: creation graphique - erreur 1004
[VBA Excel] Création d'un graphique » Forum
Excel VBA vulgaire copier/coller (Résolu) » Forum
Vba excel erreur 1004 impossible de coller (Résolu) » Forum
Excel : Macro en erreur "1004" (Résolu) » Forum
Novice VBA Excel - Création d'une boucle (Résolu) » Forum

Plus

Réponse

Heremion 536Messages postés 20 mai 2011Date d'inscription 16 mai 2012Dernière intervention 12 sept. 2011 à 14:35

Bonjour Nelly,

Avant d'effectuer une sélection, ta page doit être activée avec le code ci-dessous :

Worksheets("TaFeuille").Activate

Ajouter un commentaire

Réponse

Nelly1234 11Messages postés 12 septembre 2011Date d'inscription 27 septembre 2011Dernière intervention 12 sept. 2011 à 14:51

Bonjour,

Merci pour ta réponse mais ce n'est pas ca. j'ai activé, c'est le même pb.

Nelly

Ajouter un commentaire

Réponse

Heremion 536Messages postés 20 mai 2011Date d'inscription 16 mai 2012Dernière intervention 12 sept. 2011 à 15:02

Peux-tu joindre, grâce au site de partage de fichier cijoint.fr, ton fichier excel, qu'on puisse voir le code en entier stp?

Ajouter un commentaire

Réponse

Nelly1234 11Messages postés 12 septembre 2011Date d'inscription 27 septembre 2011Dernière intervention 12 sept. 2011 à 15:53

OK,

lien http://www.cijoint.fr/cjlink.php?file=cj201109/cijsQLQZ3O.xls

attention ce n'est pas un xls mais un cls contenant le code VBA que tu peux voir avec un quelconque éditeur

Merci

Ajouter un commentaire

Réponse

pijaku 4446Messages postés 15 mai 2008Date d'inscription 30 mai 2012Dernière intervention 12 sept. 2011 à 16:03

Bonjour,
Avez vous essayé avec une Sub plutôt qu'une Function?
Il me semble, mais je peux me tromper, qu'une Function renvoie une valeur et, par conséquent, ne peux pas générer un graph...

Ajouter un commentaire - Site web

Réponse

Nelly1234 11Messages postés 12 septembre 2011Date d'inscription 27 septembre 2011Dernière intervention 12 sept. 2011 à 16:16

Bonjour,

J'ai mis le code de la fonction dans la Sub, mais cela donne le même pb.

Ajouter un commentaire

Afficher les 6 commentaires

pijaku- 12 sept. 2011 à 16:22

J'ai mis le code de la fonction dans la Sub, mais cela donne le même pb.
Donne nous ton code ainsi obtenu...
Nous ne pouvons que supposer que tu l'as bien fait, mais...
Exemple : [la partie en gras est à changer, tu peux le faire via l'enregistreur de macro, car elle créée un graph vide...]

Sub traceGraphique()
' Select the range of data of the chart.
Range("B3:M3").Select
' Assign the address of the selected range of cells to a variable.
myrange = Selection.Address
' Assign the name of the active sheet to a variable. This line is
' used in order to allow a chart to be created on a separate chart
' sheet.
mysheetname = ActiveSheet.Name
' Add a chart to the active sheet.
ActiveSheet.ChartObjects.Add(125.25, 60, 301.5, 155.25).Select
' To create a chart on a separate chart sheet, remark out the
' previous line, and substitute the next line for the one above.
' Charts.Add
Application.CutCopyMode = False
' This line can best be written by recording a macro, and
' modifying the code generated by the Microsoft Excel Macro
' recorder.
ActiveChart.ChartWizard _
Source:=Sheets(mysheetname).Range(myrange), _
Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
Title:="", CategoryTitle:="", _
ValueTitle:="", ExtraTitle:=""
End Sub

Nelly1234- 12 sept. 2011 à 16:44

Bonjour,

mais ça plante sur Range("B3:M3").Select !!

pijaku- 12 sept. 2011 à 16:46

je considère depuis quelques temps que ça plante ne comporte pas suffisamment de précision pour pouvoir apporter une réponse.
Que te dis exactement le message d'erreur?

Nelly1234- 12 sept. 2011 à 17:07

Je vois que ca plante sur Range car je fais du pas à pas en déboggant et c'est là le pb avec le message: 'erreur d'execution 1004 - Erreur définie par l'application ou par l'objet'

pijaku- 13 sept. 2011 à 08:37

Salut,
Essaye simplement ce code :

Sub test() 
Range("B3:M3").Select 
End Sub

ou bien :

Sub test() 
Sheets("Feuil1").Range("B3:M3").Select 'Si Feuil1 est ta feuille active, sinon change...
End Sub

Nelly1234- 13 sept. 2011 à 10:43

Bonjour,

Ca y est! Sheets("Feuil1").Range("B3:M3").Select a fonctionné
C'est étonnant , pourtant en mettant la feuille active avant , ça ne fonctionnait pas!!

Merci beaucoup

Réponse

Heremion 536Messages postés 20 mai 2011Date d'inscription 16 mai 2012Dernière intervention 12 sept. 2011 à 16:21

ZoneDonnees n'est pas typé. Lorsque la fonction est appelée, tu es sûre que la donnée est correcte?

Ajouter un commentaire

Réponse

Nelly1234 11Messages postés 12 septembre 2011Date d'inscription 27 septembre 2011Dernière intervention 12 sept. 2011 à 16:43

Bonjour,

en fait, comme ça ne marchait pas , j'ai mis directement la zone dans Range et je n'utilise pas zoneDonnees du coup. J'ai Range en commentaire aussi du coup la fonction se déroule jusqu'au bout sans erreur.

Ajouter un commentaire

Réponse

Heremion 536Messages postés 20 mai 2011Date d'inscription 16 mai 2012Dernière intervention 12 sept. 2011 à 16:49

Du coup, c'était bien la valeur passée en paramètre qui posait problème?

Ajouter un commentaire

Réponse

Nelly1234 11Messages postés 12 septembre 2011Date d'inscription 27 septembre 2011Dernière intervention 12 sept. 2011 à 17:08

Bonjour,

Ben non, puisque ça plante toujours sur le Range avec la zone en dur "B3:M3"

Ajouter un commentaire

Réponse

ccm81 1502Messages postés 18 octobre 2010Date d'inscription 30 mai 2012Dernière intervention 12 sept. 2011 à 17:15

bonjour à tous

Nelly1234, si tu postais ton fichier excel (format excel 2003) le vrai, on pourrait voir exactement le problème ?

bonne suite

Ajouter un commentaire

Réponse

Nelly1234 11Messages postés 12 septembre 2011Date d'inscription 27 septembre 2011Dernière intervention 13 sept. 2011 à 09:40

Bonjour,

C'est déjà fait:
lien http://www.cijoint.fr/cjlink.php?file=cj201109/cijsQLQZ3O.xls

attention ce n'est pas un xls mais un cls contenant le code VBA que tu peux voir avec un quelconque éditeur

Merci

Ajouter un commentaire

Réponse

Heremion 536Messages postés 20 mai 2011Date d'inscription 16 mai 2012Dernière intervention 13 sept. 2011 à 10:49

Personnellement,

j'ai retesté le code, et le seul morceau de code qui fait planter tout le reste, c'est :

'VERSION 1.0 CLASS
'BEGIN
'  MultiUse = -1  'True
'End
'Attribute VB_Name = "Feuil1"
'Attribute VB_GlobalNameSpace = False
'Attribute VB_Creatable = False
'Attribute VB_PredeclaredId = True
'Attribute VB_Exposed = True

En le mettant en commentaire, j'ai aucun souci de compilation ni d'exécution, et tout s'exécute.

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

VBA-Excel: creation graphique - erreur 1004 [Résolu]

VBA-Excel: creation graphique - erreur 1004 »

Passage au tout numérique : quel coût pour les particuliers ?