VBA-Excel: creation graphique - erreur 1004

Résolu
Nelly1234 Messages postés 15 Statut Membre -  
Heremion Messages postés 564 Statut Membre -
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

13 réponses

  1.
    Heremion Messages postés 564 Statut Membre 102
     
    Bonjour Nelly,

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

    Worksheets("TaFeuille").Activate

    0
  2. Nelly1234 Messages postés 15 Statut Membre
     
    Bonjour,

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

    Nelly
    0
  3. Heremion Messages postés 564 Statut Membre 102
     
    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?
    0
  4. Nelly1234 Messages postés 15 Statut Membre
     
    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
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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...
    0
  7. Nelly1234 Messages postés 15 Statut Membre
     
    Bonjour,

    J'ai mis le code de la fonction dans la Sub, mais cela donne le même pb.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
      0
    2. Nelly1234 Messages postés 15 Statut Membre
       
      Bonjour,

      mais ça plante sur Range("B3:M3").Select !!
      0
    3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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?
      0
    4. Nelly1234 Messages postés 15 Statut Membre
       
      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'
      0
    5. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
      0
  8. Heremion Messages postés 564 Statut Membre 102
     
    ZoneDonnees n'est pas typé. Lorsque la fonction est appelée, tu es sûre que la donnée est correcte?
    0
  9. Nelly1234 Messages postés 15 Statut Membre
     
    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.
    0
  10. Heremion Messages postés 564 Statut Membre 102
     
    Du coup, c'était bien la valeur passée en paramètre qui posait problème?
    0
  11. Nelly1234 Messages postés 15 Statut Membre
     
    Bonjour,

    Ben non, puisque ça plante toujours sur le Range avec la zone en dur "B3:M3"
    0
  12. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour à tous

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

    bonne suite
    0
  13. Nelly1234 Messages postés 15 Statut Membre
     
    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
    0
  14. Heremion Messages postés 564 Statut Membre 102
     
    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.
    0