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

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
Sub ZoneAimprimer()
Dim LastLig As Long
 
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 3).End(xlUp).Row
    .PageSetup.PrintArea = "C3:G" & LastLig
End With
End Sub

[QuestVba]

Bonjour

Une autre solution : tu peux essayer ceci si ta liste commence toujours en c4, tu sélectionnes la zone contigue et tu printes

Code :

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

1
2
3
    Range("c4").Activate
    Selection.CurrentRegion.Select
    Selection.PrintOut Copies:=1, Collate:=True

[maxval18]

Re,

Je te remercie mais j'ai oublier de dire que sur mon classeur définitif il y a des formules dans les cellules de se faite la zone descend jusqu’à la ligne 203 alors qu'il y a des infos jusqu’à la ligne 54

@+
Max

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
Sub ZoneAimprimer()
Dim c As Range
 
With Worksheets("Feuil1")
    Set c = .Range("C:C").Find("*", LookIn:=xlValues, lookat:=xlPart, SearchDirection:=xlPrevious)
    .PageSetup.PrintArea = "C3:G" & c.Row
    Set c = Nothing
End With
End Sub

[maxval18]

Re,

A oui maintenant Nickel..!

Merci beaucoup et bonne soirée

@+

Max