Microsoft 365 Macro impression journée aujourd hui

  • Initiateur de la discussion Initiateur de la discussion Moreno076
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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
 
Comme ça?

1583574315514.png
 
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
983
Réponses
3
Affichages
1 K
Réponses
4
Affichages
960
Réponses
21
Affichages
5 K
Réponses
4
Affichages
1 K
Retour