Supprimer colonnes vides malgres entete

L

lionelch1

XLDnaute Nouveau

• 23 Mars 2013

• #2

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

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 23 Mars 2013

• #3

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Mars 2013

• #4

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

 

Pièces jointes

• Test Lionelch1.xls

  44 KB · Affichages: 42

Vote positif 0 Vote négatif

L

lionelch1

XLDnaute Nouveau

• 23 Mars 2013

• #5

Re : Supprimer colonnes vides malgres entete

Merci a vous deux ,

Cela fonctionne impeccable
Bonne soirée

Lionel
(Sujet résolu)

 

Vote positif 0 Vote négatif