Discussion :

[NEC14]

Bonjour à tous,

Je souhaiterai savoir si il est possible d'avoir un même code pour 52 feuilles de calcul.
Pour le moment j'ai copié ce code dans mes 52 feuilles, mais j'aimerai ne le copier qu'une fois et qu'il fonctionne à chaque fois qu'une feuille est ouverte. Les feuilles sont nommées S1, S2,...S52)
Voici le code en question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Activate()
    ActiveWindow.Zoom = 75
End Sub

Merci par avance

[rvtoulon]

Slt, NEC14
Dans thisworkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.Zoom = 75
End Sub

A+

[NEC14]

Bonjour rvtoulon,

J'ai déjà essayé, mais ce sont toutes les feuilles qui se mettent à 75%, hors je ne souhaite que les feuilles S1,S2,...S52,

[fgiambelluco]

Bonjour
Ben, pourquoi pas tester le premièr caractère du nom de la feuille ?

Code de rvtoulon adapté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If left(Sh.name,1)="S" Then
   ActiveWindow.Zoom = 75
End if
End Sub

[NEC14]

Bonjour,

Ton code fonctionne bien, mais le soucis est que j'ai une feuille qui s'appelle "Stock" et d'autres commençant par "S", et elles aussi passent à 75%. Seules les feuilles S1, S2... S52 doivent avoir cette réduction d'écran.

[rvtoulon]

et en faisant une boucle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
dim i as Long, feuil as string
for i = 1 to 52
feuil = "S" &  i
If Sh.name = feuil Then
   ActiveWindow.Zoom = 75
End if
next i
End Sub

code pas tester