Impression selon le mois

Agrosbety Grosbety 20 Points de réputation
2026-04-15T17:06:34.2133333+00:00

Bonjour,

Je voudrais savoir comment faire pour imprimer 1 page excel en fonction du nombre de jours par mois et cela bien évidemment automatiquement avec un bouton.

Comment faire?

Merci pour vos retours.

Cordialement.

Aurélien

Microsoft 365 et Office | Excel | Pour la maison | Windows
0 commentaires
Réponse acceptée par l’auteur(e) de la question
Hecatonchire 53,950 Points de réputation Modérateur bénévole
2026-04-15T18:23:30.21+00:00

Une solution

Sub ImprimerSelonMois()
    Dim strMois     As String
    Dim intNbJours  As Integer
    Dim intAnnee    As Integer
    
    strMois = Trim(ActiveSheet.Range("A1").Value)
    intAnnee = Year(Date) ' Année en cours
    Select Case LCase(strMois)
        Case "janvier": intNbJours = 31
        Case "février": intNbJours = IIf((intAnnee Mod 4 = 0 And intAnnee Mod 100 <> 0) Or (intAnnee Mod 400 = 0), 29, 28)
        Case "mars": intNbJours = 31
        Case "avril": intNbJours = 30
        Case "mai": intNbJours = 31
        Case "juin": intNbJours = 30
        Case "juillet": intNbJours = 31
        Case "août": intNbJours = 31
        Case "septembre": intNbJours = 30
        Case "octobre": intNbJours = 31
        Case "novembre": intNbJours = 30
        Case "décembre": intNbJours = 31
        Case Else
            MsgBox "Le mois indiqué en A1 n'est pas reconnu.", vbExclamation
            Exit Sub
    End Select
    ActiveSheet.PrintOut Copies:=intNbJours
End Sub

Cette réponse vous a-t-elle été utile?

3 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Plus récent Plus ancien
  1. Hecatonchire 53,950 Points de réputation Modérateur bénévole
    2026-04-15T17:13:22.29+00:00

    Bonjour,

    Donnes plus d'informations :

    • "1 page excel" => Tu veux dire un onglet ?
    • "avec un bouton" => Placé dans l'onglet à imprimer ? Donc 12 boutons ?
    • Si 1 bouton unique : comment sélectionner l'onglet à imprimer ?
    • "fonction du nombre de jours par mois" => le mois ou l'on active le bouton ou le mois est indiqué quelque part ?

    Cette réponse vous a-t-elle été utile?

    1 personne a trouvé cette réponse utile.
    0 commentaires
  2. GROSBETY Aurelien 0 Points de réputation
    2026-07-17T16:56:17.39+00:00

    Merci pour les réponses cela fonctionne au top

    Cette réponse vous a-t-elle été utile?

    0 commentaires
  3. Agrosbety Grosbety 20 Points de réputation
    2026-04-15T17:55:34.1433333+00:00

    Voici le modèle

    Le mois est sous forme de liste déroulante.

    Si je choisi janvier il va falloir qu'en appuyant sur le bouton, il y ai 31 feuilles qui s'imprimeImage de l’utilisateur

    Cette réponse vous a-t-elle été utile?

    0 commentaires

Votre réponse

Les réponses peuvent être marquées comme « Acceptées » par l’auteur(e) de la question et « Recommandées » par les modérateurs, ce qui aide les utilisateurs à savoir que la réponse a résolu le problème de l’auteur(e).