macro supprimer 2 colonnes avec une condition

[maxdhavys]

Salut à tous,

Je souhaite pouvoir supprimer 2 colonnes qui se suivent si une condition se trouve dans la première, j'ai donc ce code mais ça ne marche pas :

Sub Saffaire()

Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 256 Step 1
If Cells(1, i) = "condition" Then Columns("i;i+1").Delete
Next
Application.ScreenUpdating = True
End Sub

quelqu'un peut m'aider siouplai?

Max

 

[DoubleZero]

Re : macro supprimer 2 colonnes avec une condition

Bonjour, maxdhavys, le Forum,

Peut-être ainsi :

Option Explicit
Sub Colonne_supprimer_si()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To 256 Step 1
        If Cells(1, i) = "condition" Then Columns(i).Offset(, 0).Resize(, 2).Delete
    Next
    Application.ScreenUpdating = True
End Sub

A bientôt