Discussion :

[Dregor]

Bonjour!

Je commence en vba et j'ai un classeur avec plusieurs feuille.
Je voudrais les mettre a la taille de l'ecran donc j'ai trouve une astuce.
Mon code ressemble a ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro1()
 
    Sheets("Toto").Select
    Range("A1:AF37").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    Sheets("Tata").Select
    Range("A1:T39").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    Sheets("Titi 2012").Select
    Range("A1:AT1").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    Sheets("Titi 2013").Select
    Range("A1:AT1").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    MsgBox "Toutes les pages sont ajusté!"
End Sub

Ma question est si je créer une feuille Titi 2014, si il est possible de l'intégrer automatiquement (ou tout autre Titi 2015,2016,...).

J'ai chercher un peu partout donc je voulais essayer avec des conditions de style "If" mais le problème c'est que je voudrais que mon code vienne chercher toutes les feuilles avec le nom "Titi XXXX" avec XXXX aléatoire.
Et qu'ils les activent une par une pour que je puisse les ajustés..

En espérant avoir été assez clair.
(Si vous avez un code plus simple pour ajuster les pages je suis preneur ! )
Merci


P.S. : J'utilise Excel 2010

[kiki29]

Salut, un début

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Sub Tst()
Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name Like "Titi ####" Then
            ' ....
        End If
    Next Ws
End Sub

[Dregor]

Merci
j'ai donc rajouter.. mais le problème c'est qu'il faudrait qu'il les prenne une par une les pages pour qu'il puissent faire un zoom sur la sélection dedans.
Sauf si il y'a une méthode d'ajuster sans avoir la feuille active.

Donc est ce qu'il est possible de les prendre une par une ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Option Explicit
 
sub tst()
Dim Ws As Worksheet
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name Like "Titi ####" Then
            Range("A1:AT1").Select
            ActiveWindow.Zoom = True
            Range("A1").Select
        End If
    Next Ws
 
    Sheets("Tata").Select
    Range("A1:AF37").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
    Sheets("Toto").Select
    Range("A1:T39").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
 
 
    MsgBox "Toutes les pages sont ajusté!"
End Sub

Sinon pour information a quoi sert le " Option explicit" car il est en dehors de ma macro. merci

[kiki29]

Salut, cela fait partie du B A BA, voir ici pour Option Explixit

[Dregor]

Le B A ba pour option explicit , pour ma question de base? ou pour les deux ? ^^

[XLRATOR]

Bonjour,
Je croie que vous cherchez à appliquer le zoom sur toutes les feuilles du classeur, sans toutefois voir celà se produire, si c'est le cas alors celà donnerait:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False 'Ceci Arrête l'actualisation de l'affichage
For i = 1 To ThisWorkbook.Sheets.Count 'Une variable dont la valeur est entre 1 et le nombre de feuilles qui existent dans votre classeur
Sheets(i).Activate 'Active les feuilles du classeur 
With ActiveSheet 'Un Bloc With qui applique le zoom sur toutes les feuilles dés qu'elles sont activées.
.Range("A1:Q15").Select 'Séléctionne une plage de cellules ici Exemple de A1 jusqu'à Q15
ActiveWindow.Zoom = True 'Applique le zoom
End With
Next
Sheets(1).Activate 'Revient vers la feuille 1
Range("A1").Select 'Séléctionne la cellule A1 de la feuille 1
Application.ScreenUpdating = True 'Relance l'actualisation de l'affiichage
End Sub

En fin j'éspére vous avoir bien compris.

Cordialement
Karim

[Dregor]

Merci de ta réponse.

Par contre je veux mettre le zoom sur toute les feuilles du classeur oui, mais elles ont un zoom différent .
Toto, tata, titi ####.
titi étant du style "Titi 2012', Titi 2013, Titi ...'
Donc j'aimerais dans un premier temps mettre le zoom sur les feuilles de Toto , Tata, independemment. Et dans un deuxième temps mettre le zoom sur toutes les feuilles commençant par 'Titi ...'

[XLRATOR]

Alors,
si le zoom dépend du nom da la feuille vous fairiez comme dans mon exemple:
Les feuilles dont le nom et Titi#### sont zoomées sur la plage A1 vers Q15
Les feuilles dont le nom et Tata#### sont zoomées sur la plage A1 vers Q100

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim i As Integer
Application.ScreenUpdating = False 'Ceci Arrête l'actualisation de l'affichage
For i = 1 To ThisWorkbook.Sheets.Count 'Une variable dont la valeur est entre 1 et le nombre de feuilles qui existent dans votre classeur
Sheets(i).Activate 'Active les feuilles du classeur
With ActiveSheet 'Un Bloc With qui applique le zoom sur toutes les feuilles dés qu'elles sont activées.
 If .Name Like "Titi####" Then
.Range("A1:Q15").Select 'Séléctionne une plage de cellules ici Exemple de A1 jusqu'à Q15
ActiveWindow.Zoom = True 'Applique le zoom dont le nom et Titi.... de A1 jusqu'à Q15
ElseIf .Name Like "Tata####" Then
.Range("A1:Q100").Select 'Séléctionne une plage de cellules ici Exemple de A1 jusqu'à Q100
ActiveWindow.Zoom = True 'Applique le zoom dont le nom et Tata.... de A1 jusqu'à Q100
End If
End With
Next
Sheets(1).Activate 'Revient vers la feuille 1
Range("A1").Select 'Séléctionne la cellule A1 de la feuille 1
Application.ScreenUpdating = True 'Relance l'actualisation de l'affiichage
End Sub

Essayez avec ça, celà deverait marcher pour vous.

Bon courage

Cordialement
Karim

[Dregor]

Super !!

Je vous remercie !

J'ai juste ajouter des:

Code :

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

1
2
3
4
5
 
ElseIf .Name Like "Toto" Then
        .Range("A1:T40").Select 'Séléctionne une plage de cellules ici Exemple de A1 jusqu'à Q100
        ActiveWindow.Zoom = True 'Applique le zoom dont le nom et Tata.... de A1 jusqu'à Q100
        .Range("A1").Select

pour chacune de mes pages et les ".range ("A1").Select " pour que quand on va sur les pages il n'y est pas la sélection du zoom d'affiché !

Votre solution est exactement ce que je recherchais !

Merci beaucoup