XL 2016 Supprimer les colonnes vides

[elbahja79]

bonjour
j'ai des classeurs qui contiennent des centaines de feuilles et je veux supprimer pour tous les classeurs et toutes les feuilles les colonnes vides car elles m'empêchent de mieux exploiter mes données.
en pièce jointe, 2 classeurs test que j'ai crée.
Si quelqu'un connait une solution pour supprimer ces colonnes vides pour tous les classeurs en un seul coup ou classeur par classeur ca sera la bienvenue.
NB: les données contenues dans les feuilles n'ont pas le même format
Merci

 

[vgendron]

Bonjour

un essai par macro à mettre dans un module standard du classeur à traiter

Sub DeleteEmptyCol()
Application.ScreenUpdating = False 'on désactéive le refresh pour éviter l'effet sapin de noel
Dim Ws As Worksheet 'déclaration

For Each Ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur actif
    With Ws 'avec la feuille
        For j = .UsedRange.Columns.Count To 1 Step -1 'pour chaque colonne de la zone utilisée (en partant de la dernière colonne pour remonter vers la première (A)
            'Columns(j).Select 'pour débug
            If WorksheetFunction.CountA(.Columns(j)) = 0 Then .Columns(j).Delete 'si la colonne est vide, on la supprime
        Next j
    End With
Next Ws
Application.ScreenUpdating = True 'on réactive le refresh
End Sub

 

[elbahja79]

Merci vgendron
est ce qu'iln'y a pas possibilité de parcourrir tous les classeurs d'un dossier et d'exécuter ce module
Merci de nouveau