Sélection cellules par couleur et suppression autres couleurs

Bonjour à toutes et à tous,

Je suis confronté à un souci et j'espère que vous accepterez de bien vouloir m'aider.

Je débute en VBA et j'essaye de bricoler mes macros et recherchant ce dont j'ai besoin sur le forum.

Mais beaucoup de choses m'échappent encore.

Mon objectif est de sélectionner des cellules d'une couleur (vert dans mon exemple) puis de supprimer toutes les autres cellules de couleurs différentes.

Je suis sur excel 2003 et je ne parviens pas à filtrer par couleur.

Donc j'ai essayé de procéder en 2 étapes:

• la sélection des cellules de couleurs, c'est OK. Mais le copier coller ne marche pas.
• donc j'essaye de supprimer les autres couleurs. Et la j'ai une erreur "la formule que vous avez tapée contient une erreur".

Voici mon code:

Sub couleur()
Dim C As Range, Rg As Range

With Worksheets("Feuil1") 'Adapte le nom de la feuille
   .Select

   For Each C In .Range("B3:F16")
       If C.Interior.ColorIndex = 4 Then
           If Rg Is Nothing Then
               Set Rg = C
           Else
               Set Rg = Union(Rg, C)
           End If
       End If
   Next
   Rg.Select

End With
End Sub

 Sub effacer()
  Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Sélectionner les plages à conserver", "Sélection ", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In ActiveSheet.UsedRange
        If Intersect(xCell, xRg) Is Nothing Then
            xCell.Clear
        End If
    Next
    Application.ScreenUpdating = xUpdate
 End Sub

 Sub go()
couleur
effacer
 End Sub

J'ai mis un tableau en exemple.

Merci par avance pour vos conseils!

bonjour

règle A/

les couleurs ne doivent JAMAIS être mises en manuel, toujours par MFC

(sauf les couleurs fixes bien entendu)

ainsi tous les traitements de données sont beauuuuuuuuuucoup plus faciles

tris, filtres, TCD, formules, sommes conditionnelles, statistiques, graphiques etc.

sans complexité, sans VBA, presque sans rien

tu connais les MFC ?

note : JAMAIS de cellules fusionnées, sources de problèmes également

note 2 : même si tu as besoin de VBA, le code sera plus simple si tu respectes A/

amitiés