"MAX.SI.ENS" en VBA

Version imprimable

06/03/2024, 15h18
Phil92700

1 pièce(s) jointe(s)

"MAX.SI.ENS" en VBA

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

Pièce jointe 651806

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.
06/03/2024, 16h02
Jean-Philippe André

Salut,

as-tu essayé l'enregistreur de macros, qui devrait te fournir un bon bloc de code à adapter ensuite :)
06/03/2024, 16h09
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.

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

Code:

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:

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

06/03/2024, 16h40
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.