rh.finances
XLDnaute Occasionnel
Bonsoir à tous les internautes amateurs de ce site convivial et très instructif !
n'étant pas un expert de VBA, je sollicite l'aide des contributeurs de XL Download sur un problème pour lequel je tourne en rond.
j'ai créé un fichier de gestion de planning qui figure en pièce jointe de ce post.
sur la ligne A271, j'ai créé 1 bouton "impression planning février" avec une macro
Cette macro a pour but de lancer une impression sur une seule page de chacun des mois du planning.
Pour ce faire, j'ai créé un nom "planning_février" qui regroupe les trois plages suivantes :
a titre d'information, ma macro est la suivante :
d'avance, merci à vous tou(te)s pour votre aide sur cette problématique que je n'ai pas réussi à résoudre malgré la consultation de plusieurs sites.
Alex
n'étant pas un expert de VBA, je sollicite l'aide des contributeurs de XL Download sur un problème pour lequel je tourne en rond.
j'ai créé un fichier de gestion de planning qui figure en pièce jointe de ce post.
sur la ligne A271, j'ai créé 1 bouton "impression planning février" avec une macro
Cette macro a pour but de lancer une impression sur une seule page de chacun des mois du planning.
Pour ce faire, j'ai créé un nom "planning_février" qui regroupe les trois plages suivantes :
- $A$1:$AM$3
- $A$25:$AM$46
- $A$267:$AM$286
a titre d'information, ma macro est la suivante :
Code:
Sub Bouton1128_Cliquer()
Range("plage_annuelle").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Name = "maplage"
ActiveSheet.PageSetup.PrintArea = "plage_février"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.PaperSize = xlPaperA3
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:=True 'pour supprimer apercu avant impression, enlever "Preview:=true
End Sub
d'avance, merci à vous tou(te)s pour votre aide sur cette problématique que je n'ai pas réussi à résoudre malgré la consultation de plusieurs sites.
Alex