[VBA-E] Selectionner un graphique via une liste déroulante

Bonjour j'explique mon problème:

j'insère un graphique présent dans une feuille dans une userform en utilisant la méthode PastePicture:
http://www.bmsltd.ie/Excel/SBXLPage.asp

avec extrait du code qui nous intéresse:

Code:

---

set oCht = Sheet3.chartObjects(1).chart

---

ça marche pas de souçi, mon graphique 1 est sélectionné sur ma feuille sheet3 et il apparaît dans mon image userform après le copié-collé dans le pressepapier (je vous fait grâce du reste du code).

ce qui m'ammène est sûrement plus simple:

j'aimerai pouvoir, via une liste déroulante, lancer la private sub updatechart (ce qui fait afficher mon graphique et dont j'ai mis un extrait de code), sur le graphique sélectionné via cette liste.

en gros je sélectionne via la liste graphique5 et l'instruction se fera sur ce graphique.

Comment coder ma combobox?

et comment gérer un graphique n'existant pas? (ex: je sélectionne graphique6 mais il n'existe pas, comment éviter de rentrer dans le déboggage?)
:)

euh j'espère avoir été à peu près clair... merci pour votre aide:)

bonjour

Citation:

---

comment gérer un graphique n'existant pas?

---

En faisant apparaitre uniquement des graphiques existants dans la ComboBox ...
Cet exemple initialise la ComboBox en listant les graphiques de la Feuil3

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Dim i As Byte   'boucle sur les graphiques incorporés For i = 1 To Sheet3.ChartObjects.Count ComboBox1.AddItem Sheet3.ChartObjects(i).Chart.Name Next i End Sub

---

Et tu peux ensuite utiliser l'évènement Change du ComboBox, pour définir l'image du graphique à visualiser:

Code:

---

1 2 3 4 5 6

Private Sub ComboBox1_Change() If ComboBox1.ListIndex <> -1 Then Sheet3.ChartObjects(ComboBox1.ListIndex + 1).CopyPicture xlScreen, xlPicture Set Image1.Picture = PastePicture(xlPicture) End If End Sub

---

michel

hmmm, j'ai un souci vraissemblablement dû à l'userform_initialize

"Erreur d'exécution '70':
Accès refusé "

:/

Tu peux préciser ce que tu as écrit dans ta procédure pour obtenir ce type d'erreur?


michel

j'ai mis terme pour terme les codes donnés.

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim i As Byte 'boucle sur les graphiques incorporés For i = 1 To Sheet3.ChartObjects.Count ComboBox1.AddItem Sheet3.ChartObjects(i).Chart.Name Next i End Sub

---

et dans une routine Combobox1_Change()

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

dim lPicType as long   lPictType = IIf(obMetafile, xlPicture, xlBitmap) 'format suivant si obMetafile est coché   if Combobox1.listIndex <> -1 then Sheet3.chartObjects(ComboBox1.ListIndex + 1).copyPicture xlscreen, 1PicType, xlscreen Set imgChtPic.Picture = PastePicture(lPictType) ' (l'image s'appelle imgChtPic) end if   end sub

---

nota, si je neutralise la routine userForm_intialize et que je place les mêmes commandes dans une routine ComboBox1_Click je n'ai plus l'erreur mais ma ComboBox ne me liste que du vide et ça ne marche pas (j'ai regardé, y'a deux graphiques (1 et 2) sur la feuille3)


edit: je vais être probablement loin du net pour une semaine. je bosserai néanmoins sur ce souci sur mon portable ;)


re edit: a priori l'accès refusé se ferait sur la ligne suivante:

Code:

---

ComboBox1.AddItem Sheet3.ChartObjects(i).Chart.Name

---

qu'il me surligne quand je place les proécdure dans la meme routine Combobox1_change()

bonjour

Un exemple vaut mieux qu'un long discours ...


bon après midi
michel

bonjour,
de retour de vacances j'ai trouvé entre temps ce qui n'allait pas:

j'avais spéciifié un row range à ma combobox et j'avais oublié de l'enlever. ceci empêchait l'affectation par additems ;)

donc ça marche nickel, merci encore pour l'aide :)