XL 2021 Ajout dans ligne vba

[Bruce68]

Bonsoir à tous

ws_1.Range(ws_1.Cells(i, 1), ws_1.Cells(i, 4)).Copy ws_2.Cells(u, 1)
Dans cette ligne de code la date recopiée est noté valeur, moi je voudrais une date en chiffre.
Voir fichier joint.
Je vous ,remercie de votre aide

 

[Dranreb]

Bonsoir.
Je propose ce code :

Sub CopierColler()
   Dim T(), LO As Long, LR As Long, C As Integer
   T = Feuil1.[A2:D2].Resize(Feuil1.Cells(2 ^ 20, "A").End(xlUp).Row - 1).Value
   For LO = 1 To UBound(T, 1)
      If Not IsEmpty(T(LO, 2)) Then
         LR = LR + 1
         For C = 1 To 4
            T(LR, C) = T(LO, C)
            Next C
         End If
      Next LO
   Feuil2.[A2:D63].ClearContents
   Feuil2.[A2:D2].Resize(LR).Value = T
   End Sub

 

[sylvanu]

Bonjour Bruce, dranreb,
Ou encore dans votre macro :

Remplacez :
ws_1.Range(ws_1.Cells(i, 1), ws_1.Cells(i, 4)).Copy ws_2.Cells(u, 1)
Par :
ws_2.Range("A" & u & ":D" & u) = ws_1.Range("A" & i & ":D" & i).Value

Ceci dit, quelle est la différence entre votre fichier et votre fichier précédent ? ( voir Lien )
La problématique est exactement la même.