Supprimer des cellules selon la couleur_macro VBA

Fermé
uly2562 Messages postés 70 Date d'inscription dimanche 9 janvier 2011 Statut Membre Dernière intervention 28 juillet 2014 - 4 juin 2013 à 14:04
ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 - 4 juin 2013 à 18:05
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

ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 2 404
Modifié par ccm81 le 4/06/2013 à 18:06
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