coloration de cellule en fonction de l'horaire du pc

[dollkiller]

Bonjour le forum,

Pour des raisons professionnelles, je vais devoir bientôt tenir un état de présence (pour le matin et le soir, le temps du midi étant fixe) en tenant compte des heures d'arrivées et de départ.

Peut-on alors en fonction de l'horaire de l'horloge du pc (le traitement des données se fera inévitablement en direct)faire en sorte que lorsque l'on met une X dans la cellule (relative à une personne) celle-ci se colore automatiquement en fonction de l' heure d'arrivée (pour le matin) ou l'heure de départ (pour le soir)?

Comment peut-on également attribuer un temps pour chaque couleur, le but étant d'additionner quotidiennement les heures de présence?


Je joins un fichier pour illustrer là où je veux en venir.

Merci de l'attention que vous voudrez bien prêter à mon épineux problème !

 

[GI_GI]

Re : coloration de cellule en fonction de l'horaire du pc

Bonsoir a tous
Un essai. Mettre un X majuscule dans la cellule concernée à l'heure qui va bien suivi de la touche "Entrée".
Salutations

 

[cbea]

Re : coloration de cellule en fonction de l'horaire du pc

Bonsoir à tous,

Voici une autre version.
J'ai ajouté une feuille Param dans laquelle on retrouve la définition des périodes (Matin, Midi et Soir) avec pour chaque période, une borne mini, une borne maxi et l'équivalence en heure.

 

[dollkiller]

Re : coloration de cellule en fonction de l'horaire du pc

Bonsoir le forum, GI_GI, cbea,

Merci à vous deux. Je regarde cela demain et je vous tiens au courant.
A bientôt!

 

[dollkiller]

Re : coloration de cellule en fonction de l'horaire du pc

Bonjour le forum, GI_GI, cbea,

Vos deux exemples fonctionnent parfaitement, merci!

Toutefois peut-on faire en sorte que la couleur s'incrémente directement (à la place de la X) pour éviter les 2 tableaux et en n'utiliser qu'un seul ?

Bonne journée !

 

[cbea]

Re : coloration de cellule en fonction de l'horaire du pc

Bonjour dollkiller,

Voici la solution par rapport à mon premier essai.
J'ai remplacé :

Cells(LigT + 15, ColT).Font.ColorIndex = .Cells(Lig, ColPeriode).Interior.ColorIndex
Cells(LigT + 15, ColT).Interior.ColorIndex = .Cells(Lig, ColPeriode).Interior.ColorIndex
Cells(LigT + 15, ColT).Value = .Cells(Lig, ColPeriode + 3).Value

par :

Cells(LigT, ColT).Font.ColorIndex = .Cells(Lig, ColPeriode).Interior.ColorIndex
Cells(LigT, ColT).Interior.ColorIndex = .Cells(Lig, ColPeriode).Interior.ColorIndex
Cells(LigT, ColT).Value = .Cells(Lig, ColPeriode + 3).Value

 

[dollkiller]

Re : coloration de cellule en fonction de l'horaire du pc

Bonjour cbea,

Je te remercie de ton aide.
Je teste tout cela demain "en direct" et te tiens au courant.
A bientôt !

 

[dollkiller]

Re : coloration de cellule en fonction de l'horaire du pc

Bonsoir cbea,

Je viens de tester ta macro (pour le soir) et cela fonctionne parfaitement.

Il ne me reste plus que d'insérer un calendrier pour m'éviter une saisie de dates fastidieuses...

Merci encore de ton aide !!