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

Fermé
guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020 - 12 mars 2020 à 07:19
guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020 - 12 mars 2020 à 16:17
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 lundi 22 septembre 2008 Statut Membre Dernière intervention 18 février 2025 285
12 mars 2020 à 07:21
Bonjour,
Même réponse que la précédente
0
guillaume gdco Messages postés 68 Date d'inscription samedi 15 août 2009 Statut Membre Dernière intervention 30 août 2020
12 mars 2020 à 16:17
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