Macro pour éliminer les lignes

[marskng]

Bonjour ,
J'aurais besoin de votre aide s'il vous plait ; je voudrais avoir une macro pour me permettre de supprimer les lignes pour lesquelles les cellules de la colonne B commencent par lX comme dans ce mini exemple de la pièce jointe.
Merci d'avance

 

[gosselien]

Re : Macro pour éliminer les lignes

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.

 

[marskng]

Re : Macro pour éliminer les lignes

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.

Merci beaucoup

 

[Staple1600]

Re : Macro pour éliminer les lignes

Bonjour à tous

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

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

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

 

[marskng]

Re : Macro pour éliminer les lignes

Bonjour à tous

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

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

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

Merci bien 😀