Heures et weekend

dominique35 · 3 Octobre 2009

Bonjour à tous.

Voilà après divers recherches non concluantes, je m'adresse à vous.Je recherche une plutôt deux formules:
La première:
Sur une semaine je ne peut faire plus de 44 heures, comment interdire d'ajouter des heures au dessus de 44 heures.
La deuxième:
Je ne peut faire plus de 2 weekends de suite comme faire interdire un troisième weekend.

Je joint un fichier pour plus de détail
Merci à vous.

Hulk · 3 Octobre 2009

Re : Heures et weekend

Hello,

Bon il y a sûrement plus pro, mais je te propose ceci pour ta première demande... c'est du VBA et pas des formules.

Cliques sur l'onglet de la feuille en question -> Voir le code et copie ce code dedans...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    If [D11] >= 45 Then
        MsgBox "Heures limites dépassées !"
            ActiveCell.Offset(-1, 0) = ""
        ActiveCell.Offset(-1, 0).Select
    End If
        
End Sub

Au fait, losque le dernier jour est saisit, si la cellule D11 (Agent1) dépasse 44...

1) Un message apparaît.
2) il efface la dernière cellule saisie.
3) il sélectionne la cellule en question.

J'ai juste fais pour l'agent 1, essaie d'y adapter pour le reste, mais j'ai peur que ça fasse un peu long... Le mieux je pense, serait de faire une boucle mais je ne suis pas le pro des boucles 😱

Pour la question deux je ne vois pas mais essaie.

A toi de voir.

Cdt, Hulk.

bertrand1202 · 3 Octobre 2009

Re : Heures et weekend

Bonsoir

Si sur ta cellule tu fais données /Validation et que tu insère un message , est ce suffisant ?

Hulk · 3 Octobre 2009

Re : Heures et weekend

Re,

La question à Bertrand est la bienvenue...

Cela dit avec une boucle sur la ligne 11 (D11:K11) ça pourrait donner ça...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim x As Range

    For Each x In Range("D11:K11")
        If x >= 45 Then
            MsgBox "Heures semaine dépassées !"
                ActiveCell.Offset(-1, 0) = ""
            ActiveCell.Offset(-1, 0).Select
        End If
    Next x
    
End Sub

Mais attention, toujours valider la saisie avec la touche "Enter" du clavier, sinon platage assuré !

Cdt, Hulk.

JHA · 4 Octobre 2009

Re : Heures et weekend

Bonjour dominique35, le forum,

un essai avec données/validation et MFC pour les +2 week end travaillés.

JHA

dominique35 · 4 Octobre 2009

Re : Heures et weekend

Bonsoir à tous
Hulk, JHA, Bertrand

Je vous remercie de vos conseilles, c'est un bon début et je suis entrain d'essayer de broder quel que chose avec vos idée.
Si d'autre idées viennent en plus je suis toujours preneur.

Dominique

Heures et weekend

dominique35

XLDnaute Occasionnel

Hulk

XLDnaute Barbatruc

bertrand1202

XLDnaute Occasionnel

Hulk

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

dominique35

XLDnaute Occasionnel

Discussions similaires

Heures et weekend

dominique35

XLDnaute Occasionnel

Hulk

XLDnaute Barbatruc

bertrand1202

XLDnaute Occasionnel

Hulk

XLDnaute Barbatruc

JHA

XLDnaute Barbatruc

Pièces jointes

dominique35

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency