Supprimer les lignes lorsque cellule en I est vide

Bonjour a tous, histoir de reduire ma feuille excel, j'aimerais pouvoir supprimer toute les lignes dont la cellule en I est vide.

Quelqu'un a une idee?

Salut Capicin,

Voici un code qui devrait faire l'affaire :

Option Explicit

Option Explicit

Sub aa()
Dim i As Integer

Application.ScreenUpdating = False

For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If Range("I" & i) = "" Then Rows(i).Delete
Next

End Sub

Cordialement.

Bonjour,

A tester et à adapter.

Cdlt

Option Explicit
Public Sub Delelete_L_rows()
Dim ws As Worksheet
Dim lrow As Long, i As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Feuil1")
    With ws
        lrow = .Range("L" & Rows.Count).End(xlUp).Row
        For i = lrow To 2 Step -1
            If IsEmpty(.Cells(i, "l")) Then Rows(i).Delete
        Next
    End With
End Sub

Bonjour à tous,

Une solution sans macro.

1- Sélectionner la colonne I

2- Appuyer sur F5

3- Cliquer sur Cellules / Cellules vides / OK

4- Les cellules vides étant sélectionnées, faire un clic droit / Supprimer / ligne entière / OK

5- Le tour est joué !

@Yvouille : ça fait un bail

Bonjour a vous trois

VBA-new: Je tiens a utiliser une macro commander par un bouton, mais je garde ton idee.

J'ai fait un mixe des 2 macro et cela fonctionne tres bien. Merci

Private Sub CommandButton14_Click()  '<Clean>  enleve les lignes dont la cellule en "I" est vide
    Dim lrow As Long, i As Long
        Application.ScreenUpdating = False

            lrow = Range("I" & Rows.Count).End(xlUp).Row
            For i = lrow To 2 Step -1
          ' For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1  autre methode
                If Range("I" & i) = "" Then Rows(i).Delete
               'If IsEmpty(Cells(i, "I")) Then Rows(i).Delete  autre methode
            Next

End Sub

Salut Capucin,

Avec ta solution, si tu as une ligne en dernière position qui ne comporte rien dans la colonne I, elle ne sera pas effacée

De plus tu n'as rien fait d'autre que de compliquer ma proposition en passant par la détermination d'une variable utilisée plus loin (mais c'est inutile dans ce cas-là) !

Bonnes salutations.

Pour ce qui est de la derniere ligne, dans mon application (assembleur pour micro processeur z80), s'il y a quelque chose d'ecrit en i, le VBA mettra automatiquement quelque chose dans les colonnes precedentes

Merci pour ton commentaire constructif. Je prend note de tout ca.

Capucin