Heure automatique macro ligne +1

D4_

XLDnaute Nouveau
Bonjour,

Toujours sur un projet de feuille de pointage, j'ai réussi grâce à votre aide à afficher l'heure d'arrivée en ligne+1 en dessous de la date du jour, et l'heure de départ en ligne+3 par l'intermédiaire d'une macro affectée à un bouton, avec les codes suivant :

Code:
Sub ARRIVEE()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="password"
Next
Dim cel As Range

With Sheets("User")
For Each cel In .Range("b5:h28")
If cel.Value = Date Then cel.Offset(1, 0) = Format(Now, "hh:mm")
Next cel
End With
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="password"
Next
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

Code:
Sub DEPART()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="password"
Next
Dim cel As Range

With Sheets("User")
For Each cel In .Range("b5:h28")
If cel.Value = Date Then cel.Offset(3, 0) = Format(Now, "hh:mm")
Next cel
End With
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="password"
Next
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

Je souhaiterai désormais adapter ce code de sorte que chaque fois que les macros ARRIVEE et DEPART sont utilisées, l'heure de chacune s'affiche toujours en ligne+1 en dessous de la date du jour, mais ensuite, en ligne+1 en dessous de chaque cellule.

Voir le fichier ci-joint que j'ai créé manuellement pour l'exemple



En espérant que c'est réalisable,
Merci d'avance pour votre aide :)

D4_
 

Pièces jointes

  • Test macro heures.xlsx
    12.1 KB · Affichages: 29

Discussions similaires

Réponses
17
Affichages
760
Réponses
8
Affichages
448