Suppression de lignes a partir d'une variable

L

lesuisse

Guest
Bonjour à toutes et à tous,

En fait je souhaite supprimer des lignes selon un critère alphanumérique dans une cellule.
Ce critère change très régulièrement et se trouve dans la celle O3 de la feuille Menu.
Ce fameux critère peut prendre les formes suivantes. Seuls changent le nombre :
=100
>=100
>100
<=100
<>100
<100

Dans le code ci-dessous, je ne sais pas comment lui insérer cette fameuse variable...

Si vous avez une idée...
Merci beaucoup et bonne journée à toutes et à tous.

Le Suisse

Dim cell As Range
For Each cell In Range("P2:p65536")
If Not IsEmpty(cell) Then
If cell .....???...... Worksheets("Menu").Range("O3").Value Then
cell.EntireRow.ClearContents
End If
End If
Next cell
 
S

sylsyl

Guest
Salut le suisse,

si j'avais ton pb, je le resoudrais comme ca:


dim a as string
a=Worksheets("Menu").Range("O3").Value

case left(a, 2) = "=>"
For Each cell In Range("P2:p65536")
if cell.value => right(a, Len(a)-2)
cell.entirerow.clearcontents
end if
next cell

case left(a,1) = "<"
etc...



ce n'est peu etre pas le plus simple mais c'est une solution.

A++, Sylsyl.
 
J

Jean-Marie

Guest
Bonjour,

Il y a une voie à explorer avec les filtres automatiques,
Selection.AutoFilter Field:=1, Criteria1:=">10", Operator:=xlAnd.

Où les macros XL4, qui permettent la modification du code en cours d'exécution.

Bonne journée.

@+Jean-Marie
 

Discussions similaires

Réponses
3
Affichages
457

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof