Visualiser des graphiques de plusieurs feuilles dans userform

[Matthewfenson]

Bonsoir à toutes et à tous,

Je souhaiterai que lorsque l'on clique sur "choisir un graphique" et que le userform s'ouvre, on puisse choisir un graphique à visualiser (grace à la liste de choix) sachant que mes graphiques se construisent tous seul grâce aux boutons de commande "Mise à jour" sur la feuil1...
J'ai vraiment besoin de votre aide, ce n'est peut-être pas compliqué mais je ne connais pas grand chose en VBA.

Merci de votre aide,
voici le fichier...

 

[kjin]

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Bonsoir,
Export des graphiques sous forme d'image gif dans le répertoire courant

Private Sub ComboBox1_Change()
Dim nGraph$
Image1.Picture = LoadPicture("")
nGraph = ActiveWorkbook.Path & "\" & ComboBox1 & ".gif"
Image1.Picture = LoadPicture(nGraph)
End Sub

Private Sub UserForm_Initialize()
Dim nGraph$, i%
For i = 2 To 4
    nGraph = ActiveWorkbook.Path & "\Pièce " & i - 1 & ".gif"
    Sheets(i).ChartObjects(1).Chart.Export nGraph
Next
End Sub

Note que je n'ai mis aucun contrôle d'erreur à ce stade
A+
kjin

 

[Matthewfenson]

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Merci kjin de m'avoir répondu, c'est bien compliqué tout ça, je n'aurai jamais trouvé tout seul.
Bref je vais essayer ton code.
Merci

 

[Matthewfenson]

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Ca marche impecable,
Un gros merci à toi Kjin, tu es trop fort!!!
Je vais donc essayer de le mettre dans mon vrai programme qui compte une 20ene de graphiques.

 

[CB60]

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Bonjour
Moi non plus je n'aurais pas trouvé, la solution est beaucoup plus clair que ce que j'essayer de faire!!!

 

[Matthewfenson]

Re : Visualiser des graphiques de plusieurs feuilles dans userform

Merci CB60 de m'avoir répondu, dsl de t'avoir pris du temps... A+