Supprimer ligne en fonction de plusieurs valeurs d'une cellule

pierrof · 7 Septembre 2012

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 · 7 Septembre 2012

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

Bonjour Pierrof,

avec ce code:

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 · 7 Septembre 2012

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 · 7 Septembre 2012

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

Re,

dans ce cas, remplacer le code par ceci

Code:

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

Supprimer ligne en fonction de plusieurs valeurs d'une cellule

pierrof

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

pierrof

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Discussions similaires

Supprimer ligne en fonction de plusieurs valeurs d'une cellule

pierrof

XLDnaute Occasionnel

Pièces jointes

phlaurent55

Nous a quittés en 2020

pierrof

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Discussions similaires

Privacy & Transparency

Privacy & Transparency