Mise en page d'un fichier excel

Bonjour
J'ai un fichier excel sur plusieurs pages. (total 115 lignes)

Ce fichier comprend 3 case à cocher correspond à 3 activités (activité 1 - activité 2 - activité 3). L'utilisateur doit choisir une de ces cases à cocher.
Pour chaque activité, un certain nombre de ligne est dédié.
Par exemple, activité 1 , ligne 10 à 20
activité 2 , ligne 30 à 50
activité 3 , ligne 70 à 80.

A l'heure actuelle, l'ensemble de ces lignes est imprimer (8 pages au total).
Je souhaiterais que seules les lignes liés à l'activité choisi soit imprimer.

J'ai tenté de masquer les lignes qui n'étaient pas concerné par l'activité choisie. Résultat : les lignes n'apparaissent plus mais le nombre de page est toujours de 8. (pb de mise en page du document je suppose).
Comment faire ? merci par avance

Bonjour,

Une proposition avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub EssaiImpression()   ImpressionDesPlages "Activité 1"   End Sub     Sub ImpressionDesPlages(ByVal NomDeLActivite As String)   With Sheets("Feuil1") ' A adapter Select Case NomDeLActivite Case "Activité 1" .Range("Activite1").PrintOut '<-- Lignes 10 à 20 Case "Activité 2" .Range("Activite2").PrintOut Case "Activité 3" .Range("Activite3").PrintOut End Select End With   End Sub

---

Il vous faut nommer vos zones, ou mettre simplement vos références dans .Range("A10:F20") par exemple.

Cordialement.