XL 2019 calcul tranche d'âge

[youpi457032]

bonjour,
je suis à la recherche d'une macro qui en fonction de la date de naissance d'un individu le catégoriserait dans une tranche d'âge.
Les tranches d'âges sont définies en feuille Critères colonne A
Pour chaque ligne non vide de la feuille BD, renvoyer en colonne D le nom de la tranche d'âge concerné, cellule après cellule.
Quelqu'un aurait-il une idée pour mettre cela en place ?

Je un fichier un démo.
J'adapterai le code en fonction de mes besoins...
Merci 😀

 

[M12]

Bonsoir,
En modifiant la feuille Critères, à tester

 

[youpi457032]

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 !

 

[Jacky67]

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 !

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

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

 

[youpi457032]

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

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

Un grand Merci ! c'est tout à fait ce qu'il me fallait !
Merci à vous !
Vive la communauté Exceldownload !