Imprimer x premieres lignes d'un tableau

[libellule85]

Bonjour le forum,

Actuellement j'utilise la macro suivante pour imprimer les x dernières lignes d'un tableau variable :

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 Sub

J'aimerais, si cela est possible, avoir la même chose mais pour les x premières lignes.
D'avance merci pour votre aide,

 

[job75]

Re : Imprimer x premieres lignes d'un tableau

Bonjour libellule85,

Set Plage = Range("A1:E" & X)

A+

 

[job75]

Re : Imprimer x premieres lignes d'un tableau

Re,

Bien sûr on peut se passer de la variable Plage et écrire directement :

ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & X

A+

 

[libellule85]

Re : Imprimer x premieres lignes d'un tableau

Bonjour Job75,

Merci pour ta réponse, cela fonctionne impeccablement.
Bonne journée

 

[libellule85]

Re : Imprimer x premieres lignes d'un tableau

Re,

Quand je met par exemple 10 lignes (cela me compte mon en-tête qui est de 3 lignes de a1 à d3) en fait cela m'affiche que 7 lignes de résultat + en-tête.
Pour avoir dix premières lignes de résultat il faut que je mette 13 dans l'imputbox qui s'affiche à l'écran (14 pour 11 premières lignes etc... pour 20 il faut que je mette 23).

 

[job75]

Re : Imprimer x premieres lignes d'un tableau

Re,

Je ne me souviens plus dans quelle classe on apprend les additions et les soustractions 😕

A+

 

[libellule85]

Re : Imprimer x premieres lignes d'un tableau

Re,

J'ai trouvé tout seul la solution à mon problème en modifiant la ligne "Set Plage = Range("A" & DerL - (X - 1)).Resize(X, 5)" !!!
Bonne soirée

 

[Staple1600]

Re : Imprimer x premieres lignes d'un tableau

Bonsoir à tous

libellule85
Était-ce vraiment utile d'avoir deux fils pour cela , 😉
(un pour les dernières et l'autre pour les premières)
http://www.excel-downloads.com/forum/210454-impression-des-10-dernieres-lignes-dune-zone-variable.html

EDITION: J'avais oublié https://www.excel-downloads.com/thr...0-dernieres-lignes-dune-zone-variable.210454/ce troisième
( crosspost quand tu nous tiens ... 🙄)