Zoom auto sur toute les feuilles du classeur

[jonat57120]

Bonjour,

J'aimerais que lorsque l'on ouvre mon classeur excel, la dimension de toute mes feuilles va de A a I.

J'ai inséré la formule suivante dans thisworkbook :

Private Sub Workbook_Open()
Columns("A:i").Select
ActiveWindow.Zoom = True
End Sub

Le problème est le suivant :

Lorsque j'exécute mon bouton macro qui m'envoie sur la feuille suivante, je perd ma dimension.😕

Que dois-je rajouter dans ma formule afin que toutes les feuilles de mon classeur respecte cette dimension ?

Merci d'avance.

Bonne journée 😉

 

[Pierrot93]

Re : Zoom auto sur toute les feuilles du classeur

Bonjour,

essaye ceci dans le module "thisworkbook" en lieu et place du code déjà présent :

Option Explicit
Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Columns("A:i").Select
ActiveWindow.Zoom = True
End Sub

bon après midi
@+

 

[Robert]

Re : Zoom auto sur toute les feuilles du classeur

Bonjour Jonat, bienvenu dans le forum, bonjour le forum,

Essaie comme ça :

Private Sub Workbook_Open()
Dim sh As Worksheet 'déclare la variable sh
Application.ScreenUpdating = False 'masque les changements à l'écran
For Each sh In Sheets 'boucle sur tous les onglets du classeur
    sh.Select 'sélectionne l'onglet
    sh.Columns("A:i").Select
    ActiveWindow.Zoom = True
Next sh 'prochain onglet de la boucle
Sheets("Feuil1").Select 'à àdapter à ton cas
Application.ScreenUpdating = True 'affiche les chamgements à l'écran
End Sub

[Édition]

Re Pierrot... décidément, je te cours après !

 

[jonat57120]

Re : Zoom auto sur toute les feuilles du classeur

J'ai essayé les formules et cela a marché !

Un merci à vous deux. 🙂

Bonne soirée

Cordialement.

 

[jonat57120]

Re : Zoom auto sur toute les feuilles du classeur

Re Bonjour,

J'ai une autre question sur le même sujet. Désolé j'ai des connaissances très limitées en VBA.🙁

J'ai donc insérer la formule suivante dans mon fichier :

Private Sub Workbook_Open()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Sheets
sh.Select
sh.Columns("A:N").Select
ActiveWindow.Zoom = True
Next sh 'prochain onglet de la boucle
Sheets("Page d'acceuil").Select 'à àdapter à ton cas
Application.ScreenUpdating = True
End Sub


Serait-il possible que seul la page d'accueil ( feuille 1 ) s'ouvre avec les dimension allant de A à N, puis programmer pour que d'autres feuilles ( sélection ? ) s'ouvre en dimension allant de A à I ? 😎

Merci d'avance.😱

 

[Pierrot93]

Re : Zoom auto sur toute les feuilles du classeur

Bonjour,

sur la base de se que je proposais :

Option Explicit
Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "nomfeuille" Then
    Columns("A:N").Select
Else
    Columns("A:i").Select
End If
ActiveWindow.Zoom = True
End Sub

bonne journée
@+

 

[jonat57120]

Re : Zoom auto sur toute les feuilles du classeur

Merci pour la rapidité de ta réponse 😉

Bonne journée.

 

[jonat57120]

Re : Zoom auto sur toute les feuilles du classeur

Est-il possible d'utiliser ta fonction en faisant un cas-parmi ? ( Select case en VBA je crois)

De ce fait, il suffit d'appeler les noms des différentes feuilles et de sélectionner une par une les dimensions. Cela est-il faisable ?

 

[Pierrot93]

Re : Zoom auto sur toute les feuilles du classeur

Re,

essaie avec des "elseif" :

Option Explicit
Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "nomfeuille" Then
    Columns("A:N").Select
    ElseIf Sh.Name = "nomfeuille2" Then Columns("A:i").Select
    ElseIf Sh.Name = "nomfeuille3" Then Columns("A:P").Select
'etc...
Else
    Columns("A:Z").Select
End If
ActiveWindow.Zoom = True
End Sub

 

[jonat57120]

Re : Zoom auto sur toute les feuilles du classeur

Je pense que mon cours sur les manipulations des plages Excel est complet !
Je te remercie. 😱

A la prochaine.