Supprimer lignes si valeur aucune valeur negative

piraga · 26 Février 2009

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) · 26 Février 2009

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 · 26 Février 2009

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

piraga · 26 Février 2009

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

Supprimer lignes si valeur aucune valeur negative

piraga

Guest

youky(BJ)

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

piraga

Guest

Discussions similaires

Supprimer lignes si valeur aucune valeur negative

piraga

Guest

youky(BJ)

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

piraga

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency