bonjour,
une solution via une fonction personnalisée
Function fdate(r As Range, rank, info)
'paramètres r= tableau sans les entêtes
' rank = rang de la date à considérer
' info, 1=date, 2=heure de début, 3=heure de fin, 4=Quantité verticale, 5=quantité horizontale
df = 0
For i = 1 To r.Rows.Count
If r.Cells(i, 1) <> "" Then
df = df + 1
If df = rank Then
Select Case info
Case 1
fdate = r.Cells(i, 1): Exit Function
Case 2
fdate = r.Cells(i, 3): Exit Function
Case 3, 4, 5
For j = i + 1 To r.Rows.Count
If r.Cells(j, 1) <> "" Then
fdate = r.Cells(j - 1, info + 1): Exit Function
End If
Next j
fdate = r.Cells(j - 1, info + 1): Exit Function
End Select
End If
End If
Next i
End Function