Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Effacer des lignes entiéres avec une boucle

Yannnnick

XLDnaute Nouveau
Bonjour à tous,

Je suis débutant en VBA et j'aimerais vous soumettre mon problème.
Je souhaite effacer des lignes dans un tableau et de façon récurrentes. Je m'explique :
Je pars de la ligne 10 puis je descends de 5 lignes, puis de 8 lignes puis de 13 lignes et je les efface. Je souhaite effectuer cette suite sur 6000 lignes.

Ex:
En partant de la ligne 5
(-) 3 lignes
(-) 5 lignes
(-) 8 lignes
Effacer
Puis en partant de la derniere ligne effectuer la meme suites :
(-) 3 lignes
(-) 5 lignes
(-) 8 lignes
Effacer


Voila, j'éspere avoir été assez clair.
Merci par avavnce pour votre réponse

A bientôt
 

Robert

XLDnaute Barbatruc
Repose en paix
Re : Effacer des lignes entiéres avec une boucle

Bonjour Ya(chiée de n...)ick, bonjour le forum,

Pas clair du tout... Je pense qu'un petit fichier exemple serait le bienvenu. Il monterait un tableau d'une centaine de lignes avec avant et après la macro. Attention, le code idéal pour effacer des lignes part de la dernière ligne et remonte...
 

Yannnnick

XLDnaute Nouveau
Re : Effacer des lignes entiéres avec une boucle

Bonjour Robert,

Voici un fichier exel avec des explications en plus. J'espère que cela sera plus clair.

Merci pour votre aide

Yannick
 

Pièces jointes

  • Classeurlignes.xls
    71 KB · Affichages: 63
  • Classeurlignes.xls
    71 KB · Affichages: 62
  • Classeurlignes.xls
    71 KB · Affichages: 68
Dernière édition:

Pierrot93

XLDnaute Barbatruc
Re : Effacer des lignes entiéres avec une boucle

Bonjour à tous,

regarde ceci, si cela peut t'aider à avancer, à adapter à ton projet :
Code:
Dim i As Long, j As Integer
For i = 1000 To 16 Step -16
    Rows(i).Delete
    Rows(i - 5).Delete
    Rows(i - 8).Delete
Next i

bon après midi
@+
 

Yannnnick

XLDnaute Nouveau
Re : Effacer des lignes entiéres avec une boucle

Bonjour Robert et à tous,

Voici un fichier exel avec des explications en plus. J'espère que cela sera plus clair.

Merci pour votre aide

Yannick
 

Pièces jointes

  • Classeurlignes.xls
    71 KB · Affichages: 45
  • Classeurlignes.xls
    71 KB · Affichages: 55
  • Classeurlignes.xls
    71 KB · Affichages: 53

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…