Macro pour éliminer les lignes

gosselien à dit:

Bonsoir,

ceci dans un module standard vba:

Sub DetruireLesLignesLX() ' Commencer par le bas
Dim DerniereLigne, r
On Error Resume Next
DerniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = DerniereLigne To 1 Step -1
If Left(Cells(r, 2), 2) = UCase("LX") Then Rows(r).Delete
Next r
ActiveSheet.UsedRange
End Sub


P.

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour à tous

Histoire de varier les plaisirs.
Deux autre voies possibles
(la seconde a ma préférence 😉)

VB:

Sub SuppressionSansBouclesMaisAvecEndives()
With Range(Cells(1, "A"), Cells(Rows.Count, "D").End(3))
  .AutoFilter 2, "=LX*" 
 On Error Resume Next 
 .Offset(1).Resize(.Count - 1).SpecialCells(12).EntireRow.Delete
  .Parent.AutoFilterMode = False
End WithEnd Sub

VB:

Sub SansBouclesSansEndivesEtSansFiltre()
Dim dl&: dl = Cells(Rows.Count, "D").End(3).Row
Range(Cells(2, "E"), Cells(dl, "E")) = "=IF(LEFT(RC[-3],2)=""LX"",""Staple1600"",0)"
On Error Resume Next: Columns(5).SpecialCells(-4123, 2).EntireRow.Delete: Columns(5).Delete
End Sub

Cliquez pour agrandir...