garder le même affichage selon la taille de l'écran

[pascal21]

bonjour le forum
j'ai une application que je vais "promener" d'un pc à l'autre grâce à une clé USB
le 1er essai que j'ai fais montre un problème à l'affichage que je règle pour l'instant "à la main" grâce au zoom (c'est surtout un problème sur la largeur de l'affichage), mais il faut le faire pour toutes les feuilles de tout les classeurs
n'y a t'il pas un code qui permet de régler le problème une fois pour toutes
merci

 

[JCGL]

Re : garder le même affichage selon la taille de l'écran

Bonjour à tous,

Peux-tu essayer SI TOUTES LES FEUILLES du classeur sont identiques en hauteur et largeur :

Option Explicit

Sub Ajustement()
Application.ScreenUpdating = 0
Dim F As Byte
For F = 1 To Sheets.Count
    With Sheets(F)
    .Activate
    .Range("A1:Y35").Select
    .Range("A1").Activate
    ActiveWindow.Zoom = True
    .Range("A1").Select
    End With
Next
Sheets(1).Activate
End Sub

A+ à tous

Édition : Meilleurs Vœux Itou Job

 

[job75]

Re : garder le même affichage selon la taille de l'écran

Rebonjour pascal,

n'y a t'il pas un code qui permet de régler le problème une fois pour toutes

Je ne vois pas trop ce que tu veux dire, mais le code de base, pour chaque feuille, est du type :

Range("A1:K1").Select
ActiveWindow.Zoom = True 'ajuste le zoom à la sélection
Range("A1").Select

A mettre dans les boucles adéquates.

Edit : salut JC, mes meilleurs voeux 🙂

A+

 

[pascal21]

Re : garder le même affichage selon la taille de l'écran

bonjour
entre temps moi j'avais trouvé ça

 Range(Cells(1, 1), Cells(49, 15)).Select
ActiveWindow.Zoom = True
Range("a1").Select
qui m'a foutu une belle m.....
tant que je n'avais pes fermé excel tout semblait fonctionner au poil
quand j'ai ré-ouvert excel je devais avoir environ 600 lignes et 250 colonnes à l'écran pas facile à lire lol:!!!!
je vais essayer ton code Job en plus ça semble logique