Supprimer des cellules selon la couleur_macro VBA

uly2562 Messages postés 86 Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjours. Je souhaiterai créer une macro dans le but de supprimer beaucoup de cellule, selon leur couleur. Pour être plus précis, selon 2 couleurs(rouge, et jaune). Je ne suis pas encore un adepte du VBA, c'est pour sa que je demande conseil :).
merci d'avance
A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 2 433
 
Bonjour

On ne peut pas "supprimer" une cellule, par contre on peut effacer son contenu, sa couleur, ... Un exemple 

Const rouge = 3
Const jaune = 6

Public Sub RAZRougeJaune()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
  If c.Interior.ColorIndex = rouge Or c.Interior.ColorIndex = jaune Then
    c.Value = ""
    c.Interior.ColorIndex = xlNone
  End If
Next c
Application.ScreenUpdating = True
End Sub

bonne fin de journée
0