Bonjour Sim,
Voici ton problème en partie résolu. Ta pénitence est de chercher le post qui m'a permis de répondre à ton problème et sans lequel j'aurai été incapable de t'aider.
Il était question de somme et de motif. Je te laisse le soin de le remercier car c'est lui qui a fourni 90 % du travail.
Pour mes 10 %, j'ai déja été grassement récompensé à l'avance par ce post qui ma ouvert les yeux sur les fonctions maison.
Il te restera ensuite à adapter le système pour ta seconde partie en fonction des polices de caractères.
A plus.
PS : au cas ou la pièce jointe ne passe pas, voici le code des fonctions :
Function MonMotif(ZoneRecherche As Object, MotifReference As Range) As Integer
Application.Volatile
MonMotif = 0
For Each cellule In ZoneRecherche
If cellule.Interior.ColorIndex <> xlNone Then
If cellule.Interior.ColorIndex = MotifReference.Interior.ColorIndex Then MonMotif = MonMotif + 1
End If
Next cellule
End Function
Function MonMotifsomme(ZoneRecherche As Object, MotifReference As Range) As Integer
Application.Volatile
MonMotifsomme = 0
For Each cellule In ZoneRecherche
If cellule.Interior.ColorIndex <> xlNone Then
If cellule.Interior.ColorIndex = MotifReference.Interior.ColorIndex Then MonMotifsomme = MonMotifsomme + cellule.Value
End If
Next cellule
End Function
Ensuite, les formules sont les suivantes :
- en B15 : =+monmotif($B6:$F6;B$14) que tu peux ensuite copier de B15 à B19, puis en D, F, H, J
- en C15 : =+monmotifsomme($B6:$B6;B$14) à recopier.
Attention pour tes cellules sans couleurs : dans ce cas la fonction ne fonctionne pas !! Cependant, si tu affecte la couleur blanche aux cellules, cela fonctionne !