Impression de plusieurs plages de cellules sous le même onglet

Bonsoir cher forum

Débutant en VBA, je viens avec un sujet un peu complexe

Le but serait à partir d'une liste déroulante (ou autre méthode (bouton, etc.) afficher un aperçu avant impression d'une ou plusieurs plages de cellules si c'est possible sous le même onglet

J'ai réussi à appliquer mon travail sur une plage de cellules

Mais pas sur plusieurs. J'avais une partie de réponse, ça a marché, j'ai voulu dupliquer.. Pouf, plus rien

Merci encore pour votre aide !

Voici le fichier pour info

Belle soirée

Salut,

Cette macro devrait répondre à ton attente :

Sub Impression_Feuille()

    If Range("E6") = "Document 1" Then
        ActiveSheet.PageSetup.PrintArea = "A10:R49"
    ElseIf Range("E6") = "Document 2" Then
        ActiveSheet.PageSetup.PrintArea = "V60:BH130"
    Else
        ActiveSheet.PageSetup.PrintArea = "A10:R49 , V60:BH130"
    End If

   Sheets("Feuil1").PrintPreview

End Sub

Bonne journée.

Bonjour Yvouille,

Merci pour ton aide, ton code marche bien lorsque je l'exécute depuis VBA

Est-il possible que lorsque nous sélectionnons un choix à partir de la liste déroulante, le code puisse me donner directement l'aperçu avant impression ?

Par la même occasion, est-il également possible d'ajouter le paramétrage d'impression contenu dans la feuille 1 du code VBA ?

Merci encore pour ton retour

Belle journée

Pour déclencher le code lors de la modification de la cellule E6, tu dois placer tes instructions dans une macro événementielle sur le code de la feuille. Voici cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address <> "$E$6" Then Exit Sub  'Liste déroulante

    If Range("E6") = "Document 1" Then
        ActiveSheet.PageSetup.PrintArea = "A10:R49"
    ElseIf Range("E6") = "Document 2" Then
        ActiveSheet.PageSetup.PrintArea = "V60:BH130"
    Else
        ActiveSheet.PageSetup.PrintArea = "A10:R49 , V60:BH130"
    End If

   Sheets("Feuil1").PrintPreview
End Sub

et un fichier démo :

Pour le paramétrage, je ne suis pas trop au courant. Ouvre un autre sujet pour ce problème.

Merci beaucoup, en effet, ça marche très bien !!

D'accord, j'ai réussi à paramétrer pour chaque document mais j'ai décidément du mal avec deux voir plus..

Je vais créer un nouveau post

Belle journée Yvouille et au plaisir