Imprimer si différent de vide

Version imprimable

19/09/2013, 21h42
casper62110

1 pièce(s) jointe(s)

Imprimer si différent de vide

Bonjour,
voila:
---j ai une feuille intituler Fabrication:
- dans ce dernier un tableau dans la colonne A des chiffre aléatoire du style 500, 501, 658 etc qui correspondent a des codes PLU de différent produits
-dans la ligne 1 les jours de la semaine Lundi mardi mercredi, ...

---Puis j ai une feuille par produit intituler de leur code plu respectif 500, 501, 658 etc
- dans c est feuille il y a différent tableau par exemple dans la feuille 500 il y 7 tableau (les 7 jours de la semaine) tous identifier avec une zone ex ='500'!$A$311:$J$349 qui correspond ici par exemple a dimanche du produit 500 (dans la feuille 500)
='501'!$A$311:$J$349 qui correspond ici par exemple a dimanche du produit 501 (dans la feuille 501)

Ce que je souhaite c'est un bouton imprimer dans ma feuille traçabilité qui va imprimer les tableaux correspondant

---exemple le produit 500 a été fabriquer tous les jours de la semaine mais pas le mercredi et le vendredi alors il va dans la feuille 500 et imprime la zone Lundi Mardi Jeudi Vendredi Samedi et Dimanche et ceci pour tous les produits environ une centaine et je souhaite un unique bouton et non un par produit

J’espère avoir était clair, merci de m'avoir lu et un plus grand merci a ceux qui m aideront dans ma quête. :P

edit: '500'!$A$311:$J$349 qui correspond ici par exemple a dimanche du produit 500 (dans la feuille 500) est intituler Dimanche
'501'!$A$311:$J$349 qui correspond ici par exemple a dimanche du produit 501 (dans la feuille 501) est intituler dimanche etc...

par soucis de clairette j ai masquer les pages inutile
par souci de taille j ai supprimer de feuille et mis que 4 feuille produit sur la centaine merci

Bonjour à tous,
casper62110 une petite proposition de début de solution

Code:

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
Sub ImprimerLesTabl()
Dim i As Integer
Dim sh As Worksheets
Dim jr As String
'boucle sur toutes les feuilles du classeur et
'séléctionne celle dont le nom est un nombre
For Each sh In Worksheets
    If IsNumeric(sh.Name) Then
'boucle sur tout les tableau de la feuille
        For i = 1 To 7
 
            Select Case i
            Case 1
            jr = "Lundi"
            Case 2
            jr = "Mardi"
            Case 3
            jr = "Mercredi"
            Case 4
            jr = "Jeudi"
            Case 5
            jr = "Vendredi"
            Case 6
            jr = "Samedi"
            Case 7
            jr = "Dimanche"
            End Select
'si la cellule a droite de la cellule "Date" est differente de vide
'alors creation de zone d'impression et lancement de l'impresion
                If sh.Range(jr).Cells(4, 5) <> "" Then
                sh.PageSetup.PrintArea = sh.Range(jr).Address
                ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
                End If
 
        Next i
    End If
Next
End Sub

cordialement

21/09/2013, 20h41
casper62110

Merci pour votre code mais le problème c'est qu'il imprime sur la page en cour au lieu d imprimer les pages dont le nom est un nombre
:( besoin d'aide j ai beaucoup de mal avec le vba

Essaye avec ça et si c'est bon met resolu

Code:

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
Sub ImprimerLesTabl()
Dim i As Integer
'Dim sh As Worksheets
Dim jr As String
'boucle sur toutes les feuilles du classeur et
'séléctionne celle dont le nom est un nombre
For Each sh In Worksheets
    If IsNumeric(sh.Name) Then
'boucle sur tout les tableau de la feuille
 
    With sh
        For i = 1 To 7
 
            Select Case i
            Case 1
            jr = "Lundi"
            Case 2
            jr = "Mardi"
            Case 3
            jr = "Mercredi"
            Case 4
            jr = "Jeudi"
            Case 5
            jr = "Vendredi"
            Case 6
            jr = "Samedi"
            Case 7
            jr = "Dimanche"
            End Select
'si la cellule a droite de la cellule "Date" est differente de vide
'alors creation de zone d'impression et lancement de l'impresion
                If .Range(jr).Cells(4, 5) <> "" Then
                .Range(jr).PrintOut
 
               End If
 
        Next i
      End With
    End If
 
Next
End Sub

et si c'est bon met resolu
cordialement

23/09/2013, 21h40
casper62110

Merci beaucoup a spookyz:D