Graphique et UF

[paul87]

Bonjour, est-il possible d'inserer un graphique (une courbe simple) dans un userform?...avec une mise à jour de ce dernier à l'ouverture..?
Merci par avance.

 

[Pierrot93]

Re : Graphique et UF

Bonsoir Paul

oui, c'est possible, regarde dans le wiki, page de MichelXld, le paragraphe sur les "Chartspaces" :


https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/


bonne soirée
@+

 

[MichelXld]

Re : Graphique et UF

bonsoir


Il existe plusieurs solutions:


Créer une image du graphique et l'afficher dans l'UserForm:

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

Utiliser la méthode PastePicture de Stephen Bullen:
Office Automation Ltd. - Stephen Bullen's Excel Page



Utiliser un ChartSpace:
https://www.excel-downloads.com/thr...gir-avec-un-graphique-dans-un-userform.75752/



Bonne soirée
MichelXld

 

[MichelXld]

Re : Graphique et UF

Bonsoir cher Pierrot ... ;o)
Merci pour la pub


MichelXld

 

[paul87]

Re : Graphique et UF

bonsoir.....et merci beaucoup....je fais des essais...
Merci pour votre rapidité