XL 2016 Passer à la page suivante automatiquement

Dranreb

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

bennp

XLDnaute Occasionnel
Voila le bout de code :
VB:
     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
 

Fichiers joints

Dranreb

XLDnaute Barbatruc
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.
 

Fichiers joints

Discussions similaires


Haut Bas