Discussion :

[XceSs]

Bonjour, j'ai une colonne avec des dates, j'essaye de sélectionner la cellule correspondant à la date la plus proche de la date du jour. Cependant je n'y arrive pas j'ai trouvé une macro sur un forum qui se met à la date juste supérieur mais je n'arrive pas à aller à la date la plus proche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
    Dim c As Range
    Set c = Columns(2).Find(what:=Int(Now), LookIn:=xlValues, lookat:=xlWhole)
    If c Is Nothing Then 'Si la date du jour n'est pas présente
       Set c = [B2]
        Do While c < Int(Now)
            Set c = c(2, 1)
        Loop  ' on trouve la date juste supérieure à celle du jour
       Set c = Columns(2).Find(what:=c, LookIn:=xlValues, lookat:=xlWhole) 
    End If
    c.Select 'on sélectionne la cellule trouvée
End Sub

Merci de votre aide

[NVCfrm]

Bonsoir,

Tu peux essayer d'identifier la ligne avec une formule de calcul.

Code :

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

Ligne_dateProche = Application.Evaluate ("=EQUIV(MAX(SI(B1:B200<A1;B1:B200));SI(B1:B200<A1;B1:B200);0)")

[XceSs]

J'ai oublié de noter la date la plus proche inférieure

apparemment ça fonctionne merci