Supprimer ligne en fonction de plusieurs valeurs d'une cellule

[pierrof]

Bonjour

A l'aide d'une macro je voudrai supprimer des lignes en fonction de la valeur d'une cellule.

Dans ma colonne A, si la cellule n'est pas égale à A ou B ou C ou D alors supprimer la ligne.

Le tableau peut varier jusqu'à 20000 lignes.

Je vous remercie d'avance

A+

 

[phlaurent55]

Re : Supprimer ligne en fonction de plusieurs valeurs d'une cellule

Bonjour Pierrof,

avec ce code:

Private Sub CommandButton1_Click()
For i = Range("A65535").End(xlUp).Row To 2 Step -1
If Cells(i, 1) > "D" Then Rows(i).Delete
Next i
End Sub

à+
Philippe

 

[pierrof]

Re : Supprimer ligne en fonction de plusieurs valeurs d'une cellule

Bonjour PhLaurent

En fait j'avais simplifié le fichier.

Mais normalement les valeurs (A,B,C,D) sont plus complexe (BD0125, CF4589, CG428 et FG425)

Merci de ton aide

 

[phlaurent55]

Re : Supprimer ligne en fonction de plusieurs valeurs d'une cellule

Re,

dans ce cas, remplacer le code par ceci

Private Sub CommandButton1_Click()
For i = Range("A65535").End(xlUp).Row To 2 Step -1
If Left(Cells(i, 1), 1) > "D" Then Rows(i).Delete
Next i
End Sub

à+
Philippe