tri par date

[riz]

je me galere encore avec les dates malgré les precieuses aides deja fournies par vos soins:
Voici ce que j'essaie de faire :
J'ai une colonne a avec une date de debut :jj/mm/aaaa hh:mm:ss
J'ai une colonne b avec une date de fin au même format.
et en fait j'essaie de recuperer les horaires pour les mettre dans 3 catégories : 8-17h, 17h-22h et 22h-8h.
Donc dans une autre feuille je souhaiterais avoir :
colonne a : les mois avec les années
colonne b: l'addition des heures dans la tranche horaire 8-17h
colonne c : laddition des heures dans la tranche horaire 17-22h
colonne d: l'addition des heures dans la tranche horaire 22h8h.

Je me suis embarquée dans une succession de conditine t je me demandais si il y avait pas une autre solution plus simple.


For i = 2 To 13
tablo(i, 1) = MonthName(i - 1)
If Evaluate('Hour(a3:a177)') > '8' Then
If Evaluate('hour(b3:b177') '8' & Evaluate('day(b3:b177)>day(a3:a177)') Then
tablo(i, 2) = Evaluate(' 17-hour(a3:a177)')
tablo(i, 3) = Evaluate(' 22-17 ')
tablo(i, 4) = Evaluate('hour(b3:b177)-22')

End If


Merci par avance

 

[riz]

ah, mon code est pas passé en entier :

For i = 2 To 13
tablo(i, 1) = MonthName(i - 1)
If Evaluate('Hour(a3:a177)') > '8' Then
If Evaluate('hour(b3:b177') '8' & Evaluate('day(b3:b177)>day(a3:a177)') Then
tablo(i, 2) = Evaluate(' 17-hour(a3:a177)')
tablo(i, 3) = Evaluate(' 22-17 ')
tablo(i, 4) = Evaluate('hour(b3:b177)-22')

End If