Ajout de temps +1s

Bonjour à tous,

J'ai des fichier qui en colonne B sont des temps de la forme hh:mm:ss ( 00:03:22). Entre chaque temps il y a des cases vides, il faudrait qu'elles se remplisses de manière automatique avec un temps +1s.

C'est à dire si le temps de base est 00:03:22, la suivante doit être 00:03:23 et etc jusqu’à la case suivante avec un temps déjà ecris.

Si quelqu'un peut me faire une macro pour ça sa serai vraiment bien.

Je vous joint un fichier comme exemple du fichier brute et le résultats souhaitée.

Merci par avance.

Bonjour,

En attendant les spécialistes VBA, la forumule suivante dans la cellule E8 et à copier vers le bas :

=SI(B8<>"";B8;E7+1/(24*60*60))

Merci Raja,

Par contre, j'ai besoin d'une macro car j'ai plus de 200 fichier a traiter.

En tout cas merci pour cette rapide réponse, je garde la formule sous la main, ça pourrais me dépanner d'autres problèmes.

Encore merci Raja.

Bonjour

Mettre la plage au format hh:mm:ss

Code dans Module

Sub Modifie()
Dim MaCellule As Object
For Each MaCellule In Range("A8", Range("A8").End(xlDown)).Offset(0, 1)
If IsEmpty(MaCellule) Then
MsgBox MaCellule.Address
MaCellule.Value = MaCellule.Offset(-1, 0).Value + (1 / 84600)
End If
Next MaCellule
End Sub

Cordialement

C'est super, sa fonctionne super bien.

Est se qu'il serait possible juste d'enlever l'information qui apparait, celle où il faut cliquer sur ok?

Merci

Bonjour

Pardon, c'était juste pour tester..

Sub Modifie()
Dim MaCellule As Object
For Each MaCellule In Range("A8", Range("A8").End(xlDown)).Offset(0, 1)
If IsEmpty(MaCellule) Then
MaCellule.Value = MaCellule.Offset(-1, 0).Value + (1 / 84600)
End If
Next MaCellule
End Sub

Cordialement

Super merci a toi

Amadeus