Ajouter à une date x secondes lors de la saisie

Bonjour

Je sais ajouter une valeur lors de la saisie avec un "Private sub", mais pour ajouter du temps à une date, c'est une autre affaire.

Je souhaiterai avec une événementielle que lors de la saisie de la date soit ajoutée à la date saisie un nombre de secondes correspondant à la ligne de saisie X 5

En ligne 3, je saisis 23/06/2011 et j'ai (sans changer de format d'affichage) 23/06/2011 00:00:15

Un fichier exemple est joint

Merci de votre aide.

Cordialement

Salut amadéus,

Code à mettre dans le code la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    Static temoin As Boolean
    If Not Application.Intersect(Target, [d2:d33]) Is Nothing Then
        If temoin = False Then
            If IsDate(Target) Then
                temoin = True
                secondes = Target.Row * 5
                temps = TimeSerial(secondes \ 3600, secondes \ 60, secondes Mod 60)
                Target = Format(Target, "dd/mm/yyyy") & " " & temps
            End If
        End If
        temoin = False
    End If
End Sub

Bonsoir

Bonsoir Vba-new

Un essai

Bonsoir

Un 3ème à tester :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then
Target.Offset(0, 1) = Target & " " & Format(Target.Row * 5 / 24 / 60, "hh:mm")
End If
End Sub

Amicalement

Nad

Bonsoir

Merci à Nad, vba-new et banzai64

Les codes de Nad et banzai64 inscivent le bon résultat, mais dans la cellule à côté.

Celui de vba-new répond parfaitement à la question, à ceci près que je me suis exprimé de façon ambigue.

Ce que je voudrais, c'est que la cellule affiche toujours la date au format "jj/mm/aaaa" mais bien sur que dans la barre de formule s'affiche la date avec les secondes ajoutées.

Désolé si je me suis mal exprimé.

Merci à vous 3

Alicalement

Bonsoir

C'était juste un essai

Bonsoir

Merci Banzai64

C'est parfait!!

Bien cordialement