Incrementation total heures hebdomadaire

[patrick85]

Bonjour,

Je souhaiterais incermenter un total d'heure hebdomadaire au fur et à mesure de l'année.
Vous trouverez ci-joint mon fichier avec quelques explications.

Merci à tous et bonne année 2013.

 

[Papou-net]

Re : Incrementation total heures hebdomadaire

Bonsoir Patrick85, et meilleurs voeux également,

Ci-joint ton fichier modifié avec une macro événementielle qui n'agit que si une des cellules d'heures journalières est modifiée.

Pour simplifier la programmation, j'ai nommé la plage des heures sous le nom de "HeuresJours".

J'espère que cela te conviendra.

Cordialement.

 

[patrick85]

Re : Incrementation total heures hebdomadaire

Bonsoir Patrick85, et meilleurs voeux également,

Ci-joint ton fichier modifié avec une macro événementielle qui n'agit que si une des cellules d'heures journalières est modifiée.

Pour simplifier la programmation, j'ai nommé la plage des heures sous le nom de "HeuresJours".

J'espère que cela te conviendra.

Cordialement.

Exactement ce que je voulais.

Merci

 

[patrick85]

Re : Incrementation total heures hebdomadaire

Bonjour,

Petit probleme sur la macro de Papou-net, j'ai inséré une colonne et des lignes en partie basse, resultat
ta macro ne fonctionne plus.
Pouvez-vous m'expliquer comment marche cette macro et pourquoi elle ne fonctionne plus.

Fichier ci-joint.


merci.

Patrick

 

[Papou-net]

Re : Incrementation total heures hebdomadaire

Bonsoir Patrick,

Effectivement, si tu ajoutes des lignes il y a des références de cellules qui ne sont plus valables;

Pour les modifier, 2 points à corriger :

- Modifier les coordonnées de la plage de cellules nommées HeuresJours. Pour cela, aller dans menu Insertion, Nom, Définir. Sélectionner HeuresJours dans la liste déroulante et modifier le texte dans Fait référence à: "=Pointage!$D$5:$H$54"

- Dans l'éditeur VBA : modifier le code dans le module Feuil1 (Pointage) :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ColSem As Long
If Intersect(Range("Heuresjours"), Target) Is Nothing Then Exit Sub
ColSem = 9 + Right(Range("C3"), 2) * 2
Cells(Target.Row, ColSem) = IIf(Cells(Target.Row, 9) > 0, Cells(Target.Row, 9), "")
End Sub

(ColSem = 9 au lieu de 8).

Je n'ai pas testé donc, si tu as des soucis, je reste à ta disposition.

Cordialement.