Importer un graphique depuis une feuille sur un UserForm

11classeur1.xlsm (44.69 Ko)

Bonjour à tous,

Dans la continuité d'un document que je développe, j'ai encore besoin de votre aide !

Cette fois-ci, je souhaiterai insérer un graphique (créé et mis à jour avec des valeurs que j'entre) dans une "image" sur un userform.

Le but étant que à chaque fois que le graphique est mit à jour par les valeurs qui sont rentrées, il soit également mit à jour dans l'userform après les valeurs rentrées.

Je n'ai pas trouvé de code qui peuvent m'aider sur internet, donc je me demande si c'est même possible de faire ça ?

Merci par avance de votre aide...

Arthur EXL

Re-Bonjour,

J'étais en train d'essayer quelque chose, je pense que je suis sur la bonne piste

image

Cependant lorsque je clic sur "VALIDATION", ca me met bien le message "export réussi", mais ca me met par la suite une erreur lors de l'affichage du graphique (qui ne s'affiche d’ailleurs pas...)

Une idée ?

Merci !

Bonjour,

A tester, chez moi fonctionnel. Dans votre code Image1 ne correspond à rien, c'est Graphique le nom de votre cadre :

Fichier = ActiveWorkbook.Path & "\" & "graph.gif"
Sheets("Graphique").ChartObjects(1).Chart.Export Fichier, "GIF"
Me.Graphique.Picture = LoadPicture(Fichier)
Kill Fichier

Cdlt,

Bonjour,

Effectivement ce n'étais pas le bon nom

J'ai toujours un problème, voici les messages d'erreur :

image

Et après débogage :

image

Le graphique s'affiche bien chez vous ?

Cdlt,

Bonjour,

Avec le fichier joint aucun soucis, le graphique se charge bien après clic sur le bouton validation et validation du msgbox de confirmation ou d'erreur :

Private Sub VALITATION_Click()

'Gérer les copier/coller TextBox vers Cellules "Données"
Dim OK As Boolean, TB As Variant, LR&
OK = True
For Each TB In Me.Controls
    If TypeOf TB Is MSForms.TextBox And Not IsNumeric(TB) Then
        OK = False
        TB.Value = ""
    End If
Next TB
If OK = False Then
    MsgBox "Merci de renseigner des valeurs numérique dans les champs vides", vbCritical
    Else
    With Worksheets("Données")
        LR = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
        .Cells(LR, 3) = Now
        .Cells(LR, 4) = TextJableMax01 * 1
        .Cells(LR, 5) = TextJableMoy01 * 1
        .Cells(LR, 6) = TextJableMin01 * 1
        .Cells(LR, 7) = TextTLMax01 * 1
        .Cells(LR, 8) = TextTLMoy01 * 1
        .Cells(LR, 9) = TextTLMin01 * 1
        .Cells(LR, 10) = TextEpauleMax01 * 1
        .Cells(LR, 11) = TextEpauleMoy01 * 1
        .Cells(LR, 12) = TextEpauleMin01 * 1
        .Cells(LR, 13) = TextJableMax02 * 1
        .Cells(LR, 14) = TextJableMoy02 * 1
        .Cells(LR, 15) = TextJableMin02 * 1
        .Cells(LR, 16) = TextTLMax02 * 1
        .Cells(LR, 17) = TextTLMoy02 * 1
        .Cells(LR, 18) = TextTLMin02 * 1
        .Cells(LR, 19) = TextEpauleMax02 * 1
        .Cells(LR, 20) = TextEpauleMoy02 * 1
        .Cells(LR, 21) = TextEpauleMin02 * 1
        .Cells(LR, 22) = Now
        .Cells(LR, 23) = (TextJableMoy01 * 1 + TextJableMoy02 * 1) / 2
        .Cells(LR, 24) = (TextTLMoy01 * 1 + TextTLMoy02 * 1) / 2
        .Cells(LR, 25) = (TextEpauleMoy01 * 1 + TextEpauleMoy02 * 1) / 2
    End With
    MsgBox "Export terminé", vbInformation
    efface
End If
Fichier = ActiveWorkbook.Path & "\" & "graph.gif"
Sheets("Graphique").ChartObjects(1).Chart.Export Fichier, "GIF"
Me.Graphique.Picture = LoadPicture(Fichier)
Kill Fichier
End Sub

Cdlt,

Bonjour,

Ca me met toujours le message d'erreur ... Cela pourrait venir de la résolution de l'écran ?

Est-il possible de me renvoyer le fichier pour voir si le problème persiste ?

Merci,

Cdlt

Rechercher des sujets similaires à "importer graphique feuille userform"