Discussion :

[corent2]

Bonjour,

Je développe actuellement un module permettant de générer une succession de graphiques à partir de tableaux simples.
A un moment, mon code ressemble à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Range("DebutTableau1").Select
Set zone = Range(Selection, Selection.End(xlToRight).End(xlDown))
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:= zone
ActiveChart.ChartType = xlLine
 
Range("DebutTableau2").Select
Set zone = Range(Selection, Selection.End(xlToRight).End(xlDown))
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:= zone
ActiveChart.ChartType = xlLine

J'ai un plantage à la ligne 9 : "Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet."
J'ai testé plein de trucs, et il semble qu'à cette ligne, la sélection active (qu'on obtient avec le mot clé Selection) n'est pas la plage "DebutTableau2" mais le graphique que je viens de créer.
J'ai essayé d'ajouter l'instruction ActiveChart.Deselect après la création de mon graphique, mais rien n'y fait, je n'arrive pas à le déselectionner avec du code. Cette instruction semble ne rien faire.
J'ai aussi essayé de trouver une solution utilisant l'enregistreur de macro mais je n'ai rien trouvé non plus.

Que faire ?

Merci d'avance.

[vanhoa]

Bonjour,

tu peux utiliser:

Code :

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

ActiveChart.Deselect

Ou encore selectionner une cellule quelconque. Par exemple, a la fin de ton code selectionne A1 de la feuille1:

Code :

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

Feuil1.Cells(1,1).Select

Ou encore eviter le ".Select" => "ActiveChart" mais passer simplement par des ecritures du type:

Code :

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

Feuil1.ChartObjects(1).Chart 'j'ai mis 1 par defaut

cela te permettra de travailler sur ton graph sans avoir a le selectionner. C'est comme si dans ton code tu travaille sur ta Feuil1, tu souhaites ensuite prendre la valeur de la cellule A1 dans le Feuil2, tu ne va pas faire

Code :

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

1
2
Feuil2.Select
ActiveSheet.Cells(1,1)

ca prend du temps, Excel doit d'abord selectionner ta Feuil2 puis aller sur A1, donc mieux vaut faire directement:

Code :

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

Feuil2.Cells(1,1)

Enfin, meme si beaucoup de personne dans le forum Excel connaissent bien VBA, tu seras aide + rapidement sur le forum approprie que voici:
http://www.developpez.net/forums/f66...ros-vba-excel/

[Marc-L]

Bonjour,

il y a aussi la propriété RangeSelection …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

si tu ne sélectionne pas tu n'as pas besoin de désélectionner!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Gph
Range("DebutTableau1").Select
Set zone = Range(Selection, Selection.End(xlToRight).End(xlDown))
 
Set Gph = ActiveSheet.Shapes.AddChart
Gph.Chart.SetSourceData Source:=zone
Gph.Chart.ChartType = xlLine
Set Gph = Nothing
Range("DebutTableau2").Select
Set zone = Range(Selection, Selection.End(xlToRight).End(xlDown))
Set Gph = ActiveSheet.Shapes.AddChart
Gph.Chart.SetSourceData Source:=zone
Gph.Chart.ChartType = xlLine
Set Gph = Nothing

http://www.developpez.net/forums/d14...s/#post7646238

[corent2]

Merci, la solution de rdurupt (ne jamais sélectionner de graphique) semble convenir, mais je rencontre un autre problème.
Maintenant, après la création de chaque graphique, je dois lui appliquer un format en faisant un collage spécial de format, à partir d'un graphique de référence que je garde dans un coin.
L'enregistreur de macro me propose ça :

Code :

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

1
2
3
4
5
6
 
    ActiveSheet.ChartObjects("Graphe_Reference").Activate
    ActiveChart.ChartArea.Copy
    ActiveSheet.ChartObjects("NouveauGraphique").Activate
    ActiveChart.ChartArea.Select
    ActiveSheet.PasteSpecial Format:=2

Ça marche mais ça sélectionne mes graphiques. Je ne veux plus que ça le fasse.
Comment faire ce copier-coller sans faire de sélection ?

[Invité]

même réponse!

Code :

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

ActiveSheet.ChartObjects("Graphe_Reference").ChartArea.Copy

il faut toujours faire le ménage après l'enregistreur de macro si tu comprend la philosophie tu as gagné!
je te laisse faire le deuxième.