Recherche de dates

[Mers]

Bonjour à tous,

J'essai de trouver réponse à un problème de recherche de dates en fonction de 3 critères soit une valeur minimale en fonction de 2 champs.

J'ai joint un fichier qui explique mieux mon problème.

Merci d'avance,

M.

 

[hoerwind]

Re : Recherche de dates

Bonjour,

L6 :=MIN(SI((E$5:E$18=J6)*(G$5:G$18="");F$5:F$18))
formule matricielle à valider par Ctrl+Maj+Entrée
et à copier vers le bas

 

[Mers]

Re : Recherche de dates

Bonjour,

L6 :=MIN(SI((E$5:E$18=J6)*(G$5:G$18="");F$5:F$18))
formule matricielle à valider par Ctrl+Maj+Entrée
et à copier vers le bas

Merci! Ça fonctionne. Par contre, c'est très lent... (j'ai 10000 lingnes de valeurs...). Je m'en contenterai pour l'instent.

Merci encore,

M.

 

[hoerwind]

Re : Recherche de dates

Re,

La lenteur est due à la forme matricielle de la formule (et la taille des plages à balayer), et il ne me semble pas possible d'obtenir le résultat sans formule matricielle.

Peut-être par macro, mais là je ne puis t'aider.

 

[mromain]

Re : Recherche de dates

bonjour Mers, hoerwind,

un essai en macro :

Sub test()
Dim curCell As Range, cellWrite As Range, dateMem As Date, trouve As Boolean
Set curCell = ThisWorkbook.Sheets("Sheet1").Range("E5")
Set cellWrite = ThisWorkbook.Sheets("Sheet1").Range("J6")
'effacer la zone de résultat
Range(cellWrite, cellWrite.End(xlDown).End(xlToRight)).ClearContents
'boucler sur les éléments de la colonne E
While curCell.Text <> vbNullString
    trouve = False
    If UCase(curCell.Offset(0, 2)) <> "X" Then
        trouve = True
        dateMem = curCell.Offset(0, 1)
    End If
    While curCell.Offset(1, 0).Text = curCell.Text
        Set curCell = curCell.Offset(1, 0)
    If UCase(curCell.Offset(0, 2)) <> "X" Then
        If trouve Then
            If DateDiff("d", curCell.Offset(0, 1), dateMem) > 0 Then dateMem = curCell.Offset(0, 1)
        Else
            trouve = True
            dateMem = curCell.Offset(0, 1)
        End If
    End If
    Wend
    If trouve Then
        cellWrite.Value = curCell.Value
        cellWrite.Offset(0, 1).Value = dateMem
        Set cellWrite = cellWrite.Offset(1, 0)
    End If
    Set curCell = curCell.Offset(1, 0)
Wend
End Sub

PS: à tester, mais a mon avis, les formules matricielles seront néanmoins plus rapide...

a+

 

[Mers]

Re : Recherche de dates

Re,

La lenteur est due à la forme matricielle de la formule (et la taille des plages à balayer), et il ne me semble pas possible d'obtenir le résultat sans formule matricielle.

Peut-être par macro, mais là je ne puis t'aider.

Comme j'ai dit, je vais m'en accomoder. Merci pour ton aide.

M.