suppresion colonne vide dans excel

[Sangoku]

Bonjour,

j'ai une petite question :
( j'ai cru voir un sujet là dessus mais je ne le retrouve pas !!!)
en fait j'ai un fichier excel avec quelques colonnes (jsuque là rien d'extraordinaire !! LOL) doint je voudrais supprimer les colonnes vides (hormis l'entete).

comment arriver à cela ??

Merci de votre aide
@+

 

[andré]

Salut Sangoku,

Vite fait avant de quitter le bureau.

Si tu regardes ton calendrier, aujourd'hui c'est le 03, trop tard pour les poissons d'avril : comment veux-tu supprimer une colonne en gardant son en-tête ?

Je pourrais comprendre que tu veuilles supprimer toutes les données d'une colonne, hormis l'en-tête, mais puisqu'elle est vide, il n'y a rien à supprimer !

Tu me reconfortes dans ce que je pense : il est souvent plus difficile de poser une question que d'y répondre.

Ândré.

 

[Sangoku]

Merci pour ta réponse andré, mais je crois que ma question n'était pas assez claire !! dsl

En fait je veux supprimer toutes les colonnes ( sur une trentaine) qui ont seulement l'netête alors que toute la colonne est vide ..

suis je plus clair ??

@+

 

[Ti]

pas sûr d'avoir très bien compris, mais essaie ça, normalement ça devrait aller :

Sub SupprimeLignesVides()
Dim Plage As Range, Colonne As Long, Cel As Range
With ActiveSheet
' je prends la plage utilisée comme référence
'il faudrait au besoin ajuster cette plage au tableau
Set Plage = .UsedRange
End With

With Plage
For Colonne = .Columns.Count To 1 Step -1
Set Cel = .Cells(1, Colonne).EntireColumn
If Cel.Cells(65536, 1).End(xlUp).Row = _
.Cells(1, Colonne).Row Then Cel.Delete
Next Colonne
End With

End Sub