Microsoft 365 Copier depuis plusieurs pages d'un fichier une plage de colonnes entre deux cellules comportant un texte particulier

soan à dit:

(et en plus t'es encore debout à c't'heure-ci ? )

soan

Cliquez pour agrandir...

R.U, c'est le Royaume Uni ; alors t'es en Angleterre ? ou au Pays de Galles ? ou en Écosse ?
si t'es en Écosse, t'as p't'être vu le monstre du Loch Ness ? t'es p't'être un immortel,
du clan MacLeod ? ou peut-être juste un simple pêcheur d'Irlande du Nord ?

Cliquez pour agrandir...

VB:

Option Explicit

Sub Essai()
  Dim Forme As Shape: Application.ScreenUpdating = 0
  For Each Forme In ActiveSheet.Shapes
    Forme.Delete
  Next Forme
End Sub

c'est un truc dans c'goût-là (non testé !) ; le gel de l'écran est là pour éviter la gêne visuelle
de multiples formes visibles qui disparaissent de l'écran, en un temps plus ou moins long
selon le nombre de formes ; les formes non visibles sont elles aussi supprimées.

AVANT d'utiliser cette sub, tu peux faire une vérification préalable en mettant à la place
de Forme.Delete : MsgBox Forme.Name (ATTENTION : tu pourrais avoir des surprises, et
découvrir qu'avec .Delete, tu aurais failli supprimer une forme à laquelle tu tiens !).

Cliquez pour agrandir...

soan à dit:

imbrique, imbrique, mais soit bien prudent : j'ne voudrais pas qu'tu effaces par mégarde des formes indispensables au fonctionnement de ton vrai fichier !

Cliquez pour agrandir...

Option Explicit


Sub DeleteLeftColumns()
 Application.ScreenUpdating = False
 Dim shp As Shape
 
    Range("A1:M65536").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        
 For Each shp In ActiveSheet.Shapes
   shp.Delete
 Next shp
 End With
   Columns("A:CR").Select     ' S�lectionne la plage de colonnes
   Selection.Delete           ' suprimmer la section
  
End Sub

Sub cleanning()
 Dim lig&, k&
 Application.ScreenUpdating = False
  With Worksheets(1)
: k = .[A65536].End(3).Row
 For lig = k To 1 Step -1
 
    If Cells(lig, 1) = "ID" Or IsNumeric(Cells(lig, 1)) Or Left$(Cells(lig, 1), 1) = "D5" Then
            Else: Rows(lig).Delete
    End If
    
    If Application.CountA(.Rows(lig)) = 0 Or Cells(lig, 1) = "TITLE" Or Cells(lig, 1) = "" Then
          Rows(lig).Delete
        
    End If
 Next
 
MsgBox "FINISH"
End With
End Sub

j'suis content que ce soit mieux avec Adobe Pro, et comme toutes les colonnes "ID"
commencent en CS, il y a plus besoin de devoir détecter où est située la dernière
Colonne du tableau ; mais pour les lignes vides en trop, il en reste encore !

Cliquez pour agrandir...

Et il y a encore plein de cellules fusionnées !

Cliquez pour agrandir...

    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False

Il y a : With Worksheets(1) ; avec la 1ère feuille du classeur ; donc juste dessous :
k = .[A65536].End(3).Row est sur la 1ère feuille : OK ; mais ensuite, quand il y a :
Cells(lig, 1) : c'est sur la feuille active ; est-ce bien ça ? ou si tu as oublié de
mettre le point, ça aurait dû être sur la 1ère feuille ? si tu as oublié le point,
et que la feuille active n'est pas la 1ère feuille du classeur : big problem !
alors revérifie toutes les références à telle ou telle feuille, implicite ou explicite.

Vérifie bien les conditions des 2 If car j'suis vraiment pas sûr que c'est c'que
tu veux vraiment ! alors fais tes essais sur une copie du fichier Excel !!!

Cliquez pour agrandir...