Supprimer lignes si valeur aucune valeur negative

[piraga]

Bonjour à tous
j'ai un tableau de 441 lignes et 16 colonnes
j'aurais voulu savoir s'il existe une macro pour éliminer les lignes qui ne contiennent aucune valeur négative.
Merci de votre aide...

 

[youky(BJ)]

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

 

[BOISGONTIER]

Re : Supprimer lignes si valeur aucune valeur negative

Bonjour,

 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

 

[piraga]

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