Supprimer des colonnes selon critères

perdinch · 17 Août 2012

Bonjour,

Par VBA Comment supprimer les colonnes de la plage nomméeListe1 selon le critère suivant:
si la cellule est <> de "DE2", la colonne doit être supprimée?

ci-joint un fichier exemple

cordialement,

PERDINCH

CHALET53 · 17 Août 2012

Re : Supprimer des colonnes selon critères

Bonjour,

Avec un petit bout de code :

Sub test()
For Each cel In Range("liste1")
If cel.Value <> "DE2" Then
'Stop
a = cel.Column
Columns(a).Delete
End If
Next
End Sub

A+

perdinch · 17 Août 2012

Re : Supprimer des colonnes selon critères

Bonsoir,

C'est parfait!

Cordialement,

PERDINCH

Staple1600 · 17 Août 2012

Re : Supprimer des colonnes selon critères

Bonsoir

Une autre façon de faire (ou plutôt une autre boucle) 😉

Code:

Sub a()
Dim i
For i = 1 To 
[liste1].Columns.Count
If Not 
[liste1].Cells(, i) = "DE2" Then 
[liste1].Columns(i).Delete
Next i
End Sub

Supprimer des colonnes selon critères

perdinch

XLDnaute Occasionnel

Pièces jointes

CHALET53

XLDnaute Barbatruc

perdinch

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires

Supprimer des colonnes selon critères

perdinch

XLDnaute Occasionnel

Pièces jointes

CHALET53

XLDnaute Barbatruc

perdinch

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency