Suppression de lignes

Bonsoir a tous

Je souhaite supprimer toutes les lignes ayant des valeurs numériques entre « 0 » et « 455 » qui se trouvent dans les cellules de la colonne “F”.

J’ai trouvé ceci de thev mais c’est basé sur des dates. Auriez-vous un peu de temps pour me propose la même routine avec des valeurs numériques. Je souhaite mettre cette routine en complément d'une très longue macro

Merci a vous

Cdlt

Sub supression_tps()

Dim dlig&, lig&: dlig = Cells(Rows.Count, 3).End(xlUp).Row

Dim temps As Date: temps = "01:09:00"

For lig = dlig To 2 Step -1

If Cells(lig, 3) > temps Then Rows(lig).Delete

Next lig

End Sub

Bonsoir

un essai sans avoir tester de mon coté :

If Cells(lig, 6) >= 0 and  Cells(lig, 6) < 456 Then Rows(lig).Delete

fred

bonjour

a la plac2 de If Cells(lig, 3) > temps Then Rows(lig).Delete

mettre

If Cells(lig, 6)  < 456 Then Rows(lig).Delete

A+

Maurice

Bonjour toutes et tous

merci Archer et Fred2046

et aussi m'semble:

Dim dlig&, lig&: dlig = Cells(Rows.Count, 3).End(xlUp).Row

par

Dim dlig&, lig&: dlig = Cells(Rows.Count, 6).End(xlUp).Row

crdlt,

André

A oui André bien vu pour la colonne F

Fred

Merci a vous pour vos reponses

L'un de vous peut-il la reconstituer en un bloc, SVP.

Merci, merci

Re,

voici, ci-joint

crdlt,

André

Tu abuse un peu la .....fred

Sub sup()
Dim dlig&, lig&: dlig=Cells(Rows.Count,6).End(xlUp).Row
For lig = dlig To 2 Step -1
 If Cells(lig, 6) >= 0 and  Cells(lig, 6) < 456 then Rows(lig).Delete
Next lig

End Sub

Oui désoler , j’étais sur la macro en même temps

Je vous remercie a tous, c'est cool j'avance grâce a vous.

Je vais clôturer mais je crois que j'ai mon icône qui reste en bleu (?)

Clôture du ticket effectuée

Merci Fred