Supprimer lignes dans un tableau

[www.KarlMarx.com]

Bonjour à tous,

je souhaite grâce à une macro supprimer les lignes d'un tableau contenant que des 0 mais pas toute la ligne, seulement plusieurs colonnes.

Bon comme c'est pas très clair, j'ai mis un exemple en PJ.

Merci d'avance,

KM

 

[pierrejean]

Re : Supprimer lignes dans un tableau

bonjour KM

Vois si cela te convient

 

[www.KarlMarx.com]

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

 

[BOISGONTIER]

Re : Supprimer lignes dans un tableau

Bonjour,


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

JB

 

[pierrejean]

Re : Supprimer lignes dans un tableau

Re

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

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

 

[www.KarlMarx.com]

Re : Supprimer lignes dans un tableau

Merci bien à tous les deux.

KM