Discussion :

[arnold95]

Bonjour,

Je souhaiterais sous VBA Excel supprimer toutes les colonnes vides de chauqe feuille de mon classeur.

Voici le code que j'ai écrit, mais il ne fonctionne pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
For Each Feuille In Worksheets
Feuille.Select
DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
DerniereLigne = Range("A65536").End(xlUp).Row
For c = DerniereColonne To 1 Step -1
If Cells(65536, c).End(xlUp).Row = 1 Then
Cells(1, c).EntireColumn.Delete
End If
Next c
Next Feuille
End Sub

Merci de votre aide et bonne journée.

[Gorfael]

Salut arnold95 et le forum

Voici le code que j'ai écrit, mais il ne fonctionne pas:

9a veut dire quoi ? Tu donnes un extrait de macro et on doit trouver pourquoi cet extrait ne donne pas le résultat que tu attends ? Pas assez d'infos. le seul truc qui me saute aux yeux, c'est que tu ne tiens pas compte de la cellule en ligne 1.
A+

[Invité]

Bonjour,

Peut-être une solution parmi d'autres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Essai()
For Each Feuille In Worksheets
Feuille.Select
DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
DerniereLigne = Range("A65536").End(xlUp).Row
For c = DerniereColonne To 1 Step -1
If Cells(65536, c).End(xlUp).Row = 1 Then
    If Cells(1, c) = "" Then
    Cells(1, c).EntireColumn.Delete
    End If
End If
Next c
Next Feuille
End Sub

[arnold95]

Merci pour les réponse.

Mais pour le coup, je ne peux utiliser la première cellule comme critère car elle est toujours remplie, elle corespond à des intitulés de champs.

Merci.

[Fvandermeulen]

Salut,
Ben alors utilise la ligne 2, en fait si la première cellule trouvée depuis le bas = 1 c'est que la colonne est vide, on peut donc supprimer la vérification du vide, avec le code de Jacques-Jean ça donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Essai()
For Each Feuille In Worksheets
Feuille.Select
DerniereColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
DerniereLigne = Range("A65536").End(xlUp).Row 'Pas certain que ce soit utile
For c = DerniereColonne To 1 Step -1
     If Cells(columns(c).cells.count, c).End(xlUp).Row = 1 Then 'Adapté pour être compatible à XL2007 qui a plus que 65536 lignes
         Cells(1, c).EntireColumn.Delete
     End If
Next c
Next Feuille
End Sub

A+