suppression ligne sous condition

Lone-wolf à dit:

Bonjour roni

Tu pourrais de donner la peine de joindre un fichier.

Edit: bonjour Jean Marie 🙂 😉

Cliquez pour agrandir...

roni à dit:

Bonjour,

Je voudrai supprimer les lignes d'un tableau déjà trié par la colonne E avec comme condition 9 en colonne E et garder les autres lignes .

Merci d'avance

Cliquez pour agrandir...

Staple1600 à dit:

Re,

@roni
Apparemment tu as zappé le message#4, non ?
Car j'y avais posté une macro (qu'il suffisait de modifier un chouia) 😉 et qui fait ce que tu souhaites.

VB:

Sub MacroAuPifTestéeDansLeVideDésormaisRempli()
Dim Lig&: Lig = Cells(Rows.Count, 5).End(xlUp).Row - 1
[F3].Resize(Lig) = "=IF(RC[-1]=9,""Staple1600"",0)"
With Columns(6)
.SpecialCells(-4123, 2).EntireRow.Delete: .ClearContents
End With
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Re,

@roni
Apparemment tu as zappé le message#4, non ?
Car j'y avais posté une macro (qu'il suffisait de modifier un chouia) 😉 et qui fait ce que tu souhaites.

VB:

Sub MacroAuPifTestéeDansLeVideDésormaisRempli()
Dim Lig&: Lig = Cells(Rows.Count, 5).End(xlUp).Row - 1
[F3].Resize(Lig) = "=IF(RC[-1]=9,""Staple1600"",0)"
With Columns(6)
.SpecialCells(-4123, 2).EntireRow.Delete: .ClearContents
End With
End Sub

Cliquez pour agrandir...

Sub delete_9()
Dim deb As Range, fin As Range
   With Feuil1.Columns(5)
      Set deb = .Find(9, after:=.Cells(Rows.Count, 1), searchdirection:=xlNext)
      Set fin = .Find(9, after:=.Cells(1, 1), searchdirection:=xlPrevious)
      If Not deb Is Nothing Then .Range(deb, fin).EntireRow.delete
   End With
End Sub

Staple1600 à dit:

(par contre le xlPrevious me pertube)

Cliquez pour agrandir...