Supprimer des lignes avec une boucle récurrente

[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.
Voici un fichier exel avec des explications en plus.
Merci pour votre aide

Yannick

 

[RENAUDER]

Re : Supprimer des lignes avec une boucle récurrente

Bonjour,

En regardant le fichier, ce sont en général les lignes où Function Description ou Entity Code qui sont vides que tu dois supprimer ?

 

[Pierrot93]

Re : Supprimer des lignes avec une boucle récurrente

Bonjour,

tu as déjà posé la question ici me semble t il :
https://www.excel-downloads.com/threads/effacer-des-lignes-entieres-avec-une-boucle.172388/
et pas donné suite / testé les réponses...

bonne journée
@+

 

[Yannnnick]

Re : Supprimer des lignes avec une boucle récurrente

Bonjour,

Merci pour ta réponse

Ce sont toutes les lignes en rouge.

Cordialement

 

[Yannnnick]

Re : Supprimer des lignes avec une boucle récurrente

Bonjour Pierrot,

Oui c'est vrai je suis désolé de ne pas avoir donné de retour.

Alors j'ai essayé le code mais quand j'esaie de l'adapter à mon fichier j ai une "erreur d'exécution 1004"

mon code :


Dim i As Long, j As Integer

For i = 6228 To 7 Step -16


Rows(i).ClearContents

Rows(i - 117).ClearContents
Rows(i - 105).ClearContents
Rows(i - 87).ClearContents
Rows(i - 80).ClearContents
Rows(i - 32).ClearContents
Rows(i - 63).ClearContents
Rows(i - 57).ClearContents
Rows(i - 53).ClearContents
Rows(i - 51).ClearContents
Rows(i - 48).ClearContents
Rows(i - 46).ClearContents
Rows(i - 36).ClearContents
Rows(i - 34).ClearContents
Rows(i - 29).ClearContents
Rows(i - 22).ClearContents
Rows(i - 16).ClearContents

Next i


Je t'esté votre code sur un tableau avec 100 lignes, ca commence par le bas et efface bien La première ligne puis la 5 puis la 8ème mais aprèe j'arrive pas à comprendre le reste de la serie.

Voila, j'espère que vous pourrez m'aider

Cordialement

 

[Pierrot93]

Re : Supprimer des lignes avec une boucle récurrente

Re,

dans l'autre post, tu disais :

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

d'ou ma réponse... A voir les lignes que tu supprimes, ce n'est plus le cas, donc ceci explique cela....

 

[pierrejean]

Re : Supprimer des lignes avec une boucle récurrente

Bonjour a tous

Il y a erreur dans la coloration des lignes par rapport au rythme (75 -1 ligne=76 et non 77)

La macro suivante realise l'effacement en suivant le rythme demandé (sans se preoccuper du changement en colonne A )

teste et dis nous

Sub test()
deb = 6
Dim nums()
ReDim nums(0)
lignes = Array(4, 13, 18, 7, 17, 6, 4, 1, 2, 1, 10, 1, 5, 7, 6, 16)
limite = Range("A65536").End(xlUp).Row
n = deb
While n < limite
  For m = LBound(lignes) To UBound(lignes)
    n = n + (lignes(m))
    nums(UBound(nums)) = n
    ReDim Preserve nums(UBound(nums) + 1)
  Next m
Wend
For p = UBound(nums) - 1 To LBound(nums) Step -1
  Rows(nums(p)).clearcontents
Next p
End Sub

 

[Yannnnick]

Re : Supprimer des lignes avec une boucle récurrente

C'est bon j'ai reussi. Merci pour votre aide et en particulier à Pierrot!!!!

Bonn journée

 

[Yannnnick]

Re : Supprimer des lignes avec une boucle récurrente

Merci aussi à toi Pierrejean pour ta réponse!!!!!