Planning automatique

Bonjour a tous.

je n'arrive pas a faire le fichier comme je l'entends.

je m'explique

je dois faire un planning pour mes agents. je voudrais que dans la case BM de chaque agent apparaissent le total des heures de la journée.

je voudrais faire que lorsque je mets une couleur dans une case horaire cela me rajoute 0,25 au total de la case BM de l'agent

et dans les cases B63 a B72 que le total des heures de la semaine s'affiche.

j'espere que je m'exprime correctement sur ma demande et je ne sais pas si cela est possible

merci d'avance pour l'aide que vous m'apporterez

je vous joinds le fichier si cela vous aide.

Merci d'avance

Cordialement.

Bonjour

Merci de renvoyer le fichier en ayant rempli 2/3 lignes et indiqué (manuellement) les réponses attendues.

Amicalement

Nad

en gros plutot que de saisir 0.25 dans les cellules ou je mets une couleur je voudrais que cela fasse automatiquement le calcul des que je mets une couleur dans une cellule meme sans texte que cela me rajoute 0.25 dans le total de la journée.

me dire si besoin d'explication complementaire.

merci d'avance

cordialement

Bonjour

Ton tableau C6:BL59 contient des cellules vides et des cellules blanches.

1) Tu sélectionnes ce tableau et dans la palette, tu sélectionnes "Aucun remplissage". Tes cellules, dès det instant ont un Code couleur de -4142

2) Dans le Code de la Feuille semaine 1, tu colles ce Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

3) Dans un Module, tu colles ce Code

Function NBSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = -4142 Then
NBSiCouleur = NBSiCouleur + wCell.Count
End If
Next
End Function

Ta plage C à BL contient 62 cellules

La fonction personnalisée compte le nombre de cellules dont le Code couleur est égal à -4142 donc, si en ligne 6 tu as 4 cellules de couleur, la formule

 =(62-NBSICouleur(C6:BL6;-4142))/4

renvoie le nombre de cellules de couleur divisé par 4 (ou X par 0,25)

Fichier joint

Cordialement

Genial ca marche niquel !

t'es un boss amadeus ! :p

encore merci pour ton aide !