Supprimer des colonnes selon critères

[perdinch]

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]

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]

Re : Supprimer des colonnes selon critères

Bonsoir,

C'est parfait!

Cordialement,

PERDINCH

 

[Staple1600]

Re : Supprimer des colonnes selon critères

Bonsoir

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

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