Fonction couleur

Bonjour

Je souhaite créer une formule du type si() mais qui porte sur la couleur de remplissage d'une cellule.

C'est à dire que je veux par exemple que dans J2 il soit porté "New" si la couleur de I2 est rouge et "old" dans le cas contraire.

A l'aide!!!

Hello,

Version vba (sauf erreur, j'crois pas qu'on puisse tester une couleur sans passer par une macro, ou peut-être avec les MFC)

À tester avec un CommandButton...

Private Sub CommandButton1_Click()

    'Cells(2, 9) = I2
    If Cells(2, 9).Interior.ColorIndex = 3 Then
        'Cells(2, 11) = J2
        Cells(2, 10).Value = "New"
    Else
        Cells(2, 10).Value = "Old"
    End If

End Sub

Salut

Merci beaucoup pour ta réponse.

J'ai pas testé encore mais je pense que ça devrait marché.

Mais comment faire pour toute une plage de donnée.

Car j'aimerai pouvoir recopier cette formule dans toute la colonne J.

Merci encore et si tu as une soluce à ma dernière question...

Re,

Si bien compris..

Private Sub CommandButton1_Click()

    For lign = 2 To Range("I10000").End(xlUp).Row
        If Cells(lign, 9).Interior.ColorIndex = 3 Then
            Cells(lign, 10).Value = "New"
        Else
            Cells(lign, 10).Value = "Old"
        End If
    Next lign

End Sub

Il faut que la dernière cellule soit pleine (pour qu'il connaisse la dernière ligne pleine)