VBA condition couleur

[esylenna]

Bonjour,

Actuellement en fin de stage, je dois traiter un tableau excel que j'ai créer. J'aimerais simplifier son utilisation pour qu'il soit accessible après mon départ.

J'aimerais créer une formule du type: si ma cellule A1 feuille 1 est verte alors = 0 sinon =100

J'ai consulté une de vos discussion sur le sujet mais ne connaissant pas le language VBA, je ne m'en sors pas du tout.

J'ai essayé:
=SI(Interior.ColorIndex(Données!J5)=(#339966);0;100)
=SI(Interior.ColorIndex(Données!J5)=[color 50];0;100)
=SI(couleurfond(Données!I5)=#339966;0;"")

Pourriez-vous m'aider?

Anne-Lyse

 

[mephis]

Re : VBA condition couleur

Voilà mais ça ne fonctionne que avec du vert clair

Cordialement Jérémie

 

[VDAVID]

Re : VBA condition couleur

Bonjour Esylenna, Mephis,
Un autre test par macro en P.J, qui vérifie sur toutes les feuilles en fonction de la couleur choisie en [B1] de la feuille "Code couleur".

Bonne journée !

 

[esylenna]

Re : VBA condition couleur

Merci beaucoup! C'est très gentil!

Bonne journée!

 

[Hulk]

Re : VBA condition couleur

Hello tout le monde,

Autrement, si j'ai bien compris ce que tu voulais, avec une (simple) petite fonction personnalisée dans un module standar (à améliorer si tu veux)...

Function testCouleur(cel As Range) As Integer

    Dim code As Integer
    
    If cel.Interior.ColorIndex = 4 Then
        code = 0
    Else
        code = 100
    End If
    
    testCouleur = code

End Function

Exemple d'utilisation :

A1 en fond vert
B1 = testCouleur(A1) -> résultat = 0

A2 en fond rouge
B2 = testCouleur(A2) -> résultat = 100


Voir le fichier joint.