Discussion :

[shkyo]

Bonjour à tous,

Je m'explique, je fais des calculs dans des fichiers excel assez volumineux (plus de 64000 lignes), je me cale sur la colonne A qui contient un timer qui est, après calcul, sous la forme JJ/MM/AAAA HH:MM:SS

Je fais des tests par rapport à une date donnée à 6h00 précise avec le test suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    If temp <> date_6h_mat Then
        ...
    End If

Mais en fait, je ne suis pas à une minute près ! Alors comment faire un test sur 6h00 plus ou moins 1 minute ???

Merci d'avance de vos réponses.

[ouskel'n'or]

Je ne vois qu'une solution, créer une colonne dans laquelle tu places l'arrondi de la date aux minutes. Ex, en supposant que tes dates se trouvent dans la colonne A, je mettrais cette formule dans la colonne B

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ARRONDI(A3;4)

Pour la recherche, tu la fais sur la valeur de la date et heure cherchée. Ex : Tu cherches "12/02/2008 06:00"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim c as range
Dim date_6h_mat, DateCherchee 
    date_6h_mat = "12/02/2008 06:00"
    DateCherchee = cdbl(cdate(date_6h_mat))
    With Worksheets("feuil1").Range("B:B")
        Set c = .Find(DateCherchee)
        If Not c Is Nothing Then
            MsgBox c.Row
        End If
    End With
End sub

Bien sûr, tu n'es pas obligé de passer par deux variables
Tu dis

[shkyo]

Je ne connaissais pas la fonction ARRONDI, je vais chercher dans ce sens-là.
Merci du tuyau en tout cas !