Déterminer en 1 formule qui a émis un avis négatif le + tôt

Question

Je me casse la tête pour trouver comment faire déterminer à Excel une chose qui a l'air assez simple… Des documents doivent être validés par 5 personnes. Chacune doit émettre 1 avis, à choisir parmi 6 possibilités (AF, AS, AD, R, NV, NSV, HM) Je ne m'intéresse qu'à 3 de ces possibilités : AS (avis suspendu), AD (avis défavorable), R (refusé). Mon problème est de savoir qui parmi les 5 personnes a émis le + tôt l'un de ces 3 avis Dans le cas présent, c'est la personne n°4 (AD le 18/09). Mon problème est de récupérer cette date en 1 seule formule. Quelqu'un saurait-il comment faire ? Merci !!...

renyeu · Answer

Une proposition...imparfaite en 2 temps Cdlt Renyeu...

Jean-Eric · Answer

Un essai à tester suivant tes besoins Cdlt...

tulipe_4 · Answer

Un essai avec sommeprod la formule vient de sortir cordialement...

Jean-Eric · Answer

A Gloub,

(A Tulipe_4)

Mon code prend en compte un nombre de lignes indéterminée.

Il supprime tous les éléments communiqués par Gloub (à savoir les AF,NV,NSV & HM

La formule de Tulipe_4 est fonctionnelle, mais difficilement compréhensible par le commun des Exceliens. Donc difficile à reproduire.

Mon code répond à la question posée, sans information complémentaire de la part de Gloub.

Quant à la fonction d'automatisme, il est clair que l'on démarre sa voiture sans action préalable

Cdlt.

Pour le problème de compabilité 2003/2010, je joins le code:

Option Explicit
Public Sub Mise_en_Forme()

    Dim derLigne As Integer
    Dim i As Integer

    Application.ScreenUpdating = False

    Range("A1").CurrentRegion.Select
    Selection.Copy
    Range("E1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False

    derLigne = Range("G" & Rows.Count).End(xlUp).Row
    'MsgBox derLigne

    For i = derLigne To 2 Step -1
    'MsgBox i
        If Cells(i, 6) = "AF" Or Cells(i, 6) = "NV" Or Cells(i, 6) = "NSV" _
            Or Cells(i, 6) = "HM" Or Cells(i, 6) = "R" Then
            Range(Cells(i, 5), Cells(i, 7)).Select
            Selection.Delete Shift:=xlUp
        End If
    Next i

    derLigne = Range("G" & Rows.Count).End(xlUp).Row
    Range("E1").CurrentRegion.Select
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range(Cells(2, 7), Cells(derLigne, 7)), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("E1").CurrentRegion
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

Jean-Eric · Answer

Re, Je ne dispose pas d'Excel 2003! Une personne charitable pour modifier le code du précédent post? Et permettre le tri... Cdlt...

Banzai64 · Answer

Modification pour 2003 J'ai enlevé le test sur "R" car c'est une réponse acceptée Option Explicit Public Sub Mise_en_Forme() Dim DerLigne As Long Dim I As Long Application.ScreenUpdating = False Range("A1").CurrentRegion.Copy Destination:=Range("E1") DerLigne = Range("G" &amp; Rows.Count).End(xlUp).Row 'MsgBox derLigne For I = DerLigne To 2 Step -1 'MsgBox i If Cells(I, 6) = "AF" Or Cells(I, 6) = "NV" Or Cells(I, 6) = "NSV" _ Or Cells(I, 6) = "HM" Then Range(Cells(I, 5), Cells(I, 7)).Delete Shift:=xlUp End If Next I DerLigne = Range("G" &amp; Rows.Count).End(xlUp).Row Range("E2:G" &amp; DerLigne).Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub...

Jean-Eric · Answer

A Banzai64 Merci pour Gloub Cdlt...