Raccourcir un code

Résolu/Fermé

mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016 - 20 avril 2016 à 16:38
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 20 avril 2016 à 20:55

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:

Raccourcir un code
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code blocks free - Télécharger - Langages
Comment créer un qr code - Guide

3 réponses

Réponse 1 / 3

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
Modifié par ccm81 le 20/04/2016 à 17:16

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

Réponse 2 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
20 avril 2016 à 18:27

Bonjour,

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

mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016
20 avril 2016 à 18:45

oui
Bien vu Patrice, en plus je suis cet ordre pour arriver en haut de ma colonne

Réponse 3 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
20 avril 2016 à 19:36

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

mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016
20 avril 2016 à 19:51

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

mmxa1995 Messages postés 28 Date d'inscription mardi 12 avril 2016 Statut Membre Dernière intervention 21 avril 2016
20 avril 2016 à 20:04

ahhhh ca marche j'ai effectué la modif For n°L = 11752 To 7
tu sauves ma soirée.
Merci bcp

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
20 avril 2016 à 20:55

11752+61=11813

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

code d'activation GTA 5 steam

Discussions similaires

Newsletters