Supprimer les lignes avec un saut arithmétique

[anthoYS]

Bonjour,

Voila, je m'explique, pour être clair le fait est que j'ai un fichier comportant des données copié d'internet, et cela provoque des lignes blanches donc inutiles...

En fait je souhaite obtenir la macro qui supprimera 4 lignes de suites à partir de la 8ème inclus, ainsi on laissera la 12, puis les 4 suivantes, on laissera la 17... ainsi de suite...
On peut résumer la situation ainsi (boulot de la macro) : cherchez jusqu'à la ligne 8, une fois dessus sélectionnez celle-ci plus les 3 suivantes, sautez la suivante, puis recommencez, à savoir sélectionnez les 4 (jusqu'à ligne 29000), etc. et supprimez le tout.

Voilà, j'espère avoir été clair et net, sinon vous pouvez vous reporter au fichier joint sur ce lien.

Merci à vous pour votre future aide 😉

Edit : les premières séries de lignes à supprimer apparaissent en fond jaune sur le fichier.

 

[Minick]

Re : Supprimer les lignes avec un saut arithmétique

Salut,

J'ai considere que la colonne D avait toujours une valeur (0 ou autres):

Feuil1.Range("D8:D" & Feuil1.UsedRange.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[anthoYS]

Re : Supprimer les lignes avec un saut arithmétique

Re,

Merci Minick,

Quid de ceci?

Feuil1.Range("D8😀" &

Et que dire de ce que tu a mis dans le code?

De quoi s'agit-il?

Comment l'exécuter?

Merci

 

[Minick]

Re : Supprimer les lignes avec un saut arithmétique

Re,

J'ai modifie mon post avant ta reponse, j'avais mal selectionne le texte
pour mes balises Code.

Et le code tout simplement a mettre dans un module standard...

 

[anthoYS]

Re : Supprimer les lignes avec un saut arithmétique

oK. Voilà qui est plus clair.

Merci Minick.

 

[Minick]

Re : Supprimer les lignes avec un saut arithmétique

Avec quelques fioritures pour accelerer un peu le traitement:

Sub SuppVide()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Feuil1.Range("D8:D" & Feuil1.UsedRange.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

 

[anthoYS]

Re : Supprimer les lignes avec un saut arithmétique

Merci à toi.

 

[mercant76]

Re : Supprimer les lignes avec un saut arithmétique

bonjour,

une autre solution

@+

 

[anthoYS]

Re : Supprimer les lignes avec un saut arithmétique

bonjour mercant76,

Merci.