Discussion :

[NEC14]

Bonjour à tous,

J'ai 63 feuilles de calcul dans un classeur, leur nom comme soit par EP soit par MAT.

Je souhaiterai automatiser la même zone d'impression pour les 63 feuilles, c'est-à-dire de la cellule A1 à N44.

Sinon, je suis obligé de le faire pour chaque feuille, une par une

Pouvez-vous m'aider ?
Merci par avance

[DeaD78]

Salut,

Code :

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

1
2
3
4
Dim ws As Worksheet
For Each ws In Worksheets
    ActiveSheet.PageSetup.PrintArea = "$A$1:$N$44"
Next

A+

[NEC14]

Merci pour ta réponse, mais seules les feuilles commençant par EP ou MAT sont concernées par cette mise en page, pas les autres feuilles.
J'aurai du le préciser, toutes mes excuses

[Krovax]

Dans ce cas il suffit de faire un petit test sur les noms (si tu parle bien des nom sinon il suffit de modifier le teste )

Code :

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

1
2
3
4
5
6
Dim ws As Worksheet
For Each ws In Worksheets
    if left(ws.name,2)="EP" or left(ws.name,3)="MAT" then
         ActiveSheet.PageSetup.PrintArea = "$A$1:$N$44"
    end if
Next ws

[aalex_38]

qulque chose comme ça :

Code :

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

1
2
3
4
5
6
Dim ws As Worksheet
For Each ws In Worksheets
    If UCase(Mid$(ws.Name, 1, 2)) = "EP" Or UCase(Mid$(ws.Name, 1, 3)) = "MAT" Then
        ActiveSheet.PageSetup.PrintArea = "$A$1:$N$44"
    End If
Next

Edit : Salut Krovax, Left c'est bien aussi, je n'y pense jamais.

[DeaD78]

Salut à tous !

Cette fois-ci j'ai rafraîchi et je poste pour le dire !

Le Left est quand même plus simple dans ce cas. Je préfère

[aalex_38]

Re,

En utilisant Left et quelque soit la casse des onglets (ça Nec c'est à toi de voir) :

Code :

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

1
2
3
4
5
6
Dim ws As Worksheet
For Each ws In Worksheets
    If UCase(Left$(ws.Name, 2)) = "EP" Or UCase(Left$(ws.Name, 3)) = "MAT" Then
         ActiveSheet.PageSetup.PrintArea = "$A$1:$N$44"
    End If
Next ws

Edit :

Merci Krovax ça marche, merci aalex ton idée rejoint celle de Krovax

et pourtant je jure que je n'ai pas copié !

[NEC14]

Merci Krovax ça marche, merci aalex ton idée rejoint celle de Krovax