la fonction Max/Min sur des dates
Bonjour,
j'ai trois colonnes: colonne IV contient l'identifiant
colonne AW contient des dates valeur
colonne IQ pour le résultat
je suis passé par une collection de valeurs pour repèrer les mémes identifiants et ce que je cherche à faire c'est d'attribuer (dans la colonne AW) la date valeur la plus ancienne de cette collection de valeurs à toutes les cells(IQ) qui la compose.
j'ai essayé avec des chiffres ça marche à la place des dates ça marche mais quands avec des dates la fonction min me renvoit toujours 0
voilà mon code
merci d'avance pour votre aide
Code:
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
| Dim Ant_ID_2() As Variant
Dim V_ID As String
H = 2
Do Until IsEmpty(Cells(H, "IV"))
J = 2
I = 0
V_ID = Cells(H, "IV").Value
ReDim Ant_ID_2(500) '500 est la dimension de la collection de valeurs
Do Until IsEmpty(Cells(J, "IV"))
If Cells(J, "IV") = V_ID Then
If IsDate(Cells(J, "AW")) = True Then
Ant_ID_2(I) = CDate(Cells(J, "AW"))
End If
I = I + 1
End If
J = J + 1
Loop
Cells(H, "IQ") = Application.WorksheetFunction.Min(Ant_ID_2())
H = H + 1
Loop |
