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 : 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
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