XL 2016 Supprimer les colonnes vides

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

elbahja79

XLDnaute Nouveau
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
 

Pièces jointes

Bonjour

un essai par macro à mettre dans un module standard du classeur à traiter
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour