Supprimer colonnes vides malgres entete

[lionelch1]

Bonjour ,

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

Merci
Lionel

 

[lionelch1]

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

 

[tototiti2008]

Re : Supprimer colonnes vides malgres entete

Bonsoir Lionel,

un essai

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

 

[Papou-net]

Re : Supprimer colonnes vides malgres entete

Bonsoir Lionel, tototiti2008,

Je suis à la "bourre" mais comme je l'ai fait différemment, je le transmets.

Cordialement

 

[lionelch1]

Re : Supprimer colonnes vides malgres entete

Merci a vous deux ,

Cela fonctionne impeccable
Bonne soirée

Lionel
(Sujet résolu)