XL 2016 Passer à la page suivante automatiquement

[bennp]

Bonjour,

j'ai un tableau créé en macro, et parfois il se retrouve à la jonction de 2 pages. Quelqu'un aurait une idée pour déplacer automatiquement le tableau à la page suivante ?

Merci

 

[Dranreb]

Elle peut être n'importe où verticalement si vous n'avez pas corrigé son .Top selon celui d'une plage.

 

[bennp]

Voila le bout de code :

     ReDim TR(1 To 100, 1 To 26)
  
    LE = 2
    TR(5, 1) = UCase("Images particuliéres")
   Set Rng = PlageSuivante(TR, LR)
   LTot = Rng.Rows.Count + 1
   If Range("AC27") = True Then
   Sheets("Feuil2").Shapes("Image 5").Copy
   Rng.Worksheet.Paste
   With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
   .Left = Rng(8, 22).Left
   .Top = Rng(8, 22).Top
   End With
    Range("AF27").Copy
    Rng(10, 8).PasteSpecial xlPasteValues
   
    End If
   
    If Range("AC33") = True Then
   Sheets("Feuil2").Shapes("Image 7").Copy
   Rng.Worksheet.Paste
   With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
   .Left = Rng(14, 22).Left
   .Top = Rng(14, 22).Top
   End With
    Range("AF33").Copy
    Rng(16, 8).PasteSpecial xlPasteValues
   
    End If
   
    If Range("AC39") = True Then
   Sheets("Feuil2").Shapes("Image 9").Copy
   Rng.Worksheet.Paste
   With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
   .Left = Rng(20, 22).Left
   .Top = Rng(20, 22).Top
   End With
    Range("AF39").Copy
    Rng(22, 8).PasteSpecial xlPasteValues
   
    End If

Le problème est que ça laisse des espaces vides si j'ai pas coché les premières cases. Je sais pas comment faire...
La zone d'impression ne change pas non plus et je n'arrive pas à supprimer les images. Une idée pour résoudre ces 3 problèmes ?

Merci beaucoup

 

[Dranreb]

Bonjour.
C'est quelque chose comme ça, encore que j'ai du introduire une erreur avec LTot, que j'avais commencer par supprimer
… et parce que je n'ai pas rectifié en conséquence, après l'avoir remis, vos instructions qui font des Merge etc.