Bouton imprimer

Bonjour,

Vous pourriez utilisez l'évenement double clic sur une cellule pour déclencher l'impression (ceci éviterait l'ajout d'un bouton )

Pour les contraintes nous ne connaissons pas la plage de votre impression ( nombre de colonnes )

L'idée serait de faire une macro :

1) On efface toutes les zones d'impression

2) On sélection la plage trouvée suite au double clic et on ajoute une nouvelle zones d'impression. puis on lance.

Macro à insérer dans le worksheet de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'on garde en mémoire le numéro de ligne actuel
maplage = ActiveCell.Row

'On supprime toutes les zones d'impression précédentes
    Cells.Select
    ActiveSheet.PageSetup.PrintArea = ""

'On Créer la nouvelle zone d'impression sur la ligne du double clic
'Nota dans l'exemple s'arrête à la colonne G ( a adapter à votre besoin ) 
    ActiveSheet.PageSetup.PrintArea = "$A$" & maplage & ":$G$" & maplage

'On imprime
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Range("A" & maplage).Select
End Sub

Salut,

Merci beaucoup pour votre réponse. La macro marche bien mais j'aimerai encore juste une condition en plus.

J'aimerai que lors de l'impression de n'importe quelles lignes que l'en-tête soit toujours la ligne 1 et 2.

Est ce que cela est possible ?

Merci d'avance

Re bonjour, il suffit de le paramètrer dans votre mise en page

Onglet Mise en page / imprimer les titres puis dans la Zone LIgnes à répéter en Haut vous selectionnez votre ligne 1

Vous aurez ainsi votre ligne 1 + n'importe quelle ligne de la macro

Bonjour,

Parfait ça fonctionne parfaitement.

Merci de votre aide pour ce sujet.

A bientôt