Discussion :

[fmris]

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

[Invité]

Bonjour,

Une proposition avec ce code :

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
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.