suppresion colonnes vides

[Canaille]

Bonsoir à tous

J'ai fait une recherche avant de poser ma question, mais j'ai ps trouvé vraiment ma réponse.

Suite à des importations de données dans excel, je me retrouve avec des colonnes entièrement vides (ni titre ni données). Ces colonnes ne sont pas forcément contigues. JE voudrais trouver un code VBA pour les supprimer.
JE sais c'est tou bête, mais je bloque.

Merci pour le petit coup de pouce, ce serait sympa
Canaille

 

[Ronan Quennec]

Bonsoir,

Essai ceci :

Sub SupColVide()
Dim DerColonne As Integer
DerColonne = ActiveSheet.Cells(1, 256).End(xlToLeft).Column
For i = 1 To DerColonne
If Application.WorksheetFunction.CountBlank(Columns(i)) = 65536 Then
Columns(i).Delete
i = i - 1
DerColonne = DerColonne - 1
End If
If i = DerColonne Then Exit For
Next i
End Sub

@+

Ronan

 

[ChristianS]

Salut,
Essaie l'exemple ci joint que j'ai adapté de l'excellent bouquin de John Walkenbach "Excel 2002 et VBA" chez OEM.
Il a également un site internet.
A+
ChS

 

[Canaille]

Bonjour toul le forum
Bonjour Ronan et Christian

Merci pour vos réponses. Je regarderai cela ce soir à la maison. La suis au bureau et pas trop le temps.
Je vous tiens au courant et merci encore

Canaille

 

[Canaille]

Re tout le monde
re Ronan et Christian

Je viens de faire des tests et c'est génial c'est exactement ce que je recherchais. De plus le programme est fait aussi pour les lignes vides.
A mettre de côté ... peut servir.

Merci encore à vous et à tous ceux qui animent ce forum.
Canaille