Impression des feuilles suivant case dans tableau renseignée
Résolu
christophedir
Messages postés
201
Statut
Membre
-
christophedir Messages postés 201 Statut Membre -
christophedir Messages postés 201 Statut Membre -
Bonjour,
Je voudrais faire des impression de feuilles suivant mes besoins. J'aurrai donc besoin d'une macro, si la colonne D dans la feuille sommaire est renseignée alors faire l'impression de la feuille
Dans le fichier ci-joint, regardez dans l'onglet"sommaire" infos sur les zones a imprimer par feuille
PS : j'ai oublié de mettre un bouton pour lancer l'impression
https://www.cjoint.com/c/GDApywsqnP2
Cordialement
Je voudrais faire des impression de feuilles suivant mes besoins. J'aurrai donc besoin d'une macro, si la colonne D dans la feuille sommaire est renseignée alors faire l'impression de la feuille
Dans le fichier ci-joint, regardez dans l'onglet"sommaire" infos sur les zones a imprimer par feuille
PS : j'ai oublié de mettre un bouton pour lancer l'impression
https://www.cjoint.com/c/GDApywsqnP2
Cordialement
A voir également:
- Impression des feuilles suivant case dans tableau renseignée
- Spouleur d'impression - Guide
- Tableau word - Guide
- Trier un tableau excel - Guide
- Suivi des modifications word - Guide
- Comment faire un livret avec des feuilles a4 - Guide
17 réponses
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
J'ai chanfge en mettant "xlsm" a la fin du fichier et cela semble marcher
je vous tien au courant
merci à vous
je vous tien au courant
merci à vous
re
il y a trop de feuilles imprimées , je ne trouve pas dans la macro la sélection des zones a imprimer par onglet
il y a trop de feuilles imprimées , je ne trouve pas dans la macro la sélection des zones a imprimer par onglet
Re,
J'ai chanfge en mettant "xlsm"
C'etait deja un fichier xlsm !!!!!!!!!!!!!!!!!!!
Y a huit feuilles maxi imprimees et les zones d'impression sont celles definies dans la feuille sommaire, je regarde car en effet y a un bleme
La "macro" se trouve dans le module1
suite:
code modifie pour parametrage zone d'impression
J'ai chanfge en mettant "xlsm"
C'etait deja un fichier xlsm !!!!!!!!!!!!!!!!!!!
Y a huit feuilles maxi imprimees et les zones d'impression sont celles definies dans la feuille sommaire, je regarde car en effet y a un bleme
La "macro" se trouve dans le module1
suite:
code modifie pour parametrage zone d'impression
Sub Impression_Inventaires()
With Worksheets("Sommaire")
Nb_Imp = Application.CountIf(.Range("D9:D16"), "X")
If Nb_Imp > 0 Then
MsgBox Nb_Imp & " feuille(s) a imprimmer"
For n = 9 To 16
If UCase(.Cells(n, 4)) = "X" Then 'impression selectionnee
wsh = .Cells(n + 12, 2) 'nom de feuille a imprimmer
Zprt = .Cells(n + 12, 3) 'zone d'impression
With Worksheets(wsh)
.PageSetup.PrintArea = Zprt
.PrintOut 'lance impression
End With
End If
Next n
Else
MsgBox "Pas d'impression programmée!"
End If
.Activate
End With
End Sub
désole je ne vois pas ???
J'ai juste enlevé les commentaires que j'avais mis et arrangé la mise en forme en faisant attention de ne pas décaler de cellule
J'ai juste enlevé les commentaires que j'avais mis et arrangé la mise en forme en faisant attention de ne pas décaler de cellule
Re,
Ah Bon, a droite le fichier que je vous ai modifie et a gauche celui que vous venez de mettre a dispo
Ah Bon, a droite le fichier que je vous ai modifie et a gauche celui que vous venez de mettre a dispo
re
je vais continué à le tester.
Si je ne rencontre pas de problème jusqu"à samedi nuit je clôturerai la discussion.
je vais continué à le tester.
Si je ne rencontre pas de problème jusqu"à samedi nuit je clôturerai la discussion.
Bonjour,
Une autre solution pour ne pas avoir ces cellules de parametrage, utilisez deux Tableaux avec le contenu de ces cellules,
ex:
Une autre solution pour ne pas avoir ces cellules de parametrage, utilisez deux Tableaux avec le contenu de ces cellules,
ex:
Sub Impression_Inventaires_1()
Dim TFeuille, TZoneImp, Nb_Imp As Integer, NF As Integer, n As Integer
TFeuille = Array("Zone Process & ligne 4", "Zone APV L1", "Vortex et Pamoma" & _
"Zone Cermex L1", "Zone APV L2", "Zone Vortex L2", "Zone Cermex L2" & _
"Zone SKA L1&L2")
TZoneImp = Array("A1:I14", "A1:I10", "A1:I10", "A1:I10", "A1:I10", "A1:I10", "A1:I17", "A1:I17")
With Worksheets("Sommaire")
Nb_Imp = Application.CountIf(.Range("D9:D16"), "X")
If Nb_Imp > 0 Then
MsgBox Nb_Imp & " feuille(s) a imprimmer"
NF = 0
For n = 9 To 16
If UCase(.Cells(n, 4)) = "X" Then 'impression selectionnee
With Worksheets(TFeuille(NF))
.PageSetup.PrintArea = TZoneImp(NF) 'Zone d'impression
.PrintOut 'lance impression
End With
End If
NF = NF + 1
Next n
Else
MsgBox "Pas d'impression programmée!"
End If
.Activate
End With
End Sub
