Discussion :

[chabagrou]

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

[Qwazerty]

SAlut
Du devrais mettre ton code entre balise code, ca serait plus comprehensible

A mon avis ton probelem vient de la fonction Min, et si tu ne la donne pas on aura du mal a te repondre
A++
Qwaz

[chabagrou]

en fait j'ai pas de fonction Min
j'ai due utilisé la fonction excel Min que j'ai appelée avec application.worksheetfunction
voilà

Mon probl en gros réside dans les dates mais quand je fais tourner ce code sur une colonne contenant des chiffres ça marchait

[Qwazerty]

SAlut
Je connaissais pas cette facon de faire avec les Functions integrées
Par contre un petit Debug pas a pas avec un espion sur Ant_ID_2 t'aurait permis de remarquer qu'il etait rempli avec des valeur Date (#01/05/1980#) et ca Min ne le gere pas, il suffit de transformer le format date en Integer et le tour et joué (attention si il y a aussi des heures il faudra utiliser un Double)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ant_ID_2(I) = Cint(CDate(Cells(J, "AW"))) ' Utiliser CDbl() pour un format Date + Time

Et voila

A++
Qwaz