Besoin d'une boucle

[Dennnisss]

Salut a tous

J'ai a effacer une feuille de calcul avec incrementation de 47 , il faut que je l'efface 120 fois et il sont tous intercaller de 47

Exemple des lignes a effacer Range("B8:E31").clearcontent
Range("B55:E88").clearcontent
Range("B102:E135").clearcontent
Range("B149:E182").clearcontent
Ect...............
120 fois
Donc je suis a la recherche d'une boucle pour effacer ces donnees
Alors besoin de vous svp

merci dennnisss😉 😉

 

[tirex28]

Re : Besoin d'une boucle

Bonsoir,

Sub SupprimeLignes()
For i=120 to 1 Step -1
Cells(8+i*47,1).Entirerow.Delete
Next
End Sub

8 car ta plus haute ligne est la numero 8, on efface en commencant par le bas pour eviter de tout decaler.

Par prudence essaye sur une copie de ton fichier.
Cordialement,

Tirex28

 

[wilfried_42]

Re : Besoin d'une boucle

bonjour à tous

for i = 8 to 8 + (47*119) step 47
range("B" & i & ":E" & (i+33)).clearcontents

next i

verifie : ton premir exemple n'a que 23 lignes ----> B8:E31
les autres ont 33 lignes

 

[Pierrot93]

Re : Besoin d'une boucle

Bonjour à tous

wilfried, je comprends pas trop ton code 0 X 47 doit donner 0, d'autre part manque le next.

bonne journée
@+

 

[wilfried_42]

Re : Besoin d'une boucle

bonjour pierrot

lors de la frappe, j'ai tellement l'habitude de le touche TAB pour decaller mes lignes que j'ai envoyé le message involontairement, sans l'avoir fini.........

Je l'ai repris en modification

 

[Pierrot93]

Re : Besoin d'une boucle

Re

à la première occurence de ta boucle tu as toujours un 0 * 47, a mon avis ca doit boguer...

J= 0
for i = 8 to 8 + (47*119) step 47
range("B" & (8 + (j * 47))

@+

Edition : peut être commencer par j = 1, a tester...

 

[wilfried_42]

Re : Besoin d'une boucle

re:

incident de parcours, je fais toujours une frappe, ensuite je verifie, la touche TAB (que j'utilise fréquemment) .......... : Maintenant ma boucle est ok

 

[Dennnisss]

Re : Besoin d'une boucle

Salut Pierrot93 , Wilfried42 , Tirex28

J'ai essayer vos solutions et j'ai arreter sur celle-ci

for i = 8 to 8 + (47*119) step 47
range("B" & i & ":E" & (i+33)).clearcontents
next i


Elle fonctionne correctement alors merci a tous j'apprecie avoir eu autant d,aide et ce que j'ai chercher alors vous m'avez aider a mon enigme
Je vous remercie tous et apprecie votre devouement et votre aide


Merci ,merci , merci dennnisss 😉 😉