Ajout jour et heure à une cellule

[jot]

Bonjour,

description du besoin :
en fonction d'un critère je souhaite ajouter 1 jour à une date donnée et remplacer l'ancienne heure par une nouvelle heure.
ex :

j'ai 16/04/2009 18:45 dans une cellule cells(k,19)
je souhaite ajouter 1 jour et mettre l'heure à 8h00 cells(k,46)

soit avoir 17/04/2009 08:00

pour l'ajout de jour j'ai procédé comme ça :
Cells(k, 46) = Cells(k, 19) + 1 : ok pour le nouveau jour
pour mettre l'heure j'ai essayé avec & ça ne marche pas
cells(k,46) = cells(k,19)+1 & "08:00"

merci d'avance de votre aide

 

[JHA]

Re : Ajout jour et heure à une cellule

Bonjour Jot, le forum,

Avec ce que j'ai compris:

En K19 16/04/2009 18:45
en K46 =ENT(K19+1)+"08:00"

JHA

 

[alexga78]

Re : Ajout jour et heure à une cellule

bonjour jot, le forum ,

une solution avec macro si j'ai bien compris,

.Cells(k, 46) = CDate(.Cells(K, 19) + 1)
ou
.Cells(k, 46) = Format(CDate(.Cells(K, 19) + 1), "dd/mm/yy hh:mm")

bonne journée à tous

 

[jot]

Re : Ajout jour et heure à une cellule

merci alexga78 pour les infos

j'ai essayé le résultat obtenu est le suivant :


cells(k,19) = 03/04/2009 18:52

D1 = CDate(Cells(k, 19) + 3) ===> 06/04/2009 18:52 ===> ok

cells(k, 46) = Format(D1, "dd/mm/yyyy hh:mm") = 04/04/2009 18:52 ==> ko

la partie changement de l'heure n'est pas résolue à savoir mettre 08:00 à la place de 18:52

 

[Pierrot93]

Re : Ajout jour et heure à une cellule

Bonjour à tous

une autre solution vba :

.Cells(k, 46).Value = Int(.Cells(K, 19).Value + 1 + 1 / 3

bon dimanche
@+