Insertion de Graphique dans Userform

Version imprimable

15/04/2009, 19h14
LaPanic

2 pièce(s) jointe(s)

Insertion de Graphique dans Userform

Bonjour a tous,
j'ai cherché dans le forum et j'ai trouvé pas mal de trucs et j'ai pu télécharger le composant Office OWC11.EXE
ci-joint un exemple que je voudrais finir
dans la feuille Report il y a 3 boutons lorsqu'on click dessus il y a un userform qui s'affiche je voudrais afficher un graphe représentant la plage "calculation!A2:E4" et le titre du userform soit "calculation!A1" et le commentaire "calculation!B6" soit affiché dans le label2

il y a un message que je voudrais faire disparaitre si quelqu'un a une idée(voir l'image)

Merci pour votre aide
15/04/2009, 20h47
SilkyRoad

bonsoir

j'espère que ce lien pourra t'aider :
http://support.microsoft.com/?scid=k...id=2530&sid=50

bonne soirée
michel
16/04/2009, 21h21
LaPanic
Merci SilkyRoad:

Je crois que je vais me contenter de clicker sur OK du moment que cela ne change rien dans l'exécution de la macro (cette opération est un peut trop compliqué pour moi).

Concernant le userform j'ai pu changer le titre et le contenu du label par les commandes ci-dessous:
Code:

1 2 3 4 5 Private Sub UserForm_Initialize() Me.Caption = Sheets("calculation").Range("A1") Label2 = Sheets("calculation").Range("B6") End Sub
il ne reste que l'affichage du graphique dans le composant Web et pour cela, je compte sur votre aide

Merci
17/04/2009, 07h15
Krovax

Je met un graphique dans un userform j'ai trouvé le code dans la FAQ,
ici
Pour le dossier ou on enregistre l'image, je préfère utiliser Environ(TEMP) qui permet de stocker l'image dans le dossier temporaire
19/04/2009, 17h05
LaPanic

Bonjour,
Merci Krovax pour ta réponse, mais ce que je recherche c'est d'adapter l'exemple proposé par SilkyRoad celui dans lequel on peut sélectionner les séries dans une zone de liste (j'aurai du ajouter une zone de liste dans mon exemple).

Merci pour votre aide

bonjour,
ci-dessous le code que je veux adapter au fichier exemple
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub UserForm_Initialize() Me.Caption = Sheets("calculation").Range("A1") Label2 = Sheets("calculation").Range("B6") Dim x As Byte Set C = ChartSpace1.Constants 'Ajoute le graphique Set Cht = ChartSpace1.Charts.Add 'Alimentation Listbox (Données de la plage G2:G6) For x = 3 To 4 ListBox1.AddItem Cells(x, 1) Next x End Sub
je voudrais que le listeBox1 affiche les donnés a partir d'une autre feuille soit la plage calculation!$A$3:$A$4

Merci pour votre aide

28/04/2009, 20h18
LaPanic

1 pièce(s) jointe(s)

Bonjour tlm,
voila le résultat que je suis arrivé a réaliser je ne sais pas s'il y a une possibilité pour optimiser!??

merci pour votre aide
29/04/2009, 12h52
aalex_38

Bonjour,

Je n'ai pas regardé ton fichier joint mais au lieu de :

Code:

ListBox1.AddItem Cells(x, 1)

dans ton code précédent

Code:

ListBox1.AddItem worSheets("calculation").Range("A3:B4")

devrait fonctionner ?

Tu dis

merci aalex_38 pour ta reponse:
la plage qui alimente la listbox est dynamique
Code:

1 2 3 4 5 6 a = 2 Do a = a + 1 ListBox1.AddItem (Sheets("calculation").Cells(a, 1)) ListBox1.Selected(0) = True Loop While Sheets("calculation").Cells(a + 1, 1).Value <> ""
sauf s'il y a moyen d'optimiser a ce niveau

merci