bon un petit truc avec la selection par clic droit
en numero 1 dans le code de la feuille
1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Range("z1").Value = "" Then
Range("z1").Value = ActiveCell.Row
Range("z2").Value = ActiveCell.Column
Else
Range("z3").Value = ActiveCell.Row
Range("z4").Value = ActiveCell.Column
Range("AA1").Value = "=ADDRESS(RC[-1],R[1]C[-1]) & "":"" & ADDRESS(R[2]C[-1],R[3]C[-1])"
imprim
End If
End Sub |
et dans un module tu recuperes la plage
1 2 3 4 5
| Sub imprim()
plage = Range("aa1").Value
ActiveSheet.PageSetup.PrintArea = plage
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub |
pour l'impression je te laisses mettre les paramètres de zoom et de format
je me sers de la feuille pour stocker les données de zone et creer le nom de la plage , tu les colles ou tu as de la place dans la feuille ( même en IT1-2-3-4 avec plage en IV1)
Partager