libellule85
XLDnaute Accro
Bonjour le forum,
Actuellement j'utilise la macro suivante pour imprimer les x dernières lignes d'un tableau variable :
J'aimerais, si cela est possible, avoir la même chose mais pour les x premières lignes.
D'avance merci pour votre aide,
Actuellement j'utilise la macro suivante pour imprimer les x dernières lignes d'un tableau variable :
Code:
Sub Imprime_X_Lignes()
Dim DerL&, Plage As Range, X&
DerL = Cells(Rows.Count, 1).End(xlUp).Row
X = InputBox("Choisir la valeur", " X Dernières Lignes", 10)
If X > DerL Then
MsgBox "Le nombre de lignes demandé est supérieur au nombre de lignes", vbCritical, "Oups !!!"
Exit Sub
End If
Set Plage = Range("A" & DerL - (X - 1)).Resize(X, 5)
ActiveSheet.PageSetup.PrintArea = Plage.Address
ActiveWindow.SelectedSheets.PrintPreview
End SubJ'aimerais, si cela est possible, avoir la même chose mais pour les x premières lignes.
D'avance merci pour votre aide,