Discussion :

[baudge]

Bonjour,

Je dois gérer une équipe professionnelle dans le cadre de mon boulot. Je dois donc organiser le temps de travail de chacun.

Je fonctionne avec un tableau excel (en pièce jointe), et applique un fond de cellule coloré si le salarié est en activité ou non.

Plutôt que de compter moi même les heures effectuées par chaque personne chaque jour de la semaine, j'aimerais trouver une formule (fonction ou macro) qui le fasse à ma place, et qui soit facilement duplicable (6 lignes par jour, 7 jours dans la semaine)

Il faudrait que le résultat soit marqué en colonne BJ, comptant alors les cellules de couleur (périodes travaillées) su la ligne correspondante.

Merci de votre aide !

[edelweisseric]

Bonjour à tous
Bonjour baudge

J'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function CompteCouleurFond(champ As Range, couleurFond)
  Dim c As Range
  Dim temp As Integer
    Application.Volatile
    temp = 0
    For Each c In champ
      If c.Interior.ColorIndex = couleurFond Then
         temp = temp + 1
      End If
    Next c
    CompteCouleurFond = temp
End Function

dans la cellule D3 (exemple):

Code :

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

=comptecouleurfond(E3:M3;4)

E3:M3 étant la plage à compter
et 4 la couleur
A toi d'adapter (je n'ai pas ouvert ton fichier)
Eric

[jfontaine]

Bonjour,

Dans le meme genre que edelweisseric
http://www.developpez.net/forums/d10...eur-parametre/

[baudge]

Bonjour,

Merci pour vos réponses, ça marche. Cependant, comment faire pour qu'il compte toutes les couleurs dans un même total ? (les couleurs correspondent aux différentes tâches effectuées, mais le durée est la même)

D'avance merci !

[jfontaine]

donc, si je comprend bien tu ne veux pas compteur une couleur spécifique, mais savoir le nombre de cellules qui ont une couleur de fond. C'est bien ca?

[baudge]

Oui c'est exactement ca. Et que le total apparaisse dans une cellule en fin de plage

[jfontaine]

dans ce cas, modifies la fonctionne comme ci dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function Nb_Couleur(Plage As Range) As Long
 
Dim i As Long
 
For Each cel In Plage.Cells
    If cel.Interior.ColorIndex <> xlNone Then i = i + 1
Next
 
Nb_Couleur = i
 
End Function

[baudge]

Merci beaucoup ! N'étant pas adepte des macros et créations de fonctions, je suis bloqué.
J'ouvre donc visual basic, insérer, module, je copie colle la formule. Que faire après cela ?

[jfontaine]

Mettre la fonction dans un module puis utiliser avec une formule

Code :

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

=Nb_Couleur(X65:AE65)

[baudge]

J'ai donc copié la formule dans l'onglet module ouvert dans visual basic. Lorsque je suis sur le classeur, je colle la formule donnée, et lorsque je la valide cela me met un message d'erreur : "Nom ambigu détecté : Nb_Couleur

[jfontaine]

Tu as du coller 2 fonctions avec le meme nom. Supprimes l'ancienne fonction

[baudge]

Parfait ! Merci beaucoup pour votre aide, c'est exactement ce que je voulais !