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

  • Initiateur de la discussion Initiateur de la discussion Angelista
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Angelista

XLDnaute Occasionnel
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
 

Pièces jointes

Dernière édition:
Re : Suppression ligne si plusieurs cellules définies sont vides

Bonjour,
Voici une macro à essayer :

VB:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
2 K
M
Réponses
6
Affichages
1 K
M
Retour