[Excel] Emplacement Userform

Résolu/Fermé
Alessia - 8 juil. 2008 à 15:16
CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 - 8 juil. 2008 à 15:49
Bonjour,

Après avoir créée un graphique dynamique dans l'onglet "feuille Pivot", j'ai réussie à afficher ce meme graphique dans un UserForm. Toutefois cet UserForm est positionné dans l'onglet "feuille pivot" qui contient déja mon graphique.
Il n'a donc aucun intérêt!!
Je voudrais donc savoir s'il est possible de faire apparaitre l'user form dans un autre onglet que j'ai appelé "QSM Conso" de mon classeur sachant que lorsque l'userform est affiché à l'ecran il m'est impossible de changer de feuille.
Pour info voici le code que j'ai saisie


Sub Bouton36_QuandClic()
Sheets("Feuille Pivot").Select
Set CurrentChart = Sheets("Feuille Pivot").ChartObjects(1).Chart
Sheets("Feuille Pivot").ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
UserForm1.Image1.Picture = LoadPicture(Fname)
UserForm1.Show
End Sub


D'avance merci
A voir également:

2 réponses

CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 61
8 juil. 2008 à 15:29
Sub Bouton36_QuandClic()
Sheets("Feuille Pivot").Select
Set CurrentChart = Sheets("Feuille Pivot").ChartObjects(1).Chart
Sheets("Feuille Pivot").ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ShowWindow = True
Fname = ThisWorkbook.Path & "\temp2.gif"
CurrentChart.Export Filename:=Fname, FilterName:="GIF"
UserForm1.Image1.Picture = LoadPicture(Fname)
Worksheets("QSM Conso").Activate
UserForm1.Show
End Sub

test ca
0
Super!! Ca marche

Merci beaucoup CaptainCo
0
CapitainCo Messages postés 126 Date d'inscription mardi 24 juin 2008 Statut Membre Dernière intervention 5 novembre 2009 61
8 juil. 2008 à 15:49
dr
0