Discussion :

[fanfan89]

Bonjour à tous!

Sur mon classeur excel, j'ai une série de dates en feuille 1 entre A20 et A800 dans l'ordre croissant.
Sur ma feuille 2, j'ai une date sur la case A1.
Je cherche à sélectionner la date de ma feuille 2 dans la série qui se situe sur la feuille 1. Si la date n'est pas dans la série, je cherche à sélectionner la date la plus proche.

J'ai essayé d'utiliser la fonction Find sans succès. Pouvez_vous m'aider svp?

Merci beaucoup!

[casefayere]

Bonjour le forum, fanfan89

une idée à améliorer sans doute
imaginons que tu passes par un bouton de commande, sachant a20 =>a800 meme format date que feuille 2 a1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
Dim dt As Range, trouve As Range, x As Integer, y As Integer, d1 As Date, d2 As Date
    Set dt = Sheets(1).Range("a20:a800")
    d = Sheets(2).Range("a1")
    Set trouve = dt.Find(d)
    If trouve Is Nothing Then
        d1 = Sheets(2).Range("a1") + 1
        For x = 1 To 780
            Set trouve = dt.Find(d1)
            If Not trouve Is Nothing Then
                Exit For
            Else
                d1 = Sheets(2).Range("a1") + x
            End If
        Next x
        d2 = Sheets(2).Range("a1") - 1
        For y = 780 To 1 Step -1
            Set trouve = dt.Find(d2)
            If Not trouve Is Nothing Then
                Exit For
            Else
                d2 = Sheets(2).Range("a1") + x
            End If
        Next y
        If d1 < d2 Then
            MsgBox d1
        Else
            MsgBox d2
        End If
    Else
        MsgBox trouve.Value
    End If
End Sub

bien sur remplacer le msgbox par ton résultat escompté

essayes comme ça

bonne journée

[fanfan89]

Merci pour ta réponse mais avec une boucle For le temps de traitement est assez long, je cherche une façon par exemple d'utiliser la fonction Find (ou quelque chose qui y ressemble) pour sélectionner la case que je cherche en spécifiant le range a20:a800

[casefayere]

Bonjour à tou(te)s, fanfan

Une parade :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim plage As String, dt As String, resultat As Date
   plage = Sheets(1).Range("a20:a800").Address
   dt = Sheets(2).Range("a1").Address
   Sheets(2).Range("b1").Formula = "=VLookup(" & dt & "," & "Feuil1!" & plage & ", 1, True)"
' une cellule provisoire
   resultat = Sheets(2).Range("b1")
   MsgBox resultat
   Sheets(2).Range("b1").ClearContents
End Sub

[mercatog]

Bonjour casefayere
Je me suis permis de peaufiner encore ta proposition; en effet, si dans notre série on a 18/01/2010, 21/01/2010, 22/01/2010..., si on cherche le 20/01/2010, il va te retourner le 18/01/2010

En supposant que la date pourrait être hors plage, et adaptant ta proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Plage As Range, Dt As Range, c As Range
Dim Resultat As Date
 
With Sheets(1)
     Set Plage = .Range("A20", .Range("A" & .Rows.Count).End(xlUp))
End With
Set Dt = Sheets(2).Range("A1")
If Dt.Value < Application.Min(Plage) Then
     Set c = Plage(1)
ElseIf Dt.Value >= Application.Max(Plage) Then
     Set c = Plage(Plage.Rows.Count)
Else
     Resultat = Evaluate("=VLookup(" & Dt.Address & "," & "Feuil1!" & Plage.Address & ", 1, True)")
     Set c = Plage.Find(Resultat)
     If DateDiff("d", c.Value, Dt.Value) > DateDiff("d", Dt.Value, c.Offset(1, 0).Value) Then Set c = c.Offset(1, 0)
End If
Set Plage = Nothing
Resultat = c.Value
MsgBox "Valeur proche trouvée de " & Dt.Value & " est " & Resultat & " trouvé en " & c.Address
Set Dt = Nothing
Set c = Nothing

[casefayere]

Bonsoir mercatog,

en effet, je n'avais pas fait attention au résultat donné, en attendant, je cherchais à écrire la formule vlookup directement dans une variable et mes recherches me laissent perplexe, j'ai trouvé ceci qui ne tient, bien sur, pas compte de tes remarques

pour le bouton de commande

Code :

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

1
2
3
Private Sub CommandButton1_Click()
recherche
End Sub

dans un module

Code :

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

1
2
3
4
5
Sub recherche()
Dim resultat As Date
   resultat = Application.WorksheetFunction.VLookup(Range("feuil2!a1"), Range("feuil1!a20:a800"), 1)
   MsgBox resultat
End Sub

ça fonctionne mais si j'écris cette formule directement dans le bouton de commande, j'ai un message d'erreur :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim resultat As Date
   resultat = Application.WorksheetFunction.VLookup(Range("feuil2!a1"), Range("feuil1!a20:a800"), 1)
   MsgBox resultat
End Sub

bonne soirée