Supprimer lignes si valeur aucune valeur negative

youky(BJ)

XLDnaute Barbatruc

• 26 Février 2009

• #2

Re : Supprimer lignes si valeur aucune valeur negative

Bonjour Piraga,

Sub Enleve()
Dim garde As Boolean
Application.ScreenUpdating = False
For lg = 442 To 2 Step -1
For k = 1 To 16
If Cells(lg, k) < 0 Then garde = True: Exit For
Next
If Not garde Then Rows(lg).Delete garde = False
garde = False
Next
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 26 Février 2009

• #3

Re : Supprimer lignes si valeur aucune valeur negative

Bonjour,

Code:

 For i = [A65000].End(xlUp).Row To 1 Step -1
   If Application.CountIf(Rows(i), "<0") = 0 Then  Rows(i).Delete
 Next i

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

P

piraga

XLDnaute Nouveau

• 26 Février 2009

• #4

Re : Supprimer lignes si valeur aucune valeur negative

Merci beaucoup
je vais tester les deux et vous tiendrai au courant

PS : peut-on s'autoformer au VB avec un manuel ou quelque chose du genre qui soit accessible et sérieux ?
Merci

 

Vote positif 0 Vote négatif