VBA supprimer colonnes selon 2 critères

[Walex]

Bonjour à tous,

J'essai d'automatiser un fichier avec une macro qui permettrait de supprimer des colonnes entières selon 2 critères négatifs.

Exemple: je voudrais supprimer toutes les colonnes dont la ligne 8 n'est pas égale à 15 et que la ligne 9 n'est pas égale à ing. Résultat, je n'aurai que les colonnes dont la ligne 8 = 15 et ligne 9 = ing.

Je ne sais pas comment m'y prendre et j'aurais grandement besoin d'un coup de main.

Merci.

Alex

 

[Gorfael]

Re : VBA supprimer colonnes selon 2 critères

Salut Walex et le forum

Sub test()
Dim X As Integer
For X = Range("A1").SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
    If Cells(8, X) <> 15 Or Cells(9, X) <> "lng" Then Columns(X).Delete
Next X
End Sub

J'ai supposé qu'en ligne 9 on devait avoir un texte égal à lng, et pas que lng était une variable.
A+

 

[Walex]

Re : VBA supprimer colonnes selon 2 critères

Gorfael, Merci.
Bonne journée