Raccourcir un code

Résolu
mmxa1995 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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



A voir également:

3 réponses

Réponse 1 / 3
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Pas si long que ça ton code

Si tu veux à tout pris faire plus bref, un exemple à adapter 

' lignes à supprimer
Const lias = "3,5:8,11,15:17"

Public Sub OK()
Dim tl, k As Long
Application.ScreenUpdating = False
tl = Split(lias, ",")
For k = UBound(tl) To 0 Step -1
  Rows(tl(k)).Delete
Next k
Application.ScreenUpdating = True
End Sub

Cdlmnt
0
Réponse 2 / 3
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

N'as-tu pas oublié d'effacer les lignes 11752:11753 ?
0
mmxa1995 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention  
 
oui
Bien vu Patrice, en plus je suis cet ordre pour arriver en haut de ma colonne
0
Réponse 3 / 3
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
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
0
mmxa1995 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Patrice
peux tu m'expliquer stp,
je ne comprends pas le For n°L = 11752 To 11230 Step -87
alors que je commence les suppressions depuis la ligne Rows("11813").Delete
0
mmxa1995 Messages postés 28 Date d'inscription   Statut Membre Dernière intervention  
 
ahhhh ca marche j'ai effectué la modif For n°L = 11752 To 7
tu sauves ma soirée.
Merci bcp
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
11752+61=11813
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses