Heure automatique macro ligne +1

[D4_]

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 :

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

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_

 

[Lone-wolf]

Re : Heure automatique macro ligne +1

Bonjour D4

Enregistre le fichier en .xlsm.

 

[gilbert_RGI]

Re : Heure automatique macro ligne +1

Bonjour

un truc dans ce genre ?

😎