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

guillaume gdco Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   -  
guillaume gdco Messages postés 68 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
Bonjour,
Même réponse que la précédente
0
guillaume gdco Messages postés 68 Date d'inscription   Statut Membre Dernière intervention  
 
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)
0