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

Dranreb

XLDnaute Barbatruc

• 15 Septembre 2022

• #2

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

 

Vote positif 0 Vote négatif

Solution

N

nawak83

XLDnaute Nouveau

• 15 Septembre 2022

• #3

Dranreb à dit:

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

Cliquez pour agrandir...

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

Bonne journée

 

Vote positif 0 Vote négatif

N

nawak83

XLDnaute Nouveau

• 18 Novembre 2022

• #4

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

VB:

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?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2022

• #5

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

 

Vote positif 0 Vote négatif

N

nawak83

XLDnaute Nouveau

• 18 Novembre 2022

• #6

Dranreb à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2022

• #7

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

 

Vote positif 0 Vote négatif

N

nawak83

XLDnaute Nouveau

• 18 Novembre 2022

• #8

Dranreb à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2022

• #9

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

 

Vote positif 0 Vote négatif

N

nawak83

XLDnaute Nouveau

• 18 Novembre 2022

• #10

Voici mon fichier source

 

Pièces jointes

• Sans nom 1.xlsx

  4.8 KB · Affichages: 1

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2022

• #11

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.

 

Vote positif 0 Vote négatif

N

nawak83

XLDnaute Nouveau

• 18 Novembre 2022

• #12

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

 

Pièces jointes

• Sans nom 1.xlsx

  4.8 KB · Affichages: 2

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2022

• #13

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.

 

Dernière édition: 18 Novembre 2022

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2022

• #14

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

VB:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Novembre 2022

• #15

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

Code:

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

 

Vote positif 0 Vote négatif