Raccourcir un code Résolu/Fermé

Question

Bonjour, 

je cherche à supprimer des lignes, pourriez vous m'aider à raccourcir ce code svp


Sheets("Calcul").Select
Rows("11813").Delete
Rows("11811").Delete
Rows("11760:11770").Delete
Rows("11726").Delete
Rows("11724").Delete
Rows("11673:11683").Delete
Rows("11665:11666").Delete
Rows("11639").Delete
Rows("11637").Delete
Rows("11586:11596").Delete
Rows("11578:11579").Delete
Rows("11552").Delete
Rows("11550").Delete
Rows("11499:11509").Delete
Rows("11491:11492").Delete
Rows("11465").Delete
Rows("11463").Delete
Rows("11412:11422").Delete
Rows("11404:11405").Delete
Rows("11378").Delete
Rows("11376").Delete
Rows("11325:11335").Delete
Rows("11317:11318").Delete
Rows("11291").Delete
Rows("11289").Delete
Rows("11238:11248").Delete
Rows("11230:11231").Delete



Configuration: Windows 7 / Mozilla 11.0

ccm81 · Answer

Bonjour

Pas si long que ça ton code

Si tu veux à tout pris faire plus bref, un exemple à adapter

' lignes à supprimerConst lias = "3,5:8,11,15:17"Public Sub OK()Dim tl, k As LongApplication.ScreenUpdating = Falsetl = Split(lias, ",")For k = UBound(tl) To 0 Step -1  Rows(tl(k)).DeleteNext kApplication.ScreenUpdating = TrueEnd Sub
Cdlmnt

Patrice33740 · Answer

Bonjour,

N'as-tu pas oublié d'effacer les lignes 11752:11753 ?

Patrice33740 · Answer

Re,

Alors, tu pourrais écrire :
Option Explicit
Sub test()
Dim n°L As Long
  With Worksheets("Calcul")
    For n°L = 11752 To 11230 Step -87
      .Rows(n°L + 61).Delete
      .Rows(n°L + 59).Delete
      .Rows(n°L + 8).Resize(11).Delete
      .Rows(n°L).Resize(2).Delete
    Next
  End With
End Sub

Raccourcir un code

3 réponses

Discussions similaires