Effacer contenu cellule selon couleur

[hasardeux]

Salut forum,

Comment pourrais je supprimer le contenu de toutes les cellules d'une feuille donnée (sélectionnée) si ce contenu est écrit en couleur bleu (je connais pas le code de la couleur)


Merci bcp

 

[jeromegmc]

Salut,


Voici une petit macro qui te permet de connaitre le code couleur VBA

Sub PaletteCouleur()
  Dim Couleur As Long
     Application.ScreenUpdating = False
     Cells(1, 1).Value = 'Couleur'
     Cells(1, 2).Value = 'Code Couleur'
  For Couleur = 1 To 56
     Cells(1 + Couleur, 1).Interior.ColorIndex = Couleur
     Cells(1 + Couleur, 2).Value = Couleur
  Next
     Application.ScreenUpdating = True
  End Sub

Besoin d'autre chose?


A+

 

[fifou_istb]

bonjour hasardeux et jeromegmc

voici un petit code qui permet d'effacer le contenu des cellules de font jaune (colorindex=6)

Sub essai()
Dim cell As Range
For Each cell In Selection
If cell.Interior.ColorIndex = 6 Then
    cell.ClearContents
Else
End If
Next

End Sub

en combinant avec le code précédent tu devrait t'en sortir

j'espère que cela d'aidera

 

[hasardeux]

Merci bcp pour votre aide

ça marche impecablement