suppresion colonnes vides

Canaille · 27 Octobre 2004

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 · 28 Octobre 2004

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 · 28 Octobre 2004

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 · 28 Octobre 2004

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 · 28 Octobre 2004

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

suppresion colonnes vides

Canaille

Guest

Ronan Quennec

Guest

ChristianS

Guest

Canaille

Guest

Canaille

Guest

Discussions similaires