Supprimer lignes si valeur aucune valeur negative

piraga

XLDnaute Nouveau
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)

XLDnaute Barbatruc
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
 

Discussions similaires