Supprimer les lignes avant la premières ligne vide

[reve24]

Bonjour

Suite à une extraction d'un ERP , j aimerais supprimer toutes les lignes avant la première ligne vide .

Celle ci peut se situer à la 100 ème ligne comme à la 500 ème ligne

exemple fichier ( supprimer les lignes oranges)

merci d avance

 

[job75]

Re : Supprimer les lignes avant la premières ligne vide

Bonjour reve24, le forum,

Rows("1:" & [A1].CurrentRegion.Rows.Count + 1).Delete

A+

 

[reve24]

Re : Supprimer les lignes avant la premières ligne vide

MERCI JOB75 super

 

[job75]

Re : Supprimer les lignes avant la premières ligne vide

Re,

Si la 1ère cellule remplie n'est pas A1 :

With ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)(1).CurrentRegion
  Rows("1:" & .Row + .Rows.Count).Delete
End With

A+

 

[job75]

Re : Supprimer les lignes avant la premières ligne vide

Re,

Et ceci fonctionnera dans tous les cas de figure :

Sub Supprimer()
Dim r As Range
For Each r In ActiveSheet.UsedRange.Rows
  If Application.CountA(r) = 0 Then Rows("1:" & r.Row).Delete: Exit For
Next
End Sub

Mais l'éxécution est plus longue.

A+

 

[reve24]

Re : Supprimer les lignes avant la premières ligne vide

Super
Un probleme bien exploité et joliment résolu BRAVO