Modifier couleur cellule

fifounet à dit:

Merci pour vos réponses
stemsy j'ai fait ceci:

Public Sub changercouleur()
Dim Cellule As Range
Dim nombre As Variant
Range("A1:AA400").Select
For Each Cellule In Selection
If Cellule.Interior.Color = RGB(255, 204, 153) Then
nombre = nombre + Cellule.Count
Cellule.Interior.Color = RGB(0, 0, 0)
End If
Next
End Sub

ça marche bien sur la feuille en cours mais ça boucle pas sur les autres onglets du classeur
et je ne sais pas comment modifier ta macro !

merci de m'éclairer un peu plus
fifounet

Cliquez pour agrandir...

Sub changercouleur()
Dim Cell As Range
Dim nombre As Long
Dim F As Worksheet
For Each F In Sheets
    For Each Cell In F.UsedRange
        If Cell.Interior.Color = RGB(255, 204, 153) Then
            nombre = nombre + 1
            Cell.Interior.Color = RGB(0, 0, 0)
        End If
    Next Cell
Next F
End Sub

fifounet à dit:

Merci Gorfael
(entre gens du vignoble Nantais c'est sympa l'entraide !)
ça marche impeccable !
par contre autre petit souci :
si je modifie une couleur exemple RGB(255, 204, 153)
par RGB(255, 204, 102) et bien ça marche plus !
est ce qu' Excel "arrondi" a une valeur connue pour lui ? ici RGB(255, 204, 153) "brun"
y a t il un truc pour contourner ceci ?
merci aussi stemsy
a+
fifounet

Cliquez pour agrandir...