XL 2019 Additionner des cellules Excel en fonction de leurs couleurs

[frederio]

Bonjour A tous,
Tu vous connais comment faire code vba

la plage L4 à N86 des calculs en fonction de la couleur

Comment faire somme total sur bouton vba

 

[sylvanu]

Bonjour Frederico,
Un essai en PJ avec :

Sub SommeSiVert()
    Dim c, Somme
    For Each c In [L4:N86]
        If c.Interior.Color = RGB(0, 176, 80) Then Somme = Somme + c.Value
    Next c
    MsgBox " La somme des cellules en vert est de : " & Somme
End Sub

Evidemment la couleur ( vert ) ne doit pas changer.

 

[frederio]

Par exemple :
comment faire couleur vert somme total merci

 

[sylvanu]

Re,
La PJ #2 marche t-elle comme demandé ? Vous pourriez au moins dire si c'est ok ou non.
Juste pour éviter de croire qu'on bosse pour rien.
Pour ce nouveau point, un bouton est inutile, il suffit de cette fonction pour être automatique :

Function SOMMESICOULEURVERT(cellules As Range)
    Dim total As Double, c As Range
    For Each c In cellules
        If c.Interior.Color = RGB(0, 176, 80) Then total = total + c
    Next c
    SOMMESICOULEURVERT = total
End Function

 

[frederio]

Par exemple :

 

[sylvanu]

La PJ #2 marche t-elle comme demandé ? Vous pourriez au moins dire si c'est ok ou non.
Juste pour éviter de croire qu'on bosse pour rien.

Pas de réponse ?
Donc moi non plus.

 

[frederio]

non c'est marché pas

 

[frederio]

mon video comment faire ex :

 

[sylvanu]

Un essai.

 

[frederio]

c'est parfait ! merci beaucoup

 

[laurent950]

Bonsoir ,

En Poste #5 exercice solution : TP VBA | Additionner des cellules Excel en fonction de leurs couleurs

Sub sommeCouleurs()
Application.Volatile
Dim sommeCouleurs As Double
sommeCouleurs = 0
Dim Couleur As Range
Dim chaqueCellule As Range
Dim Plg(0 To 1) As Range
    Set Plg(0) = Range(Cells(1, 3), Cells(5, 3)) ' ......... Plage de Couleur de C1:C5
    Set Plg(1) = Range(Cells(1, 1), Cells(10, 1)) ' ........ Faire la somme en fonctions des Couleurs de A1:A10
    Plg(0).ClearContents ' ................................. Efface le résultat Précédemment stocké C1:C5
    For Each Couleur In Plg(0) ' ........................... Plg(0) Plage de Couleur de C1:C5
        For Each chaqueCellule In Plg(1) ' ..................Plg(1) Plage des Valeurs en fonction des Couleurs de C1:C5
            If (chaqueCellule.Interior.ColorIndex = Couleur.Interior.ColorIndex) Then ' Condition
                sommeCouleurs = sommeCouleurs + chaqueCellule.Value ' Somme en Fonction des couleurs
            End If
        Next chaqueCellule
        Couleur.Value2 = sommeCouleurs: sommeCouleurs = 0 ' Stock le Résultat, et Remise a Zéro de la variable sommeCouleurs
    Next Couleur
sommeCouleurs = Empty: Set Couleur = Nothing: Set chaqueCellule = Nothing: Erase Plg
End Sub