Probleme VBA Date changement Jours avec Mois

[steph544]

Bonjour la communauté,

je sollicite votre aide, le sujet est assez redundant sur le net mais je n'ai rien trouvé pour ma part sur le net. Voila j'ai créer une macro qui copie les valeurs selon des condition cependant lors de copies de la dates, le jours et le mois sont inverses ( 04/01/2017 au lien de 01/04/2017) Je ne sais pas trop comment y remédier merci de votre aide.!!!

LA bise

UN fichier est joint

 

[Robert]

Bonjour Steph, bonjour le forum,

Essaie comme ça :

Option Explicit
Dim tablo, tabloR(), I&, j&, k&, cond1&, cond2&, cond3&, c As Range, ds As Double, ts As Double, d As Double

Sub Extraire()
Application.ScreenUpdating = False
tablo = Range("A4:c" & Range("A" & Rows.Count).End(xlUp).Row)
cond1 = Range("f1")
cond2 = Range("f2")
k = 1
For I = 1 To UBound(tablo, 1)
  If tablo(I, 2) = cond1 And tablo(I, 3) = cond2 Then
  ReDim Preserve tabloR(1 To 3, 1 To k + 1)
  For j = 1 To 3
  ds = DateSerial(Year(tablo(I, j)), Month(tablo(I, j)), Day(tablo(I, j)))
  ts = TimeSerial(Hour(tablo(I, j)), Minute(tablo(I, j)), Second(tablo(I, j)))
  d = ds + ts
  tabloR(j, k) = tablo(I, j)
  If j = 1 Then tabloR(j, k) = d
  Next j
  k = k + 1
  End If
Next I
Range("h4:j600").Clear
If k > 1 Then Range("h4").Resize(UBound(tabloR, 2), 3) = Application.Transpose(tabloR)
Columns("H:H").NumberFormat = "dd/mm/yyyy hh:mm:ss"
End Sub

 

[steph544]

MErci beaucoup !