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
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