Creation Tableau avec condition

Bonjour,

J'ai un tableau dans Feuil1 qui m'affiche toutes mes actions dans l'ordre chronologique et suivant les différents lignes ( CPO, LG4, CBO, DWF )

J'aimerai récupérer ces infos est en faire un tableau en Feuil2 en classant par lignes ( CBO, LG4, CBO, DWWF ) mais aussi par jour et avec une condition en plus :

Si l'action est à la date du lundi mais qu'elle dépasse 13h00 alors mettre à la journée du mardi.

Si l'action est à la date du mardi mais qu'elle dépasse 13h00 alors mettre à la journée du mercredi.

Est ainsi de suite.

Cela dépasse mes compétences, donc si une âme charitable veut bien m'aider, ça serait top

Merci

Bonjour,

voici une piste à explorer,

i = 2
h = Range("A" & i) - Int(Range("A" & i))
limit = 13 / 24
If h > limit Then j = DateSerial(Year(Range("A" & i)), Month(Range("A" & i)), Day(Range("A" & i)) + 1)

re,

à tester,

Bonjour i20100,

Merci pour ton aide

C'est exactement ce que je souhaites faire mais il y a un problème.

Si une ligne a une date / heure supérieur à vendredi 13:00 alors cela s'arrête et ne prend pas en compte les lignes du dessous.

J'espère être claire !!!

Pour faire le test, j'ai modifié les date en Feuil1 pour les avoir toutes sur 1 semaine.

En laçant la macro, cela s'arrête à la ligne 5 de la Feuil1 et ne va pas chercher la ligne 7 pour passer au suivant.

A tu une idée ?

Encore merci pour ton aide précieuse

re,

à tester,

Sub test()
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
rw1 = sh1.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To rw1
    h = sh1.Range("A" & i) - Int(sh1.Range("A" & i))
    dt = CDbl(DateSerial(Year(sh1.Range("A" & i)), Month(sh1.Range("A" & i)), Day(sh1.Range("A" & i))))
    limit = 13 / 24
    col = Application.Match(dt, sh2.Rows(4), 0)
    If IsError(col) Then GoTo suivant
    If h > limit Then col = col + 3
    If col > sh2.Cells(5, Columns.Count).End(xlToLeft).Column Then GoTo suivant
    rw2 = sh2.Cells(Rows.Count, col).End(xlUp).Row + 1
    sh2.Cells(rw2, "B") = sh1.Cells(i, "B").Value
    sh2.Cells(rw2, col) = sh1.Cells(i, "C").Value
    sh2.Cells(rw2, col + 1) = sh1.Cells(i, "D").Value
    sh2.Cells(rw2, col + 2) = sh1.Cells(i, "E").Value
suivant:
Next i
End Sub