Discussion :

[Alo_Alo67]

Bonsoir à tous, malgré mes efforts en recherchant un peu partout et mes faibles connaissances en matière de vb, je cherche à réalisé ceci:

pour exemple, dans mon classeur excel, j'ai une feuille "souche" dans laquelle j'ai intégré un bouton permettant l'impression de plusieurs feuilles (onglets) se trouvant dans ce même classeur.
Dans cette feuille "souche", j'entre des données dans un formulaire, qui apparaitront sur certaines feuilles.
Mon souci est que je ne rempli pas toujours mon formulaire dans sa globalité et donc je n'ai pas besoin d'imprimer certaines feuilles distantes.
En gros voici le code de la macro affectée à mon bouton me permettant d'imprimer les feuilles, après avoir renseigné mon formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub imprimer_Midi()
'
' imprimer Macro
' Macro enregistrée
'
Worksheets("A_Repas_Houblon_MIDI").PrintOut
Worksheets("A_Repas_Wiss").PrintOut
Worksheets("Liaison T° HOUBLON_MIDI").PrintOut
Worksheets("Liaison T° WISS").PrintOut
Worksheets("Liaison T° EMMAUS_MIDI").PrintOut
Worksheets("A_Repas_Hag").PrintOut
 
End Sub

Du genre j'aimerais faire

Code :

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

Worksheets("A_Repas_Hag").PrintOut

que si "cellule" "E5" est remplie sur "souche" ...

Si quelqu'un a réussi à me suivre et à me comprendre, je veux bien de l'aide .
Merci beaucoup.

[Theze]

Bonsoir,

Teste ce qui suit après avoir adapter les adresses de celulles :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Sub imprimer_Midi()
 
    'à adapter les adresses de cellules :
 
    With Worksheets("Souche")
 
        If .Range("E1") <> "" Then
 
            Worksheets("A_Repas_Houblon_MIDI").PrintOut
 
        End If
 
        If .Range("E2") <> "" Then
 
            Worksheets("A_Repas_Wiss").PrintOut
 
        End If
 
        If .Range("E3") <> "" Then
 
            Worksheets("Liaison T° HOUBLON_MIDI").PrintOut
 
        End If
 
        If .Range("E4") <> "" Then
 
            Worksheets("Liaison T° WISS").PrintOut
 
        End If
 
        If .Range("E5") <> "" Then
 
            Worksheets("Liaison T° EMMAUS_MIDI").PrintOut
 
        End If
 
        If .Range("E6") <> "" Then
 
            Worksheets("A_Repas_Hag").PrintOut
 
        End If
 
    End With
 
End Sub

Hervé.

[Alo_Alo67]

Merci Hervé, ça fonctionne nickel !!