Excel, renseignement sur une cellule

Bonjour,

c'est la couleur rouge, de numéro 255
J'ai pris le rouge des couleurs standards, compatibles excel 2003 : 3
Si vraiment tu y tiens, pour les couleurs du thème il y a plus de propriétés à tester. Que tu peux trouver en enregistrement de macro.

Sub test()
    Dim mini As Double, maxi As Double, c As Range
    mini = Application.Min([F1:H1])
    maxi = Application.Max([F1:H1])
    For Each c In [F1:H1]
        If c.Interior.ColorIndex = 3 Then
            If c = mini Then
                [I1] = "mini"
            ElseIf c = maxi Then
                [I1] = "maxi"
            Else
                [I1] = "entre mini et maxi"
            End If
        End If
    Next c
End Sub

eric

ça marche pas :(
quand j'exécute la macro, rien ne se passe. Et j'ai remplacé le 3 par 255

Je t'avais dit d'utiliser une couleur standard dont le rouge est ColorIndex =3.
Si tu tiens à utiliser 255 remplace ColorIndex par Color

eric

génial j'ai remplacé colorindex par color et ça marche, merci beaucoup :)

je pensais par contre qu'il suffirait de tirer la formule vers le bas pour faire la même chose avec F2:H2, F3:H3, mais apparement je peux pas en fait parce qu'il n'y a pas de formule à l'intérieur de la cellule. Comment je peux faire pour tirer vers le bas lorsqu'il s'agit d'un code VBA alors ?

vba fait exactement ce qu'on lui dit, à condition de savoir exactement ce que tu veux.
Et pas que tu reviennes toutes les 30 min en disant "ah mais oui mais en fait c'est ça que je veux".
Quoi, avec quoi, comment et où.
Dans 30 min tu vas revenir en disant "Ah oui, mais en fait des fois ça se termine en F5:H5"
Et on ne sait toujours pas où tu veux ton résultat. Dans une variable ? Dans la feuille ? Ailleurs ?
Quoi faire si la couleur n'est pas trouvée ?
J'en oublie certainement....
Et un fichier de travail pour mieux expliquer est plus que bienvenu.
eric