Supprimer plusieurs lignes avec condition depuis un bouton

bonjour,

le principe de base dans la suppression de ligne par macro est de commencer par la dernière ligne, et remonter à la première, afin de ne pas laisser de lignes en route.

Voici une macro qui devrait fonctionner :

Sub SupprLignes()
dim derligne As Integer
dim numligne As Integer

derligne = Sheets("test300").Cells(Rows.Count, 14).End(xlUp).Row

For numligne = derligne To 2 Step - 1
      If IsEmpty(Cells(numligne, 14)) Then
            Rows(numligne).Select
            Selection.entireRow.Delete
      End If

Next 
End sub

Cordialement.

salut
je t'ai fait une macro basique à adapter ligne par ligne
attention si tu a fusionné des lignes il masquera les deux

Sub masque()

'Masque les lignes 1 si la case N1 est égal à zéro
If Range("N1") = "0" Then
Rows("1").Select
Selection.EntireRow.Hidden = True
End If

'Affiche les lignes 1 si la case N1 n'est pas égal à zéro
If Range("N1") > "0" Then
Rows("1").Select
Selection.EntireRow.Hidden = False
End If

voila en espérant que cela t'ira bonne journée a toi

Bonjour

Je viens de modifier un petit peux ma demande, j'ai trouver une solution pour remplacer les cellules vide pas un 0, et j'ai donc trouver une macro qui marche presque bien.

Dim rcel As Range
Range("N2").Select
Selection.CurrentRegion.Select
For Each rcel In Selection
If rcel.Text = 0 Then
rcel.EntireRow.Delete
End If
Next rcel

Le seul soucis c'est que si la ligne 3 est vide, elle est bien supprimée, et donc la ligne 4 devient 3, donc celle-ci ne passe pas dans ma macro et ne peux donc pas être supprimé.

Merci

Bonjour,

Peut-^tre + simple

Sub Supprimer_si_vide() 
    Dim Ligne As Long 
    On Error Resume Next 
   With ActiveSheet 
     Ligne = .UsedRange.Rows.Count 
     .Range("N1:N" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
    End With 
End Sub

https://excel.developpez.com/faq/?page=Feuille#SupprimeCellLigneVide

Michel