Ajustement à l'écran

Bonjour, bonjour,

Je cherche une macro simple qui me permet, avec un seul bouton page 1, d'ajuster toutes les pages en fonction de l'écran sur lequel je suis (ordinateur ou tv).

Merci d'avance !

Bonjour,

Essaye un truc du genre :

Private Sub Workbook_Open()
dim ws as worksheets
for each ws in thisworkbook.worksheets
Range("A:O").Select 'à préciser
ActiveWindow.Zoom = True
next ws
End Sub

A coller dans le module "ThisWorkbook"

Cordialement

Merci,

Mais je n'arrive pas à l'affecter à mon bouton... Elle n'est pas proposée dans la liste ?

Bonjour,

Tu dois copier le code et le coller dans le module ThisWorkBook (ALT+ F11 pour y accéder , doubleclic sur ThisworkBook, colle à droite)

Cordialement,

Re,

Mais je n'arrive pas à l'affecter à mon bouton... Elle n'est pas proposée dans la liste ?

Pas besoin de bouton, elle se lance automatiquement à l'ouverture du classeur

Cordialement

Oh, obviously !

Merci !