Changer la valeur en fonction de la couleur de la cellule

Hello la commu, j'aimerai que lorsque que je colorie en jaune une valeur elle s'ajoute dans C

Exemple :

A = vert donc pas dans C

B = jaune donc dans C

C = total des valeurs jaune

Merci beaucoup :)

Bonjour

Avec ce fil vous devriez trouver la solution à votre souci

Somme Si Couleur

si ok -->

Cordialement

Re,

Merci de votre réponse.
Je ne comprend pas du tout comme faire après avoir fait le script..
Pouvez-vous m'aidez ?

Je ne comprend pas du tout comme faire après avoir fait le script..
Pouvez-vous m'aidez ?

bah pas simple sans voir votre fichier (sans données confidentielles)
Sinon prenez le fichier dans le fil dont je vous ai posté le lien puis vous suivez ce que j'ai écrit

Je vous envois mon fichier :)

Dans votre fichier en B6 on lit "car F25 en jaune"

C'est F25 ou B2 ?

Edit : en attendant votre confirmation, faites ceci

Placer le code dans VBE comme ceci :

• Sur le clavier, appuyez sur les touches ALT + FN + F11 (ou ALT + FN +F11) pour accéder à VBE (éventuellement vous devriez voir l'onglet developpeur dans le menu excel)
• Allez dans le Menu / Insertion et choisissez l'option "Insertion" -> "Module"
• Dans la fenêtre vierge, collez le code ci-dessous

Function SommeSiCouleur(Plage As Range, NumeroDeCouleur As Long) As Long
Application.Volatile True
Dim Cel As Range
For Each Cel In Plage
    If Cel.Interior.Color = NumeroDeCouleur Then
        SommeSiCouleur = SommeSiCouleur + Cel.Value
    End If
Next Cel
End Function

En B6, mettez cette formule --> =sommesicouleur(B1:B5;65535) avec :
- B1:B5 étant la plage de données
- 65535 étant la couleur Jaune placée dans votre fichier

- Enregistrer votre fichier au format XLSM (pour accepter l'utilisation des macros)

Si ok -->

Re,

Excusez moi de mon temps de réponse, j'ai du me déconnecté.
J'ai pu trouvez un tutoriel Youtube qui expliquer en vidéo, donc plus attractif pour ma part. (Yn3DqCQf8Bk)
J'ai crée ceci :

Function SOMMESICOULEUR(cellules As Range)
    Application.Volatile True

    Dim total As Double
    Dim cellule As Range

    For Each cellule In cellules
        If cellule.Interior.Color = Application.Caller.Interior.Color Then
            total = total + cellule
        End If
    Next

    SOMMESICOULEUR = total

End Function

Tout fonctionne correctement à présent.
Je vous remercie de votre aide,

Bonne continuation.