Recherche en VBA

Colonne A Colonne B 29/10/2014 08:15:54 JE SUPPRIME 29/10/2014 13:15:54 JE SUPPRIME 29/10/2014 16:15:54 JE GARDE 30/10/2014 08:15:54 JE GARDE 30/10/2014 08:15:54 JE GARDE 30/10/2014 08:15:54 JE GARDE 31/10/2014 08:15:54 JE GARDE 31/10/2014 10:15:54 JE GARDE 31/10/2014 15:15:54 JE SUPPRIME

Bonjour snico,

Un peu de travail de ton coté aurait été le bien venu, un début de code ou autre

voila ce que je te propose (faut il que j'ai bien compris ta demande):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub MasqueCell()
Dim DernLigneClnnA As Long
Dim DateDuJour As Date
Dim DateRecente As Date
 
    DernLigneClnnA = ActiveSheet.Range("A1048576").End(xlUp).Row
    DateRecente = Format(Cells(DernLigneClnnA, 1).Value, "dd/mm/yyyy")
    'DernLigneClnnA = DernLigneClnnA + 1
    DateDuJour = Format(Now, "dd/mm/yyyy")
    For i = 1 To DernLigneClnnA
        If Cells(i, 1).Value < DateDuJour - 3 Then
            'Masqué toutes les dates qui ont -3 jours a la date du jour
            Rows(i & ":" & i).EntireRow.Hidden = True
        ElseIf (Cells(i, 1).Value < DateDuJour - 2) And _
             (Format(Cells(i, 2).Value, "hh:mm:ss") < Format("14:00:00", "hh:mm:ss")) Then
            'Masqué tous les horaires qui sont inferieur a 14h a -2 jours a la date du jour
                Rows(i & ":" & i).EntireRow.Hidden = True
        ElseIf (Cells(i, 1).Value = DateRecente) And _
             (Format(Cells(i, 2).Value, "hh:mm:ss") > Format("14:00:00", "hh:mm:ss")) Then
            'Masqué tous les horaires qui sont supérieur a 14h à la date la plus jeune
            Rows(i & ":" & i).EntireRow.Hidden = True
        End If
    Next i
End Sub