Déplacer des ligne en fonction de la page avant impression.

Question

Bonjour, 

Je souhaite inclure dans mon code, un déplacement des lignes vers la page suivante si un tableau est à cheval sur deux pages pour que celui-ci ne soit pas coupé à l'impression du doc.

Merci pour votre aide

Configuration: Windows / Firefox 60.0

M-12 · Answer

Bonjour,
Même réponse que la précédente

guillaume gdco · Answer

Dim ligne As Long, texte As String, ancientexte As String, ex As Worksheet, titre As String
ancientexte = ""
Set ex = ThisWorkbook.Sheets("Export")
'Précisez le nom de votre feuille
For ligne = ex.Cells(ex.Rows.Count, 1).End(xlUp).Row To 1 Step -1
    'je travaille sur la colonne a
    'Rows.count permet de retourner le nombre de ligne de la plage range
    texte = Left(ex.Cells(ligne, 1).Value, 5)

Déplacer des ligne en fonction de la page avant impression.

2 réponses

Discussions similaires

Newsletters