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.