Comment ajouter des secondes à une heure

Question

Bonjour,

J'ai des cellules qui contiennent une heure sans secondes, or j'ai besoin des secondes. Donc j'essaye d'ajouter arbitrairement des secondes.

Ex : 15:12:00 ---> 15:12:01

  15:12:00          15:12:02 

... et je galère !

Merci

Answer 1

Bonjour,

Avec les dates en colonne A :

Sub test()
Dim Ctr As Date, C As Range
Ctr = #12:00:01 AM#
'copie dans une cellule vide
With ActiveSheet.UsedRange
Set C = .Offset(.Rows.Count, .Columns.Count).Resize(1, 1)
C = Ctr
C.Copy
Range("A1", Cells(Rows.Count, 1).End(xlUp)).PasteSpecial Operation:=xlAdd
C.Delete
End With
End Sub

Daniel

Answer 2

Merci Daniel et Arnaud

Plutôt que recopier bêtement ce que je ne comprend pas, j'ai fais a ma sauce en prenant un petit bout a chacun.

Merci encore et encore

Answer 3

Bonjour

Valeurs en colonne A à partir de la ligne 2

Sub Ajout() Dim TabPlage ' Passage via un tableau pour aller plus vite :) Dim n As Long Dim sgDelta As Single Dim lgDerniereLigne As Long sgDelta = 1 / 86400 ' 1 seconde lgDerniereLigne = [A1048576].End(xlUp).Row TabPlage = Range("A2:A" & lgDerniereLigne) For n = 1 To UBound(TabPlage) TabPlage(n, 1) = TabPlage(n, 1) + sgDelta Next Range("A2:A" & lgDerniereLigne) = TabPlageEnd Sub

Answer 4

Merci Daniel,

En VBA, j'ai un compteur que je veux ajouter à l'heure en 1 passage sur + de 400000 lignes. C'est là que je galère !

Answer 5

Bonjour,

Pour Excel 1 jour vaut 1. Donc, 1 seconde = 1/24/60/60 ou 1/86400.

Donc, avec 15:12:00 en A1 :

=A1+1/86400

Tu peux aussi écrire:

=A1+"0:0:1"

Cordialement.

Daniel