Discussion :

[Foufoul]

Bonjour,
Pouvez-vous m'aider svp.
Je souhaite calculer le nombre de couleur sur un champ + le chiffre indiqué dans le champ.
Ex : sur une même ligne
CP = couleur bleu
RTT = couleur rouge
Le 07/12 le salarié prend un CP, mais il s’agit d’une demie journée donc on indique dans la colonne 0,5 avec la couleur bleu
Je souhaite que la formule fasse la somme des CP (couleur bleu) en prenant en compte le chiffre une journée (1) ou une demi-journée (0,5).

En pièce jointe un copie écran de mon tableau.

Actuellement voici le code que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function NbColor(ByRef Plage As Range, Couleur As Byte) As Long
    Dim c As Range
    Dim nb As Long
    nb = 0
    For Each c In Plage
        If c.Interior.ColorIndex = Couleur Then
            nb = nb + 1
        End If
    Next c
    NbColor = nb
End Function
 
Function NbColorSameAs(ByRef Plage As Range, ByRef Cellule As Range) As Long
    NbColorSameAs = NbColor(Plage, Cellule.Interior.ColorIndex)
End Function
 
Function NbColorText(ByRef Plage As Range, ByRef Couleur As Byte, text As String) As Long
    Dim c As Range
    Dim nb As Long
    nb = 0
    For Each c In Plage
        If c.Interior.ColorIndex = Couleur And c.Value = text Then
            nb = nb + 1
        End If
    Next c
    NbColorText = nb
End Function
 
Function NbColorAndTextSameAs(ByRef Plage As Range, ByRef Cellule As Range) As Long
    NbColorAndTextSameAs = NbColorText(Plage, Cellule.Interior.ColorIndex, Cellule.Value)
End Function

Merci pour votre aide.
Bonne journée.