Problème incompatibilité de type pour l'insertion d'un graphique dans un userform

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:

---

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

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).

Bonjour,

Tu as raison,

Code:

---

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.

Citation:

---

Envoyé par ounett

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 ?

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.

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

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

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

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

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"

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

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