SOMME.SI critère couleur

Michel

voici le code de ma case à cocher

Private Sub CheckBox1_Click()
If Checkbox1.Value = True Then
[F56] = [D56]
[J56].Font.ColorIndex = 3

Else
[F56] = ""
[J56].Font.ColorIndex = 0
End If
End Sub

j'aimerais donc additionner les cellules J pour lesquelles seulement j'ai cocher la case donc qui est de couleur ?

ma question est donc puisque je n'y connais rien en VBA, comment j'écris la formule de la somme avec une couleur à numéro VBA ? et ensuite comment j'associe ce code avec ma cellule ou je veux que l'addition se fasse.

Merci d'être précis car je n'y connais vraiment rien ....

le problème c'est qu'elle n'est pas fini, je voulais comprendre le principe afin de faire tout le tableau ensuite car j'ai une centaine de checkbox a faire,

ya vraiment pas un code que tu peux m'écrire avec un exemple de couleur et de case que je pourrais ajuster après ?

si j'ai le code écrit je pourrai me débrouiller, mais j'ai besoin d'un exemple avec plusieurs cellule et une couleur en chiffre VBA.

disons que je veux additionner les cellules A56 a J56 parmi lesquels les chiffres sont marron couleur 53

merci de ton aide

Re,

Voici une fonction qui te calcule automatiquement la somme des "marron53"

Function additionner_marron(plage As Range)
Dim cellule As Range, total As Double
For Each cellule In plage
If cellule.Font.ColorIndex = 53 Then
total = total + cellule
End If
Next
additionner_marron = total
End Function

installation:
c'est à copier-coller dans un module de VBE. TU as le comment faire dans la rubrique "astuces" de CCM rédigé par notre ami gbinforme (c'est bien ton article gbinforme, merci)
http://www.commentcamarche.net/faq/sujet 8130 mise a jour d une procedure ou d une fonction en vba

ensuite
insertion-fonctions-fonctions personnalisées tu cliques sur "additionner_marron" et tu sélectionnes la plage
(A56:J56) dans ton message


les checkbox:
il faut que je recherche dans mon grenier doliprane une technique pour les 100 Checkbox; donc certainement demain...

Bonsoir,

J'avais préparé un truc mais michel a été plus rapide que moi...
Je le met quand même et en plus ça me dispense des explications complètes qu'il vient de te fournir.

La différence avec la macro de michel c'est que, pour apporter plus de souplesse vu ton indécision sur les couleurs, tu peux la définir dans une cellule. Et michel t'a fait une fonction personnalisée, ici c'est une macro à lancer.

Choisi une cellule sur ta feuille, K1 par exemple, et tu nommes ta cellule Total1 (respecte la majuscule).
Tu colles ce code comme t'a expliqué michel au-dessus :

Sub total1()
    Dim c As Range, tot1 As Double
    For Each c In [J56:J58]
        If c.Interior.ColorIndex = Range("Total1").Interior.ColorIndex Then
            tot1 = tot1 + c.Value
        End If
    Next c
    Range("Total1").Value = tot1
End Sub

Tu mets ta couleur de fond dans K1, tu lances la macro, le total des cellules (dans J56:J58) ayant la même couleur de fond que K1 est mis dans K1.
exemple

eric

Re, Eric

En définitive j'ai laissé tomber la fonction pour revenir à 1 sub pramétrée car la fonction se déclenchait chaque fois que l'on cochait ou décochait avec des résultats aberrants!

donc dans le module1 on a:

Sub additionner_53(plage As String)
Dim cellule As Range, total As Double
For Each cellule In Range(plage)
If cellule.Font.ColorIndex = 53 Then
total = total + cellule
End If
Next
Range("K56") = total
End Sub

et dans le modulefeuil1:

Private Sub CheckBox1_Click()

If CheckBox1 Then
[F56] = [D56]
[J56].Font.ColorIndex = 53
Else
[F56] = ""
[J56].Font.ColorIndex = vbnothing
End If
additionner_53 ("A56:J56")
End Sub

ci joint tit'  démo

https://www.cjoint.com/?fnswKQcqWS

Le gros boulot reste le paramétrage des 100 Checkbox mais j'ai pas envie, Asfero, de t'embarquer dans des modules de classe... A moins qu'Eric ou qqn d'autre connaisse une astuce pour faire ces paramétrages tranquillou...