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

1 réponse

  1. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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