En VBA définir une zone d'impression

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

Code:

---

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

---

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:

---

1 2 3

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

---

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

Code:

---

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

---

Re,

A oui maintenant Nickel..!

Merci beaucoup et bonne soirée

@+

Max