Recopie date et heure

T

thebenoit59

XLDnaute Accro

• 13 Octobre 2017

• #2

Bonjour Asta.

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

VB:

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

En bouclant les lignes

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Octobre 2017

• #3

Bonjour.

VB:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Octobre 2017

• #4

Bonjour asta
A tester:

Code:

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

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 13 Octobre 2017

• #5

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

 

Dernière édition: 13 Octobre 2017

Vote positif 0 Vote négatif

A

asta29

Guest

• 13 Octobre 2017

• #6

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Octobre 2017

• #7

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

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 13 Octobre 2017

• #8

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

 

Pièces jointes

• test2.xls

  32 KB · Affichages: 19

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Octobre 2017

• #9

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

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 13 Octobre 2017

• #10

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Octobre 2017

• #11

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.

 

Vote positif 0 Vote négatif