Discussion :

[Cyclemmanuel]

Bonjour, je traite un fichier excel de 25916 lignes (en l'occurence) et ai crée une colonne A ou seules les lignes m'intéressant de garder (dans l'ordre) sont non vides.
Ne sachant pas VB, pourriez vous me fournir le code pour supprimer systématiquement les lignes dans la cellule en colonne A est vide, (et garder le résultat dans l'ordre).
Cordialement,
Emmanuel

[kiki29]

Salut, susceptible d'ajustements, à adapter
surtout pour LastRow

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Sub Tst()
Dim LastRow As Long
Dim i As Long
 
    Application.ScreenUpdating = False
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For i = LastRow To 1 Step -1
        If Feuil1.Range("A" & i) = "" Then
            Feuil1.Rows(i & ":" & i).Delete Shift:=xlUp
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Autre version

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub Tst()
Dim LastRow As Long
Dim i As Long
 
    Application.ScreenUpdating = False
 
    LastRow = Split(Feuil1.UsedRange.Address, "$")(4)
    For i = LastRow To 1 Step -1
        If Feuil1.Range("A" & i) = "" Then
            Feuil1.Rows(i & ":" & i).Delete Shift:=xlUp
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

[gFZT82]

Bonjour,

Et avec ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Cordialement.