Discussion :

[wyzer]

Bonjour,

Comme vous pourrez le voir sur mon fichier, ma trrame est découpé en plusieurs pages

Les données proviennent d'une extraction, puis sont insérer sur cette trame grâce à une macro

Le soucis c'est qu'à chaque fois je dois spécifier manuellement ma zone d'impression, car à cause de ma trame, je ne sais pas comment faire en VBA

Pourriez-vous m'aidez svp

Merci par avance

Voici une capture d'écran pour ceux qui ne peuvent pas ouvrir le fichier

[tedo01]

Bonjour,
Je n'apporte pas la réponse mais je pose plutôt une question : pourquoi ne pas laisser Excel faire la mise en page ? Cela permettrait de n'avoir que les lignes pertinentes, et pas les quelques 30.000 lignes inutiles, et du coup plus besoin de définir de zone d'impression

[Fvandermeulen]

Salut,

Voici une méthode, il y a peut-être plus propre mais ça fonctionne.
L'avantage avec la boucle et la "redéfinition" de la zone d'impression c'est qu'il ne faut pas la vidée.

En espérant que mes commentaires soient explicites...

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
Sub SetPrint()
Dim MaRech As Range
 
With ActiveSheet.Range(Cells(2, 6), Cells(Columns(1).Cells.Count, 6)) 'Défini la plage de recherche hors ligne 1
    Set MaRech = .Find("PAGE", LookIn:=xlValues, lookat:=xlPart) 'Trouve le mot PAGE (pour déterminer début et fin de page)
 
    If Not MaRech Is Nothing Then
        firstAddress = MaRech.Address 'Permet de pas boucler sans fin
        Do
            If Application.Count(ActiveSheet.Range(Cells((MaRech.Row) - 58, 6), Cells(MaRech.Row, 6))) > 1 Then 'Vérifie si il y des données pour la page en cours
                ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & MaRech.Row - 1 'Défini la plage d'impression
            Else
                Exit Sub 'Sors de la procédure si rien sur la page en question
            End If
            Set MaRech = .FindNext(MaRech) 'Passe au mot Page suivant
        Loop While Not MaRech Is Nothing And MaRech.Address <> firstAddress 'Permet la boucle
    End If
End With
 
End Sub

[wyzer]

Re

(je précise que toute mes demande concerne le même fichier )


Je viens d'esayer mais ça ne fonctionne pas

[Fvandermeulen]

...Je viens d'esayer mais ça ne fonctionne pas

Qu'est ce qui ne fonctionne pas ?
Bug (si oui quelle ligne), mise en page incorrecte,... ?

J'ai testé chez moi et c'était nickel, donc faut m'endire plus...

A+

[wyzer]

Désolé, en fait je n'ai pas message d'erreur, la macro se lance bien, mais une fois que je vérifie ma zone d'impression, elle n'a pas bougé

j'ai un peu compris ton code, et on pourrait aussi faire un truc du ce genre :

- on commence par le bas, et on cherche le dernier mot "PAGE"

- puis on regarde si entre ce dernier mot "PAGE" et le mot "MATRICULE" de la même colonne juste au dessus s'il n'y a rien

- s'il n'y a rien on remonte vers le mot "PAGE" suivant, etc...

- s'il y a des des données, alors on défini un truc comme ça :

Code :

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

1
2
 
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & Dernier_mot_PAGE_vérifié.Row - 1

Non ?

[Fvandermeulen]

C'est en effet une autre option, c'est dans la veine de ce que j'ai fait.

As tu essayé mon code en pas à pas pour "voir" ce qui ne va pas, car même si tu trouve une solution tout seul (ce qui est très bien ) j'aimerais comprendre pourquoi ça ne fonctionne pas chez toi.

A+