Discussion :

[j0joo]

Bonjour

Je souhaiterai développer un code qui me permettrait de supprimer une colonne si celle ci est complètement vide.

Voici ce que j'ai écrit, je fais un test sur 3 colonnes (mon fichier en a 200). Pour chaque colonne je compte le nombre de cellule non vide. Si à la fin de la boucle ce nombre = 0 alors je supprime la colonne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub test()
 
Dim cell_non_vide As Integer
Dim i As Integer
Dim j As Integer
 
With ActiveSheet
For j = 1 To 3
    For i = 2 To Worksheets("Feuil2").Range("A" & .Rows.Count).End(xlUp).Row
        If Cells(i, j) <> "" Then
            cell_non_vide = cell_non_vide + 1
        End If
    Next i
 
    If cell_non_vide = 0 Then
        Columns(j).Delete
    End If
 
    cell_non_vide = 0
 
Next j
 
End With
 
End Sub

Ce code marche mais a des limites par exemple lorsque qu'une colonne se supprime toute les colonnes se décalent et la boucle saute une colonne sans boucler dessus, j'aimerai éviter cela.

Y'a t'il un autre moyen ?

Merci.

[Philippe Tulliez]

Bonjour,
Pour supprimer des lignes ou des colonnes il faut boucler de la dernière vers la première.

[j0joo]

Tout simplement... J'aurai du y penser.

Merci

[(WOLF)]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub effacer_colonne()
Dim dc As Long, ic As Long
 
dc = Sheets("feuil1").Cells(1, Columns.Count).End(xlToLeft).Column
For ic = dc To 1 Step -1
If Application.WorksheetFunction.CountA(Sheets(1).Columns(ic)) = 0 Then
Sheets("feuil1").Columns(ic).Delete
End If
Next
End Sub

Un autre exemple faisant la même chose,

Cordialement