re bonjour à tous
Aller je répond à mon méssage !!
je select dans une feuille la der.ligne et je colle avec un autre format( de la ligne je passe en colonne, et je change la police de B6. en suite j'inprim. et j'efface les select et je retourne dans ma feuille de départ.
Sub impriderligne()
'
Rows(Range("A10").End(xlDown).Row).Select
Selection.Copy
Sheets("Feuil1").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("B6").Select
Application.CutCopyMode = False
With Selection.Font
.Name = "Arial"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("B1:B52").Select
Selection.Clear
Worksheets("liste").Activate
End Sub
bonne soirée
@+denis