Macro / PrintPreview

[Nicolas18]

Bonjour a tous,

Voici la fin de ma macro toute simple pour faire un printpreview de mon onglet YY :


...............
ActiveSheet.PrintPreview
End Sub

Je cherche a compléter la macro pour que lorsque je quitte le printpreview (croix rouge ou echap), je sois redirigé vers une cellule dans un autre onglet XX .

Merci beaucoup

Nico

 

[Papou-net]

Re : Macro / PrintPreview

Bonjour Nicolas18,

Quelquechose comme ceci :

ActiveSheet.PrintPreview
Sheets("Feuil3").Activate
ActiveSheet.Range("C10").Select

Tu remplaces bien sûr les mots entre guillemets pas les noms de la feuille et de la cellule adéquats.

Espérant avoir répondu.

Cordialement.

 

[Nicolas18]

Re : Macro / PrintPreview

Parfait merci beaucoup

 

[Jacou]

Re : Macro / PrintPreview

Bonjour Nicolas18, bonjour Papou-net, bonjour le forum
au lieu de "ActiveSheet.PrintPreview", mets "x= ActiveSheet.PrintPreview"
tu récupéreras dans x la valeur "Vrai" (si tu imprimes par exemple) ou la valeur "Faux" si tu fais echap ou la croix rouge.
tu pourrais donc faire comme ceci :
....
x = ActiveSheet.PrintPreview
if x = faux then
Sheets("XX").select
.....
else
goto étiquette
endif

Bonne fin de journée