Discussion :

[yassinefeki]

Salut mes amis,

je suis débutant en VBA sous Excel. Je veux connaitre comment changer l'heure de début d'une date en utilisant VBA sous Excel :
par exemple 23/4/2010 10:23:11 ----> 23/4/2010 08:00:00
Est ce que c'est possible ??

Merci d'avance

[sabzzz]

bonjour yassinefeki,

par exemple si la date est en cellule A1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
x = Range("A1")
Range("A1") = DateSerial(Year(x), Month(x), Day(x)) + TimeSerial(8, 0, 0)

[Pierre Fauconnier]

Bonjour

Petit raccourci sur le code d'Isabelle.

Comme une date à minuit est la partie entière d'un nombre, tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  x = Range("a1").Value
  Range("a1").Value = Int(x) + TimeSerial(8, 0, 0)

Tu gagnes deux calculs, ce qui améliorera (très légèrement) les performances sur de long calculs.

[yassinefeki]

Merci mes amis pour votre aide