[Excel] Emplacement Userform
Résolu
Alessia
-
CapitainCo Messages postés 127 Statut Membre -
CapitainCo Messages postés 127 Statut Membre -
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
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:
- [Excel] Emplacement Userform
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
2 réponses
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
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
Merci beaucoup CaptainCo