Aide planning gestion du personnel

bonjour,

je suis artisan et j'ai 4 employés lors d'une formation en gestion du personnel, la formatrice m'a présenter un fichier planning sur une semaine dans lequel chaque cellule se colorée en cliquant dessus et cela représentai 30 minutes, avec un total heures/jours, ainsi qu'un total/semaine.

La personne n'a pas voulut me donner le fichier, j'ai refait le tableau de mémoire et le joint à ce message .

Mes demandes:

cela serait il difficile de mettre cela en place sachant que je sait juste faire un tableau et quelque formule de calcul simple

Si non quelqu'un peut-il m'accompagner dans ma démarche

si c'est trops compliquer... ben... merci d'avoir pris le temps de me lire...

Bonjour

Avec un Code de Feuille "Semaine 1", par Double-Click, la cellule est colorée de la couleur correspondante en colonne A

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("$C$2:$AD$49"), Target) Is Nothing Then
Dim i
i = Target.Row
    Target.Interior.ColorIndex = Range("B" & i).Interior.ColorIndex
    Cancel = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Dans le Module1, ce code permet de compter le nombre de cellule de chaque ligne

Function SomCoul(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "rouge"
Couleur = 3
Case "orange"
Couleur = 44
Case "jaune"
Couleur = 6
Case "vert"
Couleur = 43
Case "bleu"
Couleur = 33
Case "mauve"
Couleur = 47
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = cvSomme + 1
Next
SomCoul = cvSomme
End Function
Function Couleur(CL As Range) As Long
Couleur = CL.Interior.ColorIndex
End Function

Avec ce Code, la formule donnant le total des cellules de couleur rouge en ligne 2 est

=SomCoul($C2:$AD2;"rouge")

Comme cette formule compte les cellules de couleur correspondant à 1/2 heure, le résultat final est obtenu par

=SomCoul($C2:$AD2;"rouge")/48

Les cellules de la colonne AE sont au format hh:mm

Attention, cette formule ne s'incrémente pas

Pour les totaux semaine, ex, en F51

=SOMMEPROD(($B$2:$B$49=SUBSTITUE(C51;"Semaine ";""))*($AE$2:$AE$49))

cellule au format personnalisé [hh]:mm

J'ai fait le début. Il te reste à écrire les autres formules selon le modèle.

Cordialement

Bonjour,

et merci, vraiment merci, j'y gagne beaucoup de temps.

C'est exactement ce qu'il me fallait... du simple et du pratique.

Peut être puis je le mettre en téléchargement ? cela pourrait servir a d'autre