impression par VBA Résolu

Question

Bonjour,
J'ai un tableau que je remplis tous les jours. Une fois par semaine, j'ai besoin d'imprimer les dix dernières lignes qui ont été saisies, et j'aimerais savoir s'il est possible de le faire à l'aide d'une macro, l'impression concerne les colonnes de B à I. Je joins un fichier pour exemple.
Merci de prendre le temps de vous intéresser à mon problème.
http://www.cjoint.com/data3/EKlrqW6ys8L_essai.xlsx

Maurice · Answer

Bonjour
Voila une macro pour les 10 dernière ligne

Sub Macro1()
   Nlig = Range("B" & Rows.Count).End(xlUp).Row
   ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
   ActiveSheet.PageSetup.PrintArea = "$B$" & Nlig - 9 & ":$I$" & Nlig
End Sub

A+
Maurice

ccm81 · Answer

Bonjour

Const NF = "Feuil1"
Const codeb = "B"
Const cofin = "I"
Const nbli = 10

Sub Imprime()
Dim plage As String, lifin As Long
With Sheets(NF)
    lifin = .Range(codeb & Rows.Count).End(xlUp).Row
    plage = codeb & lifin - nbli + 1 & ":" & cofin & lifin
    .PageSetup.PrintArea = plage
    .PrintOut
End With
End Sub
Cdlmnt

Bourrique66 · Answer

Trop fort ça marche nickel du premier coup

Impression par VBA

3 réponses

Discussions similaires

Newsletters