Impression dernière ligne

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

Bonjour Denis,

Hé bien, c'est bien de répondre à ses messages lol
Désolée de ne pas avoir répondu, j'ai pas vu avant... mais Bravo, tu as trouvé la solution tout seul et ça peut servir à quelqu'un d'autre.. alors je trouve ça très bien que tu aies répondu à ton message sur le forum...

Tourlou et bonne soirée,

Joley

Bonsoir Denis Joley et toi le Forum,

Je passe dans ce fil pour proposer un principe qui va certainement faciliter la tâche à Denis...

si j'ai bien compris il s'agit de selectionner la "dernière ligne d'un tableau et de lancer l'impression"...

Alors dans le fichier, j'ai ajouté ce principe mais avec une option qui d'une part va placer une icône personnalisée sur la barre standard, (c'est plus pratique...lol) et d'autre part lorsque tu vas cliquer sur cette icône, elle sélectionne la dernière ligne du tableau et lance l'impression (que j'ai volontairement désactivée dans la procédure)...

pas de bla bla, le fichier joint est plus concret...