Discussion :

[Masmeta]

Bonjour,

J'ai une erreur dans ce bout de code que je n'ai pas réalisé, suite à des testes sur la gestion des erreurs. N'étant pas un grand connaisseur de VBA, je ne la comprend pas

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'Creation du classeur 
        Dim Nouv As Workbook
        Set Nouv = Nothing
        Set Nouv = Workbooks.Add
        Application.SheetsInNewWorkbook = 1
        Nouv.Activate
        Sheets("LISTE").Copy Before:=Nouv.Sheets(1)
        Sheets("GRAPHE").Copy Before:=Nouv.Sheets(1)
        ActiveWorkbook.Worksheets("GRAPHE").Activate
        ActiveWorkbook.Worksheets("GRAPHE").ChartObjects.Delete 'Supprime le graphe précédent
        ActiveWorkbook.Charts.Add 'Ajoute un graphe
        ActiveWorkbook.ActiveChart.ChartType = xlLine
        ActiveWorkbook.ActiveChart.SetSourceData source:=ActiveWorkbook.Sheets("LISTE").Range(SelectionString), PlotBy:=xlColumns
        'Trace la courbe

L'erreur se déclenche sur :

Code :

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

1
2
ActiveWorkbook.ActiveChart.SetSourceData source:=ActiveWorkbook.Sheets("LISTE").Range(SelectionString), PlotBy:=xlColumns
        'Trace la courbe

L'erreur est la suivante :

Erreur n°1004 Description: Erreur définie par l'application ou par l'objet

Pouvez vous m'éclairez sur cette erreur et me donnez la marche à suivre pour la supprimer?

Cordialement

[Masmeta]

Bonjour

Personne à une idée?
Est ce que c'est du à une trop grande sélection de cellule?

Cordialement

[Invité]

Bonjour

Qu'y a t'il dans SelectionString ?

Starec

[Masmeta]

Selection string comporte toute une colonne par exemple de M1:M65535.

J'ai essayé de faire :

Code :

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

1
2
3
4
5
6
 
Dim Source As Range
Source = ActiveWorbook.Sheets("Liste").Range("M1").CurrentRegion
...
...
ActiveWorkbook.ActiveChart.SetSourceData Source:=Source, PlotBy:=xlColumns

Mais j'ai une erreur sur le remplissage de la source : Objet requis
Je fouille encore de ce coté là.

[Masmeta]

Bon j'ai commencé à avoir des réponses.
Une sélection >à 65536 provoque une erreur.
De plus j'ai remarqué que le ActiveChart ne pointait sur rien, de même pour le ActiveWorkbook.

( Comment que ca marchait avant )

Voici le bout de code réalisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Application.SheetsInNewWorkbook = 1
        Dim objWorkbookSource As Workbook, objWorkbookCible As Workbook
        filename = PathHisto & "courbes.xls"
        Set objWorkbookSource = Application.Workbooks.Open(filename)
        Set objWorkbookCible = Application.Workbooks.Add()
        Sheets("LISTE").Copy Before:=objWorkbookCible.Sheets(1)
        Sheets("GRAPHE").Copy Before:=objWorkbookCible.Sheets(1)
        objWorkbookCible.Worksheets("GRAPHE").Activate
        objWorkbookCible.Worksheets("GRAPHE").ChartObjects.Delete 'Supprime le graphe précédent
        objWorkbookCible.Charts.Add
        objWorkbookCible.Charts.Application.ActiveChart.Name = "Graph"
        objWorkbookCible.Activate
        objWorkbookCible.Charts("Graph").Activate
 
        objWorkbookCible.Charts("Graph").ChartType = xlLine
        objWorkbookCible.Charts("Graph").SetSourceData Source:=objWorkbookCible.Sheets("LISTE").Range("M1:M65537"), PlotBy:=xlColumns

Est ce que ce code peut être amélioré et optimisé?
merci de votre aide