XL 2016 Macro-supprimer lignes sans couleur

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 !

Bonjour Telma,
Un essai en PJ avec :
VB:
Sub Nettoie()
Application.ScreenUpdating = False
For L = Range("A65500").End(xlUp).Row To 2 Step -1
    If Cells(L, "A").Interior.Color <> vbWhite Then Cells(L, "A").EntireRow.Delete
    If Cells(L, "A") = "" Then Cells(L, "A").EntireRow.Delete
Next L
End Sub
J'en ai profité aussi pour supprimer les lignes vides.
 

Pièces jointes

Bonjour Telma,
Un essai en PJ avec :
VB:
Sub Nettoie()
Application.ScreenUpdating = False
For L = Range("A65500").End(xlUp).Row To 2 Step -1
    If Cells(L, "A").Interior.Color <> vbWhite Then Cells(L, "A").EntireRow.Delete
    If Cells(L, "A") = "" Then Cells(L, "A").EntireRow.Delete
Next L
End Sub
J'en ai profité aussi pour supprimer les lignes vides.
merci bcp
quand j'ouvre votre fichier et utilise la macro en place ça supprime les lignes en gris au lieu de celles sans couleur 🤔
c'est possible qu'il y aie encore un petit détail à corriger?
 
- 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
7
Affichages
76
  • Question Question
Microsoft 365 Power Query
Réponses
8
Affichages
112
Retour