XL 2019 copier 2 colonnes d'un classeur A et coller les données dans une seule colonne dans un classeur B

[nawak83]

Bonsoir la communauté,

je suis novice en VBA et j'ai réussi grâce à vos différent poste à créer mon code VBA.
cependant maintenant je suis fasse à une impasse. je souhaiterai copier les données de ma colonne B et C de mon fichier A (ces données corresponde à la date et l'heure) pour les fusionner dans la colonne F de mon fichier B.
Je souhaiterai que la forme finale soit JJ/MM/AAAA HH:MM:SS sachant que l'heure de la colonne C dans le fichier A est sous forme HH:MM:SS:SSS

En vous remerciant par avance bonne soirée ou bonne journée pour certain

 

[Dranreb]

Bonsoir.
Copiez déjà la date et ensuite ajoutez l'heure par un .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False

 

[nawak83]

Bonsoir.
Copiez déjà la date et ensuite ajoutez l'heure par un .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False

Bonjour
Merci pour votre réponse cela fonctionne exactement comme je le voulais.

Bonne journée

 

[nawak83]

Bonjour à tous, je rencontre un problème avec le code que vous m'avez fourni.
voici ma macro en vba :

MonClasseur.Sheets(2).Range("C7:C500").copy
ThisWorkbook.Sheets("Feuil2").range("G2").Pastespecial
Monclasseur.Sheets(2).Range("D7:D500").copy
ThisWorkbook.Sheets("Feuil2").range("G2").Pastespecial Paste:=xlPasteValues; Operation:=xlAdd, SkipBlanks:=False, Transpose:=False

La date est bien collé mais l'heure non.
Au lieu d’avoir l'heure, j'ai 00:00:00 qui s’affiche.
Auriez vous une solution?

 

[Dranreb]

Bonjour.
Je ne vois pas de code vba dans votre message.

 

[nawak83]

Bonjour.
Je ne vois pas de code vba dans votre message.

oui désolé il ya eu un bug lors de l'insertions et j'ai pas fait attention en punliant, mais j'ai édité mon message en le mettant en le rajoutant

 

[Dranreb]

Je ne sais pas, ça devrait marcher.
Qu'y a-t-il dans vos plages sources ?
Ne serait-ce pas du texte ?

 

[nawak83]

Je ne sais pas, ça devrait marcher.
Qu'y a-t-il dans vos plages sources ?
Ne serait-ce pas du texte ?

dans la colone date il y aura la date du jour ou de la veille sous cette former : 14/11/2022 et dans la colonne heure 08:03:03:204

 

[Dranreb]

C'est bien ce que je pensais, ça ne peut être que du texte. On ne peut pas ajouter du texte à un nombre.

 

[nawak83]

Voici mon fichier source

 

[Dranreb]

Je confirme, ce sont des textes. Que signifient-ils ?
Remarque: ça ressemble à ce qu'on trouve parfois pour noter des frames pour des montages de films, mais en aucun cas ça ne peut être des heures.

 

[nawak83]

c'est une extraction d'une badgeuse.
je me suis tromper dans le format de l'heure, voici le bon format : 06:43:54.234

 

[Dranreb]

En tout cas il y avait un ":" dans les données, ce qu'Excel n'a pu interpréter que comme du texte. Pareil pour un ".". Une "," aurait pu être considéré comme un séparateur décimal de secondes.

 

[Dranreb]

Il semblerait qu'on ne puisse ajouter des millièmes de secondes à une date …
Si on peut les sacrifier, ceci donne un résultat :

Sub test()
   Dim T(), TSpl$(), L&
   T = Worksheets("Feuille1").[C7].CurrentRegion.Value
   For L = 1 To UBound(T, 1)
      TSpl = Split(T(L, 2), ".")
      T(L, 1) = T(L, 1) + TimeValue(TSpl(0))
      Next L
   With Worksheets("Feuille1").[F7].Resize(UBound(T, 1))
      .Value = T
      .NumberFormat = "dd/mm/yyyy hh:mm:ss"
      End With
   End Sub

 

[Dranreb]

Ceci a l'air de marcher en fin de compte :

Sub test()
   Dim T(), TSpl$(), L&
   T = Worksheets("Feuille1").[C7].CurrentRegion.Value
   For L = 1 To UBound(T, 1)
      TSpl = Split(T(L, 2), ".")
      T(L, 1) = CDbl(T(L, 1)) + CDbl(TimeValue(TSpl(0)) + TSpl(1) / 86400000)
      Next L
   With Worksheets("Feuille1").[F7].Resize(UBound(T, 1))
      .Value = T
      .NumberFormat = "dd/mm/yyyy hh:mm:ss.000"
      End With
   End Sub