Discussion :

[linkcr15]

Bonjour à tous!

Comme écrit dans le titre de la discussion, je souhaite insérer des graphiques croisés dynamiques dans un UserForm. Les graphiques sont obtenus par la création d'un tableau croisé dynamique dans la feuille "TCD" et les deux graphiques sont dans les feuilles "Graphe priorites" et "Graphe types". J'ai trouvé de nombreux (pas tant que ça non plus) codes sur Internet mais aucun ne fonctionne vraiment, et je ne comprends pas non plus la marche à suivre...

Doit-on exporter le graphe en GIF pour l'insérer en tant qu'image dans le UserForm?
Peut-on l'insérer directement en tant qu'objet?

Est-ce que quelqu'un peut m'aider svp?

Merci d'avance pour vos réponses et je reste à disposition!

[fring]

Bonjour,

Jette un oeil là --> http://excel.developpez.com/faq/inde...phiqueUserForm

[linkcr15]

Merci pour le lien!

Mais j'ai un problème à cette ligne :

Code :

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

1
2
Worksheets("Graphe priorites").ChartObjects(1). _
        Chart.Export Filename:=Fichier, filtername:="GIF"

Je reprécise que j'ai un graphique croisé dynamique, et non un graphique "normal", est-ce que cela peut jouer là dessus?

Pour voir le nom des ChartObject de la page, j'ai testé ce code :

Code :

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

1
2
3
4
Dim c As ChartObject
For Each c In ActiveSheet.ChartObjects
   MsgBox c.Name
Next

Et résultat, je n'ai aucun Msgbox qui apparaît donc pour moi l'erreur se situe sur ChartObjects(1) qu'il ne trouve pas.

[fring]

Je reprécise que j'ai un graphique croisé dynamique, et non un graphique "normal", est-ce que cela peut jouer là dessus?.

Je n'ai jamais utilisé ce genre de graphique mais je ne pense pas que cela change quelque chose
Tu peux joindre un bout de fichier avec ton graphique ?

[linkcr15]

Alors je t'ai fait une classeur de test, les graphes ne sont plus des graphes croisés dynamiques mais de simple graphes maintenant. Le problème est toujours là. Voici le lien : http://cjoint.com/?0Fhp1Nu1066

PS : Je veux mettre les deux graphes dedans, j'ai fait que le boulot à moitié je sais, si j’arrive à en mettre un j'arriverais à mettre l'autre

[fring]

L'erreur vient de là --> http://vb.developpez.com/faqvba/?page=3.3#Sheets

[linkcr15]

Donc si j'ai bien compris on utilise Sheets lorsqu'on à des graphes et des feuilles de calcul. Cependant, même en remplacant Worksheets par Sheets, j'ai la même erreur...

[nchal]

Bonjour,

Je pense que c'est le ChartObjects qui ne marche pas avec les feuilles graphiques.

Code :

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

1
2
3
4
5
6
7
Sub ListeChart()
Dim c As ChartObject
 For Each c In ActiveSheet.ChartObjects
   MsgBox c.Name
  Next
 
End Sub

C'est un code que j'ai récupéré d'un vieux post et qui permet d'avoir le nom de tous les chartObjects de la feuille. Créer un graphique dans un feuille normal et sa te sortira le nom, essaie sur tes feuille graphiques et sa marche pas. Il faut trouver une alternative au chartobjects

[linkcr15]

nchal, regarde les posts précédents, j'ai déjà testé cette fonction et elle ne me sors aucun nom. Ce qui implique que je n'ai pas de CharObjects sur mes feuilles, c'est pourquoi le code ne fonctionne pas.
Je ne comprends pas ce qu'est un CharObject, quelqu'un peut m'éclairer? (J'ai déjà lu l'aide de Microsoft et c'est très mal expliqué).

Cependant j'ai trouvé ce code et là j'ai bien le nom de tous les graphes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Cherche_Nom_Graphique()
 
    Dim Graphique As Chart
 
    For Each Graphique In Charts
        MsgBox "Titre : " & Graphique.ChartTitle.Caption & vbCrLf & _
                "Feuille : " & Graphique.Name
    Next Graphique
 
End Sub

Quelqu'un sait comment copier un graphe dans un UserForm sans passer par CharObjects(qui pour ma part ne fonctionne pas)?

[nchal]

Salut,

je suis aussi perdu que toi, et je suis aussi aller voir l'aide de microsoft mais c'est vraiment n'importe quoi. En fouillant sur le web j'ai trouve qqchose d’intéressant puisque l'export ne plante plus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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
 
 
    Charts("Graphe types").Export Filename:=Fichier, FilterName:="GIF"
    'Affiche l'image dans l'UserForm
    Usr_Graphe.Image1.Picture = LoadPicture(Fichier)
End Sub

Chez moi, la taille de l'image n'est pas encore bonne mais je pense qu'on tient quelque chose

[linkcr15]

Merci! Enfin quelque chose qui fonctionne.
Chez moi l'image en elle même n'est pas redimensionnée, mais il faut que j'agrandisse le composant du UserForm pour qu'il s'adapte à l'image chargée. Merci beaucoup en tout cas, j'ai passé la journée entière à régler ce problème!

[fring]

Donc si j'ai bien compris on utilise Sheets lorsqu'on à des graphes et des feuilles de calcul.

Sorry j'ai balancé le lien comme ça vite fait parce que je n'avais pas le temps d'approfondir. Mais oui c'est une des erreurs que j'avais constatée dans ton code, Worksheets("nom_feuille_graphique") ça coince.

[linkcr15]

Sheets("nom_feuille_graphique") coince aussi je te rassure ^^ Mais merci pour le tuyaux