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
| Public Sub RECHERCHE()
Dim i, j, k As Integer
Dim Echeance, Today, Date_Formation As Date
Today = Date
Echeance = DateAdd("m", 1, Today)
k = 2
Worksheets("RESULTAT").Range("A2:C100").Select
Selection.ClearContents
For i = 2 To 500
For j = 4 To 50
If Not IsEmpty(Worksheets("LILLE").Cells(i, j).Value) Then
Date_Formation = Worksheets("LILLE").Cells(i, j).Value
If Date_Formation <= Echeance Then
Worksheets("RESULTAT").Cells(k, 1).Value = Worksheets("LILLE").Cells(i, 1).Value
Worksheets("RESULTAT").Cells(k, 2).Value = Worksheets("LILLE").Cells(1, j).Value
Worksheets("RESULTAT").Cells(k, 3).Value = Date_Formation
k = k + 1
End If
End If
Next j
Next i
End Sub |
Partager