[Résolu] Suppression ligne si plusieurs cellules définies sont vides

[Angelista]

Bonsoir à tous,

Alors voilà, j'ai besoin de vos lumières pour une macro qui supprimerait les lignes dont les celulles allant de D à M sont vides, dans le tabeau joint cela reviendrai à faire supprimer toutes les lignes en jaunes.
J'ai bien une idée avec des si imbriqués mais je pense qu'il doit avoir beaucoup plus simple en macro avec une boucle + dernière ligne

Voilà ce que j'avais fait sans macro mais heuuu c'est très moche

=(SI(D3="";SI(E3="";SI(F3="";SI(G3="";SI(H3="";SI(I3="";SI(J3="";SI(K3="";SI(L3="";SI(M3="";"A supprimer";"A garder");"A garder");"A garder");"A garder");"A garder");"A garder");"A garder");"A garder");"A garder");"A garder"))

Merci à vous

 

[Grand Chaman Excel]

Re : Suppression ligne si plusieurs cellules définies sont vides

Bonjour,
Voici une macro à essayer :

Sub EffacerLignes()
   Dim derLign As Long
   Dim i As Long
   
   Application.ScreenUpdating = False
   With Sheets(1)
      derLign = .Range("A" & .Rows.Count).End(xlUp).Row
      For i = derLign To 1 Step -1
         If WorksheetFunction.CountA(.Range(.Cells(i, "D"), .Cells(i, "M"))) = 0 Then
            .Rows(i).EntireRow.Delete
         End If
      Next i
   End With
   Application.ScreenUpdating = True
   
End Sub

A+

 

[Angelista]

Re : Suppression ligne si plusieurs cellules définies sont vides

Bonjour,

Merci à toi Grand Chaman Excel, ça marche super bien.

Encore Merci.

Bonne soirée.

Angelista.