Supprimer lignes dans un tableau

pierrejean

XLDnaute Barbatruc

• 11 Juin 2008

• #2

Re : Supprimer lignes dans un tableau

bonjour KM

Vois si cela te convient

 

Pièces jointes

• karlmarxExemple.zip

  9.7 KB · Affichages: 22

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 11 Juin 2008

• #3

Re : Supprimer lignes dans un tableau

Merci, ça correspond assez à ce que je recherchais.

Je voudrais l'améliorer, comment pourrais-je faire pour que quand des "lignes"sont effacées, les autres remontes afin qu'il n'y ait pas de trous dans la liste. Dans le cas présent, si par exemple il y une ligne où il n'y a pas que des O en cinquième ligne, pour qu'elle remonte en troisième position.

KM

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Juin 2008

• #4

Re : Supprimer lignes dans un tableau

Bonjour,


Range("B" & n & ":F" & n).Delete Shift:=xlUp

JB

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Juin 2008

• #5

Re : Supprimer lignes dans un tableau

Re

Ok JB 🙂 🙂, a un detail près (step -1)

Code:

Sub test()
[COLOR=blue]For n = Range("A65536").End(xlUp).Row To 2 Step -1[/COLOR]
 If Application.WorksheetFunction.Sum(Range("C" & n & ":F" & n)) = 0 Then
   Range("B" & n & ":F" & n[COLOR=blue]).Delete shift:=xlUp[/COLOR]
 End If
Next n
End Sub

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 11 Juin 2008

• #6

Re : Supprimer lignes dans un tableau

Merci bien à tous les deux.

KM

 

Vote positif 0 Vote négatif