1 bouton poour deux actions

[jack]

bonjour a tous

j'ai un tableau qui occupe 2 pages( en impression )
pour avoir plus de clarté pour la saisie je souhaite passer ce grand tableau en réduction à 75% puis le passer en mosaïque pour l'avoir en totalité sur l'écran via fenêtre, nouvelle fenêtre, puis organiser, puis mosaïque
il me faut un seul bouton( en vba) qui me permettrais de passer de la version mosaique à la version pleine page et inversement et ce à l'infini

merci de votre aide

bonne fin de we
tchao
jack

 

[Brigitte]

Bonsoir Jack,


Je ne suis pas sûre que cela soit ce que tu veux, mais bon j'aurais essayé.
Voici la macro ci-dessous (que tu trouveras dans le fichier ci-joint).

Sub Mosaique()
'
' Mosaique Macro
' Macro enregistrée le 14/03/2004 par brigitte
'

'
ActiveWindow.Zoom = 75
ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=xlTiled
End Sub
Sub Normal()
'
' Normal Macro
' Macro enregistrée le 14/03/2004 par brigitte
'

'
Windows.Arrange ArrangeStyle:=xlTiled
Windows("Classeur8:2").Activate
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
ActiveWindow.Zoom = 100
End Sub


Bonne soirée

 

[gilbert]

Bonsoir le forum
tu peux essayer
If ActiveWindow.Zoom = 75 Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 75
End If

 

[jack]

merci pour ton aide

mais il me faut pouvoir revenir à la situation de base comme avec la macro de gilbert c'est à dire qu'avec le même bouton je puisse faire la première action et revenir en arrière
je fais essayer de faire un mix des deux solutions

merci encore

tchao