XL 2019 calcul tranche d'âge

youpi457032 à dit:

Bonsoir,
Merci de cette réponse rapide,
C'est le résultat attendu, mais je le cherche absolument sous forme de macro
le calcul s'opère à l'ouverture du workbook...
Merci beaucoup...
si vous avez la même en VBA je prends !

Cliquez pour agrandir...

Private Sub Workbook_Open()
    With Sheets("BD")
        .Range("d2:d" & .Rows.Count).ClearContents
        With .Range("d2:d" & .Cells(.Rows.Count, "A").End(xlUp).Row)
            .Formula = "=IF(c2="""","""",VLOOKUP(DATEDIF(C2,TODAY(),""y""),Critères!$A$2:$B$11,2,TRUE))"
            .Value = .Value
        End With
    End With
End Sub

Jacky67 à dit:

Bonsoir,
A défaut de M12 que je salue
Ceci dans le ThisWorkbook du classeur de M12 devrait faire

VB:

Private Sub Workbook_Open()
    With Sheets("BD")
        .Range("d2:d" & .Rows.Count).ClearContents
        With .Range("d2:d" & .Cells(.Rows.Count, "A").End(xlUp).Row)
            .Formula = "=IF(c2="""","""",VLOOKUP(DATEDIF(C2,TODAY(),""y""),Critères!$A$2:$B$11,2,TRUE))"
            .Value = .Value
        End With
    End With
End Sub

Cliquez pour agrandir...