Microsoft 365 Macro impression journée aujourd hui

Moreno076

XLDnaute Impliqué
Bonsoir le forum,

Dans ce tableau je souhaiterais affecter une macro me permettant automatiquement d'imprimer les cellules A1..AE7 quelque soit la journée, suivi de la date du jour située en colonne B103..AE111 pour l exemple de samedi.

Merci à vous.
 

Pièces jointes

  • EFFECTIF LOG Marcel32 save.xlsm
    110.3 KB · Affichages: 5
Solution
Non, si l'on veut du VBA on affectera cette macro au bouton :
VB:
Sub Imprimer()
Dim i&
With Feuil1 'CodeName
    For i = 8 To 111
        If .Cells(i, 2) = Date Then
            .PageSetup.PrintArea = .Cells(i, 2).Resize(19, 30).Address
            .PrintPreview 'pour tester
            '.PrintOut 'pour imprimer
            Exit For
        End If
    Next
End With
End Sub

job75

XLDnaute Barbatruc
Bonjour Moreno076, le forum,

Définissez le nom Zone_d_impression par :
VB:
=DECALER(Activité!$B$7;EQUIV(AUJOURDHUI();Activité!$B$8:$B$111;0);;19;30)
Mise en page => Imprimer les titres pour les lignes $1:$7.

A+
 

Pièces jointes

  • EFFECTIF LOG Marcel32 save.xlsm
    109.8 KB · Affichages: 3

Moreno076

XLDnaute Impliqué
Bonjour Job75.

J'ai fait ça comme ça ?

Sub Impression()

Application.ScreenUpdating = False
With ActiveSheet
.PageSetup.PrintArea = DECALER(Activité!$B$7;EQUIV(AUJOURDHUI();Activité!$B$8:$B$111;0);;19;30)
.PrintOut
.DisplayAutomaticPageBreaks = False
End With
End Sub

Merci
 

Moreno076

XLDnaute Impliqué
Comme ça?

1583574315514.png
 

job75

XLDnaute Barbatruc
Non, si l'on veut du VBA on affectera cette macro au bouton :
VB:
Sub Imprimer()
Dim i&
With Feuil1 'CodeName
    For i = 8 To 111
        If .Cells(i, 2) = Date Then
            .PageSetup.PrintArea = .Cells(i, 2).Resize(19, 30).Address
            .PrintPreview 'pour tester
            '.PrintOut 'pour imprimer
            Exit For
        End If
    Next
End With
End Sub
 

Pièces jointes

  • EFFECTIF LOG Marcel32 save(1).xlsm
    111.7 KB · Affichages: 10

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG