VBA Aperçu de la page (bug)

[yusukens]

Bonjour,

Encore besoin d'aide.
je bloque sur un code, ou plutôt ça bug dans mon code. ^^

j'ai un UserForm avec plein de TextBox etc qui alimentent une feuille.
j'ai un bouton qui doit NORMALEMENT faire un apercu de la feuil.

pour cela j'utilise le code

    ActiveWindow.SelectedSheets.PrintPreview

mais lorsque j'appuis sur le bouton, il me met bien l'apercu de la mise en page en arriere de l'USERFORM,
mais je ne peux plus naviguer dans l'UserForm
et ni même dans la l'apercu de la page.
En gros la bug lol.

merci de votre aide

 

[Roland_M]

Re : VBA Aperçu de la page (bug)

bonjour, ceci cré un aperçu...
voir évidemment le nom de la feuille(ici Feuil1) et ZoneApercu$

ZoneApercu$ = "A1:B50"
Sheets("Feuil1").Select: Range(ZoneApercu$).Select
PageSetup.PrintArea = ZoneApercu$: Range(ZoneApercu$).PrintPreview

Roland

 

[Dull]

Re : VBA Aperçu de la page (bug)

salut yusukens, Roland, le Forum

j'ai un UserForm avec plein de TextBox etc qui alimentent une feuille.

Un essai en pièce jointe

par rapport au Userform avec le code de Roland modifié

ne pas oublier de mettre l'Userform en ShowModal = False

Bonne Journée

 

[yusukens]

Re : VBA Aperçu de la page (bug)

salut roland.

Merci pour ton aide

j'ai testé ton code, mais ça ne marche pas:

voila comment j'ai rédapter pour mon userform :

ZoneApercu$ = "A1:F40"
Sheets("MEP-Devis").Select: Range(ZoneApercu$).Select
PageSetup.PrintArea = ZoneApercu$: Range(ZoneApercu$).PrintPreview

il me trouve une erreur sur la ligne :
PageSetup.PrintArea = ZoneApercu$: Range(ZoneApercu$).PrintPreview

 

[Roland_M]

Re : VBA Aperçu de la page (bug)

Vu !
avant !cette ligne PrintWiew ... mettre Me.Hide et remettre ensuite Me.Show

Roland

 

[yusukens]

Re : VBA Aperçu de la page (bug)

Merci Dull

ça marche :
j'ai modifier le code pour l'adapter à mon userform:

ZoneApercu$ = "A1:F40"
Sheets("MEP-Devis").Select: Range(ZoneApercu$).Select
Unload Me
 Range(ZoneApercu$).PrintPreview

par contre est ce possible de lui dire de revenir dans l'userform après la fermeture de l'arpercu sans effacer les contenus des TextBox existant ??

 

[Roland_M]

Re : VBA Aperçu de la page (bug)

OUI, mais pas avec unload me car tout est effacé !
mais avec Me.Hide tous reste en l'état ! puis remettre après Me.Show

Roland

 

[yusukens]

Re : VBA Aperçu de la page (bug)

oui exact.

ça marche super bien.

merci a vous tous