XL 2019 calcul tranche d'âge

youpi457032

XLDnaute Occasionnel
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 😀
 

Pièces jointes

  • tranche d'âge.xlsx
    13.3 KB · Affichages: 5

Jacky67

XLDnaute Barbatruc
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
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
 

youpi457032

XLDnaute Occasionnel
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
Un grand Merci ! c'est tout à fait ce qu'il me fallait !
Merci à vous !
Vive la communauté Exceldownload !
 

Discussions similaires

Réponses
6
Affichages
326

Statistiques des forums

Discussions
312 814
Messages
2 092 337
Membres
105 370
dernier inscrit
Leheryboriziny