Crée une boucle

[abtony]

Bonjour,
comment crée une boucle sur ce code .

Sub SuppressionLignesVierges()
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(-9, 0).Range("A1").Select
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Rows("1:9").EntireRow.Select
Selection.Delete Shift:=xlUp
Selection.FindNext(After:=ActiveCell).Activate
End Sub


merci pour les réponses

 

[jeanpierre]

Re : Crée une boucle

Attendre pour voir et ne pas faire dix fois l'inverse.

 

[Staple1600]

Re : Crée une boucle

RE



Je m'étais arrêté sur:

je dois sélectionner 6 lignes

Mea culpa

 

[pierrejean]

Re : Crée une boucle

re

Mes excuses Staple , je croyais que ton code avait été testé et je ne l'avais pas regardé
Il faut que je me penche sur le resize !!!

 

[abtony]

Re : Crée une boucle

je précise que ces feuilles sont convertis depuis une base pdf et les cellules se trouvent fusinner d'office ! je dois faire cette manip sur une trentaine de pdf a convertir en xls et supprimer ces lignes en questions, qui peuvent etre de l'ordre de six ou neuf ca je modifie ensuite sur la macro

merci encore pour votre aide !

 

[Staple1600]

Re : Crée une boucle

Re

->pierrejean: j'ai testé mon code avant de le poster
puis j'ai testé le tien et j'ai constaté un résultat identique

Je n'ai pas encore testé celui de bhbh.

->abtony:

convertis depuis une base pdf et les cellules se trouvent fusinner d'office

Tu convertis de quelle manière?

 

[abtony]

Re : Crée une boucle

je convertis avec PDF transformer 2, qui est très fiable car j'en suis a ma 6 ème page de traitement et ca fonctionne, je convertis ensuite le format texte en chiffres en remplaçant le point par la virgule en faisant rechercher remplacer.

Le but de cette manip et de me crée ma base de prix sous excel avec les different corps d'états, un par page

 

[pierrejean]

Re : Crée une boucle

Apres reflexion a partir des cellules grisées mon code devient:

Sub test()
Application.ScreenUpdating = False
For n = 1 To Range("A65536").End(xlUp).Row
  If Range("A" & n) = "" Then
  Rows(n & ":" & n + 8).Delete
  End If
Next n
Application.ScreenUpdating = True
End Sub

j'examine celui de bhbh mais je me suis fait une opinion sur ses productions et je ne doute pas du tout du resultat !!

 

[Staple1600]

Re : Crée une boucle

Re



Et pourquoi tu ne défusionnes pas les cellules par macro?




edit--> pierrejean: moi non plus je ne doute pas des qualités "d'exceleur" de bhbh
(C'est lui qui doute parfois de ses neurones ---- private joke----- )

 

[Cousinhub]

Re : Crée une boucle

Re-,
Pierrejean, en aurais-tu oublié les fondamentaux????
une suppression de ligne entière se fait toujours Step -1....

 

[abtony]

Re : Crée une boucle

pierre jean votre code fonctionne a merveille !

Un grand merci a vous tous.
je doute pas de vos capacité et j'espere arrivée un jour a votre niveau !!!
Bravo

 

[Cousinhub]

Re : Crée une boucle

Re-,
je reviens, en faisant également mon mea-culpa, une petite (mais significative) erreur de code.....

le nouveau :

Sub efface_superflu()
Application.ScreenUpdating = False
For i = [A65000].End(xlUp).Row To 7 Step -1
If Cells(i, 1).Value = "" Then Cells(i - 8, 1).Resize(9, 1).EntireRow.Delete: i = i - 9
Next i
End Sub

Par contre, avec ce nouveau code, j'extrais 116 lignes, avec le code de pierrejean, j'extrais 106 lignes, les 10 premières sont supprimées.....
on va y arriver....

 

[abtony]

Re : Crée une boucle

oui en effet le code de pierre jean supprime les dix premières lignes mais j'ai trouvé l'astuce et ca roule