Discussion :

[maxval18]

Bonjour

J'ai une question a poser. Est il possible de définir une zone d'impression en fonction du nombre de ligne.

Je m'explique: j'ai un classeur et suivant les concours il y a de 50 à 250 adhérents et a chaque fois que je doit imprimer je doit définir une zone d'impression. Y a t-il en VBA un code qui permette de définir la zone d'impression suivant le nombre de ligne a imprimer?

Je vous remercie de votre aide
Cordialement
Max

[bifconsult]

Bonjour,

Pour faire simple, il suffit d'enregistrer un macro lorsque vous définissez la zone d'impression.

Ensuite, paramétrez-là en fonction de la dernière ligne que vous voulez imprimer.

Cette ligne de code renvoie la dernière ligne d'une colonne donnée:

Code :

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

1
2
Last_row = Cells(Cells.Rows.Count, X).End(xlUp).Row
'X = le numéro de colonne où se trouve la liste des participants

[maxval18]

Bonjour Bifconsult

Je vous remercie mais soit j'ai pas suivie la consigne ou alors je ne comprend pas j'ai fait ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro2()
'
' Macro2 Macro
'
 
'
    ActiveWindow.SmallScroll Down:=-78
    Range("A1:G105").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$105"
    Range("I3").Select
 
    Last_row = Cells(Cells.Rows.Count, C).End(xlUp).Row
'C = le numéro de colonne où se trouve la liste des participants
End Sub

Et sa ne fonctionne pas message d'erreur " erreur definie par l'application ou par l'objet"

Cordialement

Max

[aalex_38]

Bonsoir,

Il existe de nombreux exemples sur le net, un ici

[bifconsult]

Si la visite sur les exempes n'avait pas suffit:

Il faut mettre la ligne "last_row" en début de code.
Ensuite, la ligne

Code :

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

ActiveSheet.PageSetup.PrintArea = "$A$1:$G$105"

Devient

Code :

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

ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & last_row