Bonjour et merci
j'ai inclus ce nouveau code mais en actionnant la requête via F8, celle ci tourne en rond à ce stade
T2(i, 10) = CDbl(T2(i, 10))
T2(i, 4) = CDbl(T2(i, 4))
Salutations/Claude
Sub MacroROTATION()
'
' MacroROTATION Macro
'
'
Sheets.Add After:=Sheets(Sheets.Count)
ActiveCell.FormulaR1C1 = "Résultat²"
Range("A1").Select
Selection.ClearContents
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Résultat"
Range("C38").Select
End Sub
Sub Rotation()
Dim DerL1 As Long, DerL2 As Long, T1, T2, TT(), i As Long, j As Long, k As Long, x As Long
With Worksheets("RECHERCHE DEMI TOUR")
DerL1 = .Range("A" & Rows.Count).End(xlUp).Row
DerL2 = .Range("M" & Rows.Count).End(xlUp).Row
T1 = .Range("A2:K" & DerL1)
T2 = .Range("M2:W" & DerL2)
End With
'traitement des dates
For i = LBound(T1, 1) To UBound(T1, 1)
T1(i, 10) = CDbl(T1(i, 10))
T1(i, 4) = CDbl(T1(i, 4))
Next
For i = LBound(T2, 1) To UBound(T2, 1)
T2(i, 10) = CDbl(T2(i, 10))
T2(i, 4) = CDbl(T2(i, 4))
Next
'For i = LBound(T1, 1) To UBound(T1, 1)
' For j = LBound(T2, 1) To UBound(T2, 1)
' If T1(i, 6) = T2(j, 6) Then
' If T1(i, 10) < T2(j, 10) Then
' x = x + 1
' ReDim Preserve TT(1 To UBound(T1, 2) * 2, 1 To x)
' For k = 1 To UBound(T1, 2)
' TT(k, x) = T1(i, k)
' TT(k + UBound(T1, 2), x) = T2(j, k)
' Next
'Worksheets("Résultat").Range("A1").Resize(x, UBound(TT, 1)) = Application.Transpose(TT)
Worksheets("Résultat").Range("D
,O:O,J:J,U:U").NumberFormat = "m/d/yyyy h:mm"