salut les amis
j'ai un tableau qui comporte 50 ligne
je veut créer un macro ou bien quelque chose d'autre de tels façon que si le plages des nom n'est pas rempli le macro supprimes toute les lignes et laisse seulement le tableau rempli jusqu'au dernière nom enregistrer
dans cette exemple supprimer les lignes de n°22 au n° 50
merci
Re : supprimer des lignes en fonction de la valeur de cellule
Re-bonjour, bahnini mohamed , le Forum,
Comme ceci ?
Code:
Option Explicit
Sub Ligne_supprimer()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "e").End(xlUp).Row To 2 Step -1
If Range("e" & i).Offset(, -1) = "" Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub
Re : supprimer des lignes en fonction de la valeur de cellule
Bonjour à toutes et à tous,
Comme suite à la demande formulée par message privé, remplacer le code déposé en #2 par le suivant :
Code:
Option Explicit
Sub Ligne_supprimer()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "j").End(xlUp).Row To 2 Step -1
If Range("j" & i).Offset(, 2) = "" Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub