Ramener l'élément le plus récent possible

Bonjour à tous,

J'aimerai renseigner la colonne M à l'aide de la base de données qui se trouve en colonnes A à H.

Peut-être une rechercheV ou un code VB qui me permet de ramener l'élément le plus récent de la colonne E (en fonction de la date, en colonne H). je ne sais pas si c'est possible par formule ?

ci-joint le fichier

Merci de votre aide

Bonjour,

Ci-joint une proposition à tester, en VBA

Bonne journée

Bouben

Avec formule (matricielle)

=INDEX($E$2:$E$24;EQUIV(GRANDE.VALEUR(($H$2:$H$24)*($A$2:$A$24=L2);1);$H$2:$H$24;0))

Bonjour le forum,

M2 :

=INDEX(E:E;MAX(($A$2:$A$24=L2)*($A$2:$A$24>0)*LIGNE($A$2:$A$24)))

Formule matricielle à valider avec CTRL MAJ ENTREE

bonjour

a adapter au fichier reel

cordialement

Bonjour bouben

Merci, ça fonctionne

J'ai une petite question tout de même. J'aimerai adapter le code car en réalité, j'ai 2 fichiers excel :

• 1 fichier source où se trouve la base de données
• et un fichier cible où vont s'écrire les informations

    For iLig2 = 2 To iDerLig2
        sCommercial = ""
        dtMax = "01/01/1900"
        For iLig1 = 2 To iDerLig1
            If Range("A" & iLig1).Value = Range("L" & iLig2).Value Then
                If DateDiff("d", dtMax, Range("H" & iLig1).Value) > 0 Then
                    dtMax = Range("H" & iLig1).Value
                    sCommercial = Range("E" & iLig1).Value
                End If
            End If
        Next iLig1
        Range("M" & iLig2).Value = sCommercial
    Next iLig2

par ceci :

    For Each cell2 In Pl2
        sCommercial = ""
        dtMax = "01/01/1900"
        'For iLig1 = 4 To iDerLig1
         For Each cell1 In Pl1
            If cell1 = cell2 Then
                If DateDiff("d", dtMax, Range("H" & iLig1).Value) > 0 Then 'a mod..
                    dtMax = Range("H" & iLig1).Value
                    sCommercial = Range("E" & iLig1).Value
                End If
            End If
        Next cell1
        Range("H" & iLig2).Value = sCommercial
    Next cell2

mais il y a un truc qu'il n’apprécie pas

Bonjour,

Ci-joint une nouvelle version à tester.

> 1 fichier avec les données source

> 1 fichier de synthèse ; cliquer sur le bouton et sélectionner le fichier source

Bonne journée

Bouben

ça fonctionne Boubon, seulement il ne peut pas être adapté à mes fichiers car ils sont trop long

Le fichier source fait 78000 lignes

et le fichier cible fait 13900 lignes

Merci quand meme