Problème variable dans mise en page

Bonjour à tous,

Je souhaiterais pouvoir réajuster un ensemble de page via une macro afin de "figer" cette mise en page.

Comme je n'y connais pas grand chose sur la mise en page en macro, j'ai lancer l'enregistrement automatique pour un test et il ma donner le résultat suivant :

ActiveWindow.View = xlPageBreakPreview

Set Activesheet.HPageBreaks(9).Location = Range("A546") '20

ActiveWindow.View = xlPageBreakPreview

Mais ce programme marche pour une seule page ne particulier, pour ma part il y en a 156 (et qui peuvent varier) alors j'ai essayer de l'adapter avec des variables :

Dim a&, a2&, b&, j&, j2&

Dim Activesheet As Worksheet

(le code)

ActiveWindow.View = xlPageBreakPreview

Set Activesheet.HPageBreaks(a).Location = Range(Cells(j - 2, 1))

ActiveWindow.View = xlNormalView

Seulement il m'affiche l'erreur suivante :

Erreur d'exécution '91':

Je vois plus quoi définir et comment, si quelqu'un à une solution

Cordialement

Salut Rls !

Salut le Forum !

Alors pour appliquer la même mise en page à toute tes feuilles, tu peux procéder ainsi :

Déclare ta variable Nombre_de_Feuille pour compter le nombre de feuille présente dans ton classeur Excel

Déclare une variable qui va partir de 1 jusqu'à aller à ta variable Nombre_de_feuille

Créer une boucle

Met ton code

Et voilà !

En gros sa donne sa :p

Sub Misenpage()
Dim x As Long, a As Long
x = Worksheets.Count                'mon nbr de feuille dans le classeur
For a = 1 To x                      'je boucle pour aller de 1 à mon nbr de feuille
    Sheets(a).Select                'je vais sur la feuille en cours
    'ici tu met ton code
Next                                'tu passe à la feuille suivante
End Sub

Restant à ta dispo !

bonjour

salut Juice

quand on veut imprimer des feuilles "identiques", c'est qu'au départ on a fait une erreur de conception*

il faut mettre toutes les données identiques sur un unique onglet

tout est si simple ensuite (tris, filtres, TCD, calculs, impressions.... )

parce que c'est de l'informatique de données, par opposition à la copie de ce qu'on faisait il y a 30 ans sur des feuilles de papier avec un crayon.

* du genre un onglet par client

un onglet par mois (ou par année)

un onglet par classe (ou par élève)

un onglet achats et un autre onglet dépenses

etc.

pas besoin de VBA.

bonne journée à tous