Supprimer colonnes vides malgres entete

lionelch1

XLDnaute Nouveau
Bonjour ,

Je recherche une petite macro pour supprimer toutes les colonnes vides , malgres un entete en ligne 1

Merci
Lionel
 

lionelch1

XLDnaute Nouveau
Re : Supprimer colonnes vides malgres entete

Je joint un petit exemple que j'avais trouvé ,(que j'ai modifié)
mais qui ne marche pas pour moi car toutes mes cellules ne sont pas remplies
Lionel
 

Pièces jointes

  • Test.xls
    36 KB · Affichages: 42
  • Test.xls
    36 KB · Affichages: 40
  • Test.xls
    36 KB · Affichages: 39

tototiti2008

XLDnaute Barbatruc
Re : Supprimer colonnes vides malgres entete

Bonsoir Lionel,

un essai

Code:
Sub SupprCol()
Dim i As Long
    For i = Range("C1").CurrentRegion.Columns.Count To 1 Step -1
        If Application.CountA(Range("C1").CurrentRegion.Cells(1, i).EntireColumn) = 1 Then
            Range("C1").CurrentRegion.Cells(1, i).EntireColumn.Delete
        End If
    Next i
End Sub
 

Discussions similaires