Discussion :

[ounett]

Bonjour le forum,

Comme décrit dans l'intitulé je cherche actuellement à afficher un graphique provenant d'Excel dans un userform, le graphique doit pouvoir se modifier en temps réel.

J'ai donc utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub CommandButton1_Click()
 
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("Graphiques").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
 
 
End Sub

Lorsque je compile on m'indique une erreur "Incompatibilités de type", je ne maitrise pas bien l'insertion de graphique alors j'ai peut-être oublié de modifier un détail dans ce code qui va vous sauter au yeux.

Merci d'avance pour votre aide

Ounett

[Menhir]

Déjà, tu encapsules des Sub : c'est pas bien, ça.
Il faut que tes Sub soient dissociés (mettre un End Sub avant de commencer le Sub suivant).

[ounett]

Bonjour,

Tu as raison,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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("Graphiques").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
 
 
Private Sub CommandButton1_Click()
 
    Option Explicit
 
    Private Const Fichier As String = "C:\ImageTemp.gif"
 
 
    UserForm_Initialize
 
    UserForm_Terminate
 
 
End Sub

Voilà la version arrangée, le problème persiste.

[Menhir]

Lorsque je compile on m'indique une erreur "Incompatibilités de type"

Il n'y a pas de compilation en VBA. Si cette erreur se produit à l'exécution, quelle ligne te signale le debugueur ?

[ounett]

Ce qui m'étonne c'est que lors de l'exécution aucune ligne ne se met en jaune, le code semble donc fonctionné, le problème peut-il venir de mon Userform ? Faut-il faire une manipulation particulière si on souhaite y intégrer un graphique ?

Dans mon cas j'ai crée un Userform classique sur lequel j'ai ajouté un bouton qui doit justement exécuter le code que j'ai transmis.

[Menhir]

Dans ce cas, à quel moment survient ce message d'erreur ?

[ounett]

Lorsque j'utilise la touche F5 depuis VBA, il m'affiche alors mon Userform avec ce message d'erreur par dessus.

[Menhir]

Et il ne te proposes pas un bouton "Débugage" dans ce message ?

[ounett]

Petit changement de dernière minute, le problème provenait enfaite simplement du fait que mon Userform s'appelait "Userform1" et non Userform ..

Maintenant il me met en effet bien une ligne en jaune il s'agit du "Option explicit" qu'il me décrit comme une "Instruction incorrect dans une procédure"

[Menhir]

Tu pourrais peut-être prendre la peine de lire l'aide VBA...
https://msdn.microsoft.com/fr-fr/lib.../gg278855.aspx

[ounett]

Oui autant pour moi j'ai posté ce message un peu vite juste pour te signaler que la donne avait changé il y maintenant plusieurs erreurs qui apparaissent mais je doit pouvoir les corriger seul j'attend quelques minutes avant de mettre la discussion en résolue au cas où je serais dans l'impasse.

Merci encore