Enlever ligne colorée

[jeanclaude57]

Bonjour

je voudrais savoir si il est possible de rechercher des lignes qui sont d'une certaine couleur dans une feuille excel et les suprimer automatiquement.

Je joint un fichier pour que ce soit clair.


Merci d'avance.



[file name=essai1.zip size=2001]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai1.zip[/file]

 

[Robert]

Bonjour Jean Claude, bonjour le forum,

Cette macro devrait convenir :

Sub Macro1()
Dim Dl As Long, x As Long 'déclare les variables Dl et x

Dl = Range('A65536').End(xlUp).Row 'définit la variable Dl (Dernière ligne éditée de la colonne A)

'boucle sur toutes les cellules editées de la colonne A (en partant de la dernière)
For x = Dl To 1 Step -1
'condition : si la cellule a un motif jaune
If Cells(x, 1).Interior.ColorIndex = 6 Then
Cells(x, 1).EntireRow.Delete 'supprime la ligne
End If 'fin de la condition
Next x 'prochaine cellule de la boucle
End Sub

 

[jeanclaude57]

Merci beaucoup ça fonctionne super.