macro supprimer 2 colonnes avec une condition

maxdhavys · 30 Juin 2013

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 · 30 Juin 2013

Re : macro supprimer 2 colonnes avec une condition

Bonjour, maxdhavys, le Forum,

Peut-être ainsi :

Code:

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 🙂

macro supprimer 2 colonnes avec une condition

maxdhavys

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Discussions similaires

macro supprimer 2 colonnes avec une condition

maxdhavys

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency