Recopie date et heure

[asta29]

Bonjour,

Je cherche en VBA à recopier la colonne B vers la C en ajoutant la date sur la colonne C comme indiqué ci-dessous.

Mon fichier contient beaucoup de ligne.

Merci

 

[thebenoit59]

Bonjour Asta.

Sans fichier, je ne te donnerai que la procédure pour changer le format de la date:

Cells(i, "C")= Format(Cells(i, "B"), "dd/mm/yyyy hh:mm:ss")

En bouclant les lignes

 For i = 1 to [B65000].End(xlup).row

 

[Dranreb]

Bonjour.

Sub Macro1()
With Range([A1], [A1000000].End(xlUp)).Offset(, 1)
   .FormulaR1C1 = "=IF(RC1>1,RC1,INT(OFFSET(RC,-1,0))+RC1)"
   .NumberFormat = "dd/mm/yyyy hh:mm:ss"
   .Value = .Value
   End With
End Sub

 

[pierrejean]

Bonjour asta
A tester:

Sub remplir()
Columns("C:C").NumberFormat = "dd/mm/yyyy hh:mm:ss"
tablo = Range("B1:C" & Range("B" & Rows.Count).End(xlUp).Row)
tablo(1, 2) = tablo(1, 1)
For n = LBound(tablo, 1) + 1 To UBound(tablo, 1)
   tablo(n, 2) = tablo(1, 1) + tablo(n, 1)
Next
Range("B1").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub

En retard moi !
Salut thebenoit
Salut Dranreb

 

[zebanx]

Bonjour Pierre-Jean, Dranreb, benoit,...et à tous

@Pierre-jean : Sauf erreur, il y a une incohérence sur les dates dans la restitution ou... j'ai fait une fausse manip ??

++ zebanx

 

[asta29]

Merci pour vos réponses.
La réponse de Dranreb correspond tout à fait à mon besoin, il me reste à l'adapter à mon fichier.
Bonne journée et encore merci à vous.

Asta

 

[pierrejean]

Re
@zebanx
Ou est l’incohérence ?
NB: Les résultats que j'obtiens sont identiques à ceux de dranreb a ceci près que je respecte les colonnes de la demande

 

[zebanx]

Rebonjour Pierre-jean.

Je ne sais pas pourquoi il y a cette erreur sur les dates dans mon test, la date restant identique.
Dranreb était parti de la colonne A, pour votre code les inputs sont en colonne B comme sur le fichier de départ et indiqué en post 7.
Ci-joint le fichier avec les deux codes et désolé pour le dérangement sur un... problème résolu.

++
zebanx

 

[pierrejean]

Re
OK toutes mes excuses , je n'avais pas perçu que dans la colonne B on a alternativement des dates et des heures

 

[zebanx]

Et Asta étant satisfaite de la solution de Dranreb...pas sûre qu'elle revienne sur ce post
Bon apm Pierre-Jean
++ zebanx

 

[Dranreb]

Oups! Je m'était pourtant trompé en retenant les colonnes A et B au lieu de B et C.
Ah, mais je sais, c'est parce que j'avais saisi ça en A et B dans un nouveau classeur.