Effacer des lignes entiéres avec une boucle

[Yannnnick]

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]

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]

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

 

[natorp]

Re : Effacer des lignes entiéres avec une boucle

Bjr à vous

Pas de fichier joint...???!!!

cordialement, Gérard

 

[Pierrot93]

Re : Effacer des lignes entiéres avec une boucle

Bonjour à tous,

regarde ceci, si cela peut t'aider à avancer, à adapter à ton projet :

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]

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