1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub RechercheDate()
Dim Compteur As Integer, celA As Range, celD As Range, Code As Variant, dateCons As Date, dateRec As Date
Dim premLigne As Integer, derLigneD As Integer, derLigneA As Integer, Analyse As Range, Données As Range
Sheets("Analyse").Activate
'Code et dateRec lus dans la plage AnalyseCode de la feuille Analyse
For Each celA In Range("AnalyseCode")
Code = celA: dateRec = celA.Offset(0, 1)
'Recherche dans la plage nommée DonnéesCode de la feuille Données
Sheets("Données").Activate
For Each celD In Range("DonnéesCode")
dateCons = celD.Offset(0, 5)
If celD = Code And celD.Offset(0, 5) >= dateRec Then
Sheets("Analyse").Activate
celA.Offset(0, 2) = celD.Offset(0, 5)
Exit For
End If
Next celD
Next celA
Sheets("Analyse").Activate
End Sub |
Partager