Macro Suppression

Bonjour,

J'ai actuellement une macro qui supprime mes colonnes vides (si la cellule de la première ligne est vide plutôt)

Le problème étant que cela ne supprime que 1 colonne si il y en à plusieurs vide à coter

Mais que pourtant cela va pouvoir supprimer plusieurs colonnes vides mais séparer par des colonnes pleines

Sub Suppression()

Dim i As Integer
Dim PremiereColonne As Integer
i = 1
PremiereColonne = Cells(1, 1).End(xlToRight).Column

For i = PremiereColonne To 40 Step 1
   If Worksheets("Test").Cells(1, i) = "" Then Cells(1, i).EntireColumn.Delete

Next i
End Sub

Une idée sur la chose ? j'essaye avec un while pour remplacer le For actuellement mais je me retrouve avec le même résultat

Si vous pouvez m'indiquez des idées je prend !

Ice

Bonjour,

Une proposition à étudier

Option Explicit
Public Sub Suppression_colonnes()
Dim ws As Worksheet, _
    Col As Integer, derCol As Integer, i As Integer

    Application.ScreenUpdating = False
    Set ws = Worksheets("Test")
    With ws
        Col = .Cells(1, 1).End(xlToRight).Column + 1
        derCol = .Cells(1, Columns.Count).End(xlToLeft).Column - 1
        For i = derCol To Col Step -1
            If Cells(1, i) = Empty Then Columns(i).Delete
        Next
    End With

    Set ws = Nothing

End Sub

Bonjour Jean-Eric,

parfait, problème résolu !

Merci encore !

(bouton résolu check ;p)

Cordialement

Ice