Déselectionner un graphique en VBA

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:

---

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.

Bonjour,

tu peux utiliser:

Code:

---

ActiveChart.Deselect

---

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

Code:

---

Feuil1.Cells(1,1).Select

---

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

Code:

---

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:

---

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:

---

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/

Bonjour,

il y a aussi la propriété RangeSelection …


__________________________________________________________________________________________

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

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

Code:

---

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

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:

---

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 ?

même réponse!

Code:

---

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.

Ça ne marche pas chez moi, ça me fait l'erreur 438 sur cette instruction.
Et non, je n'en comprends pas la philosophie, je m'embrouille dans les différents objets, au milieu des Chart, des ChartArea, des ChartObjects etc...
Par ailleurs, je ne comprends pas pourquoi l'enregistreur de macro fait le collage spécial sur ActiveSheet plutôt que sur ActiveChart.

Je viens de constater que même au sein de la documentation Microsoft, il y a toujours une sélection avant un collage spécial de format :
http://msdn.microsoft.com/fr-fr/libr.../ff835858.aspx

Code:

---

1 2 3

Worksheets("Sheet1").Range("D1").Select ActiveSheet.PasteSpecial format:= _ "Microsoft Word 8.0 Document Object"

---

Quelqu'un aurait-il une alternative à cela ? Je voudrais faire mon copier-collage de format sans faire de sélection.

Citation:

---

Envoyé par corent2

Je viens de constater que même au sein de la documentation Microsoft, il y a toujours une sélection avant un collage spécial de format :
http://msdn.microsoft.com/fr-fr/libr.../ff835858.aspx

Code:

---

1 2 3

Worksheets("Sheet1").Range("D1").Select ActiveSheet.PasteSpecial format:= _ "Microsoft Word 8.0 Document Object"

---

Quelqu'un aurait-il une alternative à cela ? Je voudrais faire mon copier-collage de format sans faire de sélection.

---

je t’avoues que ça me laisse perplexe et pour l'instant je ne trouve rien de concluent mai je vais insister.
si tu trouve la solution sur un autre site poste la réponse car je suis preneur.

Code:

---

1 2 3

ActiveSheet.ChartObjects("Graphe_Reference").Chart.ChartArea.Copy ActiveSheet.ChartObjects("NouveauGraphique").Chart.Paste Type:=xlFormats

---

Ça ne marche pas tout à fait.

Une fois que ces 2 instructions sont exécutées, les formats sont collés, mais les courbes aussi. Donc NouveauGraphique se retrouve avec ses courbes (sans que leur format ait changé) + les courbes de Graphe_Reference (avec le joli format).
La zone de traçage par contre se retrouve avec le joli format.


J'ai déjà envisagé d'appliquer le format au NouveauGraphique avec un modèle de graphe :
Gph.Chart.ApplyChartTemplate ("P:\apps\office\templates\Charts\Graph_Taux.crtx")
Mais c'est mauvais parce que ça oblige à avoir un autre fichier. J'aimerais résoudre trouver une solution sans contourner le problème.

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Gph Range("DebutTableau1").Select Set zone = Range(Selection, Selection.End(xlToRight).End(xlDown)) ActiveSheet.ChartObjects("Graphe_Reference").Chart.ChartArea.Copy Set Gph = ActiveSheet.Shapes.AddChart Gph.Chart.Paste Type:=xlFormats Gph.Chart.SetSourceData Source:=zone Gph.Chart.ChartType = xlLine Set Gph = Nothing Range("DebutTableau

---

Voilà, ça marche ! Merci rdurupt !
Juste une remarque, en raison du collage des formats, la ligne "Gph.Chart.ChartType = xlLine" devient inutile (pire : elle provoque un bug d'affichage).


Au final, voici le code optimisé (les tableaux font 5 lignes de haut et il y a 2 lignes d'interstice entre chaque, d'où le "Offset(i * 7, 0)" )

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Gph Dim zoneTableau As Range   For i = 0 To nbTableaux - 1 Range("DebutTableau1").Offset(i * 7, 0).Select Set zoneTableau = Range(Selection, Selection.End(xlDown).End(xlToRight))   ActiveSheet.ChartObjects("Graphe_Reference").Chart.ChartArea.Copy   Set Gph = ActiveSheet.Shapes.AddChart Gph.Chart.Paste Type:=xlFormats Gph.Chart.SetSourceData Source:=zoneTableau Next   Set Gph = Nothing Set zoneTableau = Nothing

---