Bonjour le forum ,

J'ai un petit problème dans mon code VBA. Je pense que la réponse est toute simple mais je n'arrive pas à la trouver :/.

J'ai un tableau avec quatre colonnes sur ma feuille P2. La première contient des dates et les autres des données associées. La date que je recherche est en Prog!D3.
Mon code fait une recherche sur la colonne A, et affiche les évènements du jour recherché sur la feuille P3. Il fonctionne lorsque je recherche un texte, mais pas lorsque j'effectue une recherche avec des dates. Je pense donc avoir un problème de format...

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
Dim Choice As Date
Choice = Range("Prog!D3").Value
Dim C As Range
Dim Firstaddress As String
Dim i As Integer

i = 1
With Sheets("P2").Range("A1:A65536")
Set C = .Find(Choice, LookIn:=xlValues)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
Sheets("P3").Range("A" & i & ":D" & i) = Range(C, C.Offset(0, 4)).Value
i = i + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
Set C = Nothing
Si qqn a une petite idée...
Merci beaucoup