Graphique via macro !

[Mattharm]

Bonjour,

Est il possible de créer un graphique dans un userform d'une macro ??

J'ai des données sur une feuille et une userform1.
Et je voudrais mettre un bouton qui ouvre une userform2 et présent un camembert avec les stats de ma feuille.

Est ce possible ??
Merci 😉
Matthieu

 

[MichelXld]

Re : Graphique via macro !

Bonjour

il ne s'agit pas de graphiques en secteur, mais tu peux déja regarder si le principe te convient:

https://www.excel-downloads.com/attachments/utilisationchartspace_affichagelegende-zip.34135/

https://www.excel-downloads.com/attachments/chartspace_histoempile_et_affichagecumul-zip.34161/


Bonne journée
MichelXld

 

[Mattharm]

Re : Graphique via macro !

"Impossible de charge l'objet car il n'est pas disponible sur cette machine"

Voila ca qu'il me dit, je ne peux donc pas voir 😉
Mais merci pour l'info 😉

 

[MichelXld]

Re : Graphique via macro !

Rebonjour Matthieu


Le contrôle est téléchargeable ici:

Détails du téléchargement : Complément d'Office 2003 : composants Web Office

Download details: Office XP Tool: Web Components



une autre solution consiste à créer le graphique dans la feuille, puis l'afficher dans l'UserForm


* par la méthode PastePicture de Stephen Bullen:

Office Automation Ltd. - Stephen Bullen's Excel Page


* ou par un export au format image puis le chargement dans un contrôle Image:

Option Explicit

Private Const Fichier As String = "C:\ImageTemp.gif"

Private Sub UserForm_Initialize()
   
   'Supprime l'image temportaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
   
    'Définit le 1er graphique de la Feuil1
    'exporte le graphique au format image
    Worksheets("Feuil1").ChartObjects(1). _
        Chart.Export Filename:=Fichier, filtername:="GIF"
    'Affiche l'image dans l'UserForm
    Image1.Picture = LoadPicture(Fichier)
End Sub

Private Sub UserForm_Terminate()
   'Supprime l'image temporaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
End Sub

Bonne journée
MichelXld

 

[Foufoudora]

Re : Graphique via macro !

Bonjour le fil,
Bonjour MichelXld,

désolé de m'introduire sur ce fil mais ce fil m'intéresse.

J'ai eu le même message que Mattharm "Impossible de charge l'objet car il n'est pas disponible sur cette machine" malgrè que j'ai installé les 2 fichiers owc.exe

Merci par avance

Foufoudora

 

[Mattharm]

Re : Graphique via macro !

Hello je vais essayer l'autre technique !
Mais j'ai oublié de préciser que je suis sous mac avec office 2004 🙂

 

[Mattharm]

Re : Graphique via macro !

Re,

Je n'arrive pas à utiliser la technique PastePicture !
Cela vient peut être du fait que je suis sous mac !
Il faudra que j'essaye via un pc 😉
Merci quand même.

Cette idée de faire le graph dans une feuille et de le copier est très bonne ! Je vais chercher de ce côté la 🙂