Imprimer j'usqua la derniere ligne renseigné

[SSIAP2]

Bonjour

j'ai une base de donnée dans la Feuil1 qui s'étend de la colonne A4 à F4

est il possible par macro d'imprimé les cellules à partir de A4 à F4 jusqu'à la dernière ligne renseigné

j'ai essayer par l'assistant macro mais sa m'imprime uniquement les lignes que j'ai sélectionné si entre temps une nouvelle ligne est inséré ce dernier n'est pas prise en compte

merci d'avance de votre aide

 

[Staple1600]

Re : Imprimer j'usqua la derniere ligne renseigné

Bonjour SSIAP2


Fais une recherche sur le forum, et tu trouveras ton bonheur
mot-clé: End(xlUp)

Voici un exemple renvoyé par le moteur de recherche
https://www.excel-downloads.com/threads/impression-derniere-ligne-tableau.148253/

edition: bonjour Pierrot93

 

[Pierrot93]

Re : Imprimer j'usqua la derniere ligne renseigné

Bonjour,

essaye le code ci-dessous :

    ActiveSheet.PageSetup.PrintArea = "$A$4:$F$" & Cells.Find("*", , xlValues, , 1, 2, 0).Row

bonne journée
@+

 

[SSIAP2]

Re : Imprimer j'usqua la derniere ligne renseigné

bonjour staple1600 et pierrot93

merci pour votre aide j'ai fais un mix entre les information trouvé sur le lien de staple1600 et le code de pierrot93 ce qui donne ceci

Dim MyValue As Byte
MyValue = MsgBox("Voulez-vous imprimer ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub
With ActiveSheet
.PageSetup.PrintArea = "$A$4:$F$" & Cells.Find("*", , xlValues, , 1, 2, 0).Row
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With

et sa marche nickel comme je voulais merci à tous les deux

à bientot

 

[Staple1600]

Re : Imprimer j'usqua la derniere ligne renseigné

Re

SSIAP2
Puisque comme moi tu aimes les endives 😉

Dim MyValue As Byte
MyValue = MsgBox("Voulez-vous imprimer ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub
With ActiveSheet
With .PageSetup
.PrintArea = "$A$4:$F$" & Cells.Find("*", , xlValues, , 1, 2, 0).Row
.PaperSize = xlPaperA4
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut 1
End With

 

[SSIAP2]

Re : Imprimer j'usqua la derniere ligne renseigné

Euh j'ai pas tous compris 😛 Staple1600 mais j'aime bien les endives au four à la béchamel avec du jambon ou en salade

je vais essayer de comprendre ce que ton code amène de plus car je sais pas encore tous décoder

en tous cas merci encore

 

[Staple1600]

Re : Imprimer j'usqua la derniere ligne renseigné

Re

With/End With

Voila ce que j'appelle les endives

J'ai juste simplifié ton utilisation du With/End With de PageSetup

 

[SSIAP2]

Re : Imprimer j'usqua la derniere ligne renseigné

D'accord lol merci pour ta retouche perso à bientot a vous 2 et vive les endives