Donner le même Format de Zoom à toutes les feuilles

Pierrot93

XLDnaute Barbatruc

• 4 Janvier 2008

• #2

Re : Donner le même Format de Zoom à toutes les feuilles

Bonsoir Papou

essaye le code ci dessous :

Code:

Sub test()
Dim w As Worksheet, ws As Worksheet, x As Integer
Application.ScreenUpdating = False
Set w = ActiveSheet
Sheets("PM").Select
x = ActiveWindow.Zoom
For Each ws In Worksheets
    ws.Select
    If ws.Name <> "PM" Then ActiveWindow.Zoom = x
Next ws
w.Select
Application.ScreenUpdating = True
End Sub

bonne soirée
@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 4 Janvier 2008

• #3

Re : Donner le même Format de Zoom à toutes les feuilles

Bonsoir Pierrot,
Je vais essayé cela de suite et je te donne le résultat de suite
a+
Papou

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 4 Janvier 2008

• #4

Re : Donner le même Format de Zoom à toutes les feuilles

Bonjour

voici une macro

sub app_zoom()
dim zom as single, i as integer
zom = activewindow.zoom
application.screenupdating = false
for i = 1 to sheets.count : sheets(i).select : activewindow.zoom = zom : next i
application.screenupdating = true
end sub

Cliquez pour agrandir...

Oups bonjour Pierrot, je suis à la traine lol

 

Dernière édition: 4 Janvier 2008

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 4 Janvier 2008

• #5

Re : Donner le même Format de Zoom à toutes les feuilles

Re Pierrot bonsoir wilfried Re le Forum
C'est Nickel Pierrot cela marche trés bien
Parfait comme dab
merci et bonne soirée
je ne sais plus si je t'ai souhaité une bonne année
alors si c'était pas fait
BONNE ANNEE 2008 et surtout la santé.
Wilfried merci de ton code je viens de voir la réponse avant de poster la réponse de Pierrot, je vais essayer aussi merci à tous et bonne soirée.
a+
Papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Janvier 2008

• #6

Re : Donner le même Format de Zoom à toutes les feuilles

Bonjour Pierrot Wielfried le Forum,
Vous m'avez donné hier deux macros qui marchent bien, est-il possible de les déclencher
si la valeur du zoom est changé dans la feuille PM
J'ai éssayé diverses manoeuvre mais je n'y arrive pas.
Merci de vos réponses
a+
Papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Janvier 2008

• #7

Re : Donner le même Format de Zoom à toutes les feuilles

Bonjour Papou, Wilfried

peut être en utilisant un module de classe avec l'événement "activate" des feuilles.

code à placer dans un moule standard :

Code:

Option Explicit
Public mesfeuilles() As New Classe1, m As Boolean

code à placer dans le module "thisworkbook" :

Code:

Option Explicit
Private Sub Workbook_Open()
Dim wS As Worksheet, i As Byte
For Each wS In Worksheets
    If wS.Name <> "PM" Then
        ReDim Preserve mesfeuilles(0 To i)
        Set mesfeuilles(i).mafeuille = wS
        i = i + 1
    End If
Next wS
End Sub

et enfin code dans le module de classe :

Code:

Option Explicit
Public WithEvents mafeuille As Worksheet
Private Sub mafeuille_Activate()
Dim z As Integer
If m = True Then Exit Sub
Application.ScreenUpdating = False
m = True
Sheets("PM").Select
z = ActiveWindow.Zoom
mafeuille.Select
ActiveWindow.Zoom = z
m = False
Application.ScreenUpdating = True
End Sub

fichier exemple en pièce jointe.

bon week end.
@+

 

Pièces jointes

• classeur1.zip

  8.2 KB · Affichages: 52
• classeur1.zip

  8.2 KB · Affichages: 64
• classeur1.zip

  8.2 KB · Affichages: 57

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Janvier 2008

• #8

Re : Donner le même Format de Zoom à toutes les feuilles

Bonjour Wilfried Pierrot, le Forum,
Alors là Pierrot tu deviens compliqué pour moi je regarde cela cet aprem
et je te dis quoi mais je vais lire il me semble que tu as mis un fichier exemple alors normalement pas de soucis
a+ je rentre du boulot et je vais manger après je regarde
Papou

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Janvier 2008

• #9

Re : Donner le même Format de Zoom à toutes les feuilles

Re Papou

pas trouvé plus simple désolé... Bon apétit

@+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Janvier 2008

• #10

Re : Donner le même Format de Zoom à toutes les feuilles

Rebonjour Pierrot Bonjour le forum,
Merci pour le bon appétit, j'étais crevé je me suis endormi sur la table à la fin du repas!!!
bref maintenant je viens de faire la modif c'est tout bon, pas simple mais parfait pour le résultat souhaité.
merci beaucoup Pierrot et à bientôt
a+
Papou

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Janvier 2008

• #11

Re : Donner le même Format de Zoom à toutes les feuilles

Bonjour à tous

voici un debut, pas eu le temps de terminer, je dois me preparer pour aller au boulot

j'ai cherché à saisir une interruption possible sur un choix de zoom, je n'ai pas trouvé alors j'ai triché

En macro c'est un peu lourd, mais à l'usage c'est assez simple.

il me reste à faire l'USF pour le choix d'un zoom specifique

Fichier joint

ps : je joins le fichier pour le recuperer au boulot et le terminer la bas lol
je supprimerai ce fichier une fois terminé

 

Dernière édition: 5 Janvier 2008

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 5 Janvier 2008

• #12

Re : Donner le même Format de Zoom à toutes les feuilles

re:

Bon j'ai amelioré les controles, je ne savais pas faire avant d'attaquer ce sujet et merci paritec, grace à toi j'ai beaucoup appris aujourd'hui

la seule obligation, est que la combobox du zoom se trouve sur la barre Standard

l'action :
l'interruption sur choix de cette combo ne pourvant (à mon niveau) etre faite, j'ai decider tout simplement de changer de combo et d'y mette la mienne 🙁

A l'ouverture du classeur
1- recherche dans la barre standard du n° de control de la combo
2- deplacement de ce control dans la barre formulaire
3- Création du controle combobox dans la barre standard

Au choix de la combo
4- Creation de la macro d'affichage

à la fermeture du classeur
5- Destruction du controle perso
6- Remise en place de l'ancien control Zoom

 

Pièces jointes

• zoom_combo.zip

  12.4 KB · Affichages: 43
• zoom_combo.zip

  12.4 KB · Affichages: 42
• zoom_combo.zip

  12.4 KB · Affichages: 40

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Janvier 2008

• #13

Re : Donner le même Format de Zoom à toutes les feuilles

Bonsoir Wilfried Bonsoir le Forum,
Je ne sais pas si tu as appris grâce à moi mais moi je viens de lire tes explications et j'ai pas tout compris enfin je vais liure et relire et voilà
je teste et demain je te dis quoi à cette heure-ci je vais dormir je suis claqué
bonne soirée
a+
Papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Janvier 2008

• #14

Re : Donner le même Format de Zoom à toutes les feuilles

Bonsoir Wilfried bonsoir le Forum,
J'étais impatient de voir cela alors j'ai essayé avant d'aller me reposer, ton zoom marche bien simplement un souci quand tu es dans valeur Perso tu ne sais pas a combien tu es, est-ce possible de l'afficher STP ? car quand l'affichage est pas bon on ne sait pas si on doit faire plus ou moins et en partant de ou surtout ??
Autrement cela marche bien je t'avouerais que j'ai regardé le code, et naturellement je n'ai rien compris, mais alors rien du tout.
L'important c'est le résultat donc c'est bon
a te lire a+
bonne soirée
Papou

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Janvier 2008

• #15

Re : Donner le même Format de Zoom à toutes les feuilles

Bonsoir Wilfried,
J'avais pas bien lu la ligne ou tu dis qu'il te reste à faire l'USF pour les valeur perso c'est certainement pour cela que je n'avais pas les valeurs??
à te lire cette fois-ci je coupe le PC
à demain matin
bon travail donc
a+
Papou

 

Vote positif 0 Vote négatif