Zone impression via sélection cellules

Bonjour,

Je souhaite pouvoir imprimer via une sélection de cellules diverses.

Exemple : Je sélectionne "E18:L50" cela devient ma zone d'impression et imprime, ensuite je sélectionne "E70:L101" cela devient ma zone d'impression et imprime.

Merci.

j'ai un code qui sélectionne bien ma sélection mais n'imprime pas

Sub plagesurbrillanceimpression ()

Dim s As String

s = Selection.Address

ActiveSheet.PageSetup.PrintArea = sEnd Sub

Bonjour,

Il est possible de personnaliser la barre d'accès rapide et d'y ajouter les commandes :

- définir une zone d'impression

- impression rapide

Vous faites en 2 clics ce que vous souhaitez sur tous vos fichiers.

Sinon, il faut peut-être revoir la conception du fichier pour imprimer directement sans avoir à changer la zone d'impression.

Cdlt,

bonjour,

avec ceci dans le module de la feuille, on selectionne une plage et puis on clicque droit, avec printpreview = sur l'ecran, avec printout = sur papier

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     Selection.PrintPreview
     'Selection.PrintOut
End Sub