Discussion :

[Phil92700]

Bonjour à tous,
Débutant en VBA, je cherche un moyen de pouvoir transcrire la fonction MAX.SI.ENS dans ce langage.



Sur ce tableau, je veux renvoyer la date la plus récente suivant le critère "AB"
En excel, j'ai bien cette formule "=MAX.SI.ENS(B:B;A:A;A1)", le résultat étant "02/02/2023", pas moyen de la transcrire en VBA.

Si quelqu'un peut m'aider...

Merci d'avance.

[Jean-Philippe André]

Salut,

as-tu essayé l'enregistreur de macros, qui devrait te fournir un bon bloc de code à adapter ensuite

[Phil92700]

Salut,
En effet, c'est le basic par lequel j'aurai dû commencer.
Je regarde ce que ça donne et je reviens avec des questions ou avec la solution...
Merci.

[Franc]

Salut, voici une fonction et une petite macro test. Adapte selon tes besoins.

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
Function MaxDateIf(rngCriteria As Range, criteria As Variant, rngDates As Range) As Date
    Dim maxDate As Date
    Dim cell As Range
    Dim lastRow As Long
 
    lastRow = rngCriteria.Cells(rngCriteria.Cells.Count).End(xlUp).Row
 
    maxDate = 0
    For Each cell In rngCriteria.Resize(lastRow)
        If cell.Value = criteria And rngDates.Cells(cell.Row).Value > maxDate Then
            maxDate = rngDates.Cells(cell.Row).Value
        End If
    Next cell
 
    MaxDateIf = maxDate
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
    Dim rngCriteria As Range
    Dim rngDates As Range
    Dim maxDate As Date
 
    Set rngCriteria = Worksheets("Feuil1").Range("A:A")
    Set rngDates = Worksheets("Feuil1").Range("B:B")
 
    maxDate = MaxDateIf(rngCriteria, "AB", rngDates)
 
    MsgBox "La date la plus récente est " & maxDate
 
End Sub

[Phil92700]

@Franc, merci !
J'ai découvert le MaxIfs et en l'appliquant à une worksheetfunction, j'ai réussi à l'intégrer dans mon script.
Merci à vous 2.