XL 2016 chart Object erreur

Oneida

XLDnaute Impliqué

• 8 Février 2023

• #2

Bonjour,

la ligne en gras marque erreur
Laquelle?

 

Vote positif 0 Vote négatif

T

tarik.malah

XLDnaute Nouveau

• 8 Février 2023

• #3

quand j'exécute le module
le résultat est :

 

Pièces jointes

• Sans titre.jpg

  255.6 KB · Affichages: 19

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 9 Février 2023

• #4

Bonjour,
Ok, mais est ce que vous avez un message d'erreur dans une boite dialogue VBA ou Excel?
A defaut mettez votre fichier a dispo

 

Vote positif 0 Vote négatif

T

tarik.malah

XLDnaute Nouveau

• 9 Février 2023

• #5

Oneida à dit:

Bonjour,
Ok, mais est ce que vous avez un message d'erreur dans une boite dialogue VBA ou Excel?
A defaut mettez votre fichier a dispo

Cliquez pour agrandir...

non

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 10 Février 2023

• #6

Bonjour,

Mettez votre fichier a disopsition

 

Vote positif 0 Vote négatif

T

tarik.malah

XLDnaute Nouveau

• 10 Février 2023

• #7

le voila
le code est dans le module
merci pour vous

 

Pièces jointes

• graphic.xlsm

  172.3 KB · Affichages: 3

Vote positif 0 Vote négatif

J

jm.andryszak

XLDnaute Occasionnel

• 11 Février 2023

• #8

Bonjour
A tester
Un conseil, mettez option explicit en début des modules pour corriger les erreurs de code.

 

Pièces jointes

• Graphique.xlsm

  26.5 KB · Affichages: 3

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 11 Février 2023

• #9

Bonjour,

jm.andryszak ca roule?​

tarik.malah:
votre code modifie:

VB:

Sub graphique()
    Dim frm1 As String
    Dim chrt As Chart
    
    Set chrt = Feuil13.ChartObjects(1).Chart
    chrt.Parent.Height = UserForm4.Image1.Height
    chrt.Parent.Width = UserForm4.Image1.Width
    frm1 = ThisWorkbook.Path & "\dfghjkl.gif"             'mettre le nom de votre fichier
    chrt.Export Filename:=frm1
    UserForm4.Image1.Picture = LoadPicture(frm1)        'variable chemin et nom de fichier, pas du texte
End Sub

 

Vote positif 0 Vote négatif

J

jm.andryszak

XLDnaute Occasionnel

• 11 Février 2023

• #10

Bonjour
J'at fait une erreur
Il faut remplacer :
chrt.Parent.Height = UserForm4.Height
par :
chrt.Parent.Height = UserForm4.Image1.Height
Sinon nous avons le même code, sauf que je n'utilise pas la variable frm1

 

Vote positif 0 Vote négatif

T

tarik.malah

XLDnaute Nouveau

• 12 Février 2023

• #11

jm.andryszak à dit:

Bonjour
A tester
Un conseil, mettez option explicit en début des modules pour corriger les erreurs de code.

Cliquez pour agrandir...

merci ça marche bien

 

Vote positif 0 Vote négatif