Discussion :

[debutante_vba]

Bonjour à vous,
N'étant pas très costaud en VBA et ayant chercher des heures sur les forums et tout le reste, je viens à vous avec grand espoir.
J'ai un classeur excel fait pour un pointage des employés le matin.
Sur la feuille 1, dans C5 j'ai la date =AJOURDHUI() et dans F6, F7, F8...F35, j'ai un "1" correspondant à la présence du salarié.
Sur la feuille 2, dans C5 j'ai la date =AJOURDHUI() et dans F6, F7, F8...F25, j'ai un "1" correspondant à la présence du salarié.
Je cherche en code VBA, à ce que ces cellules "1" se vident lors de l'ouverture du fichier passé minuit dix, sur les 2 feuilles du classeur et rien qu'a ce moment précis. !!

Merci pour votre aide !!

[patricktoulon]

re
test ca
si tu ouvre le classeur entre minuit 10 et 1 heure tes "1" seront supprimés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Private Sub Workbook_Open()
If Val(Format(Time, "hhmm")) > 10 & Val(Format(Time, "hhmm")) < 100 Then
Sheets(1).Range("F6:F35").clearcontent
Sheets(2).Range("F6:F35").clearcontent
End If
End Sub

[Menhir]

Je cherche en code VBA, à ce que ces cellules "1" se vident lors de l'ouverture du fichier passé minuit dix, sur les 2 feuilles du classeur et rien qu'a ce moment précis. !!

Est-ce qu'à minuit dix le fichier est ouvert ?

Sincèrement, ta méthode me parait peu fiable.
A ta place, au lieu de mettre un 1 en F6:F35, je mettrais la date du jour (pas une fonction mais la date saisie en dur) ou au moins le jour du mois.
Comme ça, tu n'aurais pas besoin de macro pour connaitre les ligne renseignées aujourdhui.

[debutante_vba]

Bonjour,
En fait, c'est un internat, et donc des moniteurs viennent prendre leur service le soir/nuit puis le matin à 8 h les profs arrivent.
Le fait de mettre 1 est simple pour l'ensemble des employés et ainsi je compte le nbr de présents et absent à 9h00.
Donc chaque lendemain à partir de minuit dix toutes ces cellules devraient s'effacer et ainsi les moniteurs de nuit mettent 1 pour présence ainsi que les prof de la journée à 9h00 du matin. De ce fait j'obtiens un listing et nombre total des salariés;
Peut-être que le "1" n'est pas adéquat. Peut-être plus des case à cocher ?

merci pour vos retours

[Invité]

bonjour,

il y a la demande qui n'est pas ambigu et il a la pratique!


le fichier est toujours ouvert? si oui un timer pour le lendemain. si non on sauvegarde la date dans une cellule et à l'ouverture on vérifie la date si identique rien ne ce passe si différente on efface et on écrit la date dans la cellule! ainsi l'heure d'ouverture n'importe peut!

[debutante_vba]

Oui le fichier se ferme au bout de 10s, juste le temps de mettre "1" , sinon les autres employés ne peuvent ouvrir sur leur poste ce fichier car en réseau.

Ok sur l'idée de la date. Maintenant le code vba est ....???

Bon j'espère trouver une solution. Certes une pointeuse serait plus simple mais ....coûteuse !!
Merci pour votre aide dans tous les cas.
Bonne journée