tableau

[VAGUE641]

Bonjour,

Cela fait longtemps que je ne suis pas venue sur le forum...
Je suis en train de faire un calendrier dans lequel je dois séparer deux groupes distincts de deux couleurs différentes.

J'ai une personne travaillant sur deux postes différents dans la même semaine. Je dois comptabiliser les heures par couleurs, ..... mais je ne sais plus comment faire.

Si quelqu'un pouvait m'aider.... merci beaucoup et bonne journée à vous tous

 

[Robert]

Re : tableau

Bonjour Vague, bonjour le forum,

Peut-être comme ça (à adapter) :

Dim cel As Range 'déclare la variable cel (CELlule)
dim tc1 As Double 'déclare la variable tc1 (Total Couleur 1)
dim tc2 As Double 'déclare la variable tc2 (Total Couleur 2)

For Each cel in range("Ta_plage")
     if cel.Interior.ColorIndex = ta_couleur_1 then tc1 = tc1 + CDbl(cel.Value)
     if cel.Interior.ColorIndex = ta_couleur_2 then tc2 = tc2 + CDbl(cel.Value)
Next cel
Range("ou_tu_veux_1").Value = tc1 'place le total de la couleur 1
Range("ou_tu_veux_2").Value = tc2 'place le total de la couleur 2

 

[pierrejean]

Re : tableau

Bonjour VAGUE641

Avec une fonction personnalisée
NB: Attention à modifier si tu ajoutes une colonne pour Janvier

Edit: Salut ROBERT