Bonjour,

J'ai une base de données avec des références dans une colonne A et des dates de saisie de ses références dans une colonne B. Cependant une même référence peut être présente plusieurs fois. Actuellement je réalise une recherche mais si la référence est présente plusieurs fois, cela ne me donne pas la référence ajoutée via une textbox la plus récénte. Voici mon code actuel ci-dessous, comment puis-je faire pour ajouter une condition sur la date pour préciser ma recherche.

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
 
Private Sub CommandButton2_Click()
 
'Recherche d'une filière
Dim Cell As Range
Set Cell = Range("A15:A65536").Find(Me.TextBox1, , lookat:=xlWhole)
 
    If Me.TextBox1 = "" Then Exit Sub
    If Not Cell Is Nothing Then
 
        MsgBox "Filière Trouvée à la Ligne " & Cell.Row & "."
        'Positionnement du curseur sur la cellule
        Cell.Offset(0, 0).Select
 
    Else
 
        MsgBox "Filière Non Trouvée."
 
    End If
 
'Effacement de la textbox
Sheets("Base de Données").TextBox1 = ""
 
End Sub
Merci d'avance.