Récupérer l'âge à partir d'une date

Bonjour,

Je dois effectuer un code VBA dans assez simple je pense mais je ne m'y retrouve pas du tout.

J'ai un tableau excel dans lequel j'ai des dates de naissance en colonne E (sous forme jj/mm/aaaa). J'aimerais soit extraire l'année seule et la soustraire à l'année du jour pour obtenir l'âge, soit pouvoir convertir la date de naissance en âge.

Ensuite, à partir de l'âge, mettre une structure conditionnelle en if... then "chaine de caractères" (ça, ça va)... et introduire cette chaine de caractères obtenue en colonne N du document excel (dans la ligne correspondant à la ligne de la date de naissance).

Pour finir, il faut boucler de la ligne 2 à la ligne 21 pour faire tout le document.

Une bonne âme saurait-elle me donner les éléments de départ?:oops:

Bonjour,
La fonction Excel qui permet de calculer l'âge d'une personne (sans VBA) est DateDif
Exemple (A2 contient la date de naissance)

Code:

---

=DATEDIF(A2;AUJOURDHUI();"Y")

---

La fonction VBA qui donne le même résultat est DateDiff
Exemple avec MsgBox

Code:

---

MsgbBox DateDiff("yyyy", Range("A2"), Date())

---

Bonjour,

Quelque chose comme cela qui va chercher les dates de naissance en lignes 2 à 21 de la colonne E et inscrire l'âge en colonne N (mêmes lignes)

Code:

---

1 2 3 4 5 6 7 8

Sub aa() Dim i& For i& = 2 To 21 'ligne 2 à ligne 21 With Application.WorksheetFunction Range("N" & i&) = .RoundDown(.YearFrac(Now, Range("E" & i&)), 0) End With Next i& End Sub

---

Merci beaucoup!
La formule est parfaite!
J'ai utilisé une boucle en while avec un if à l'intérieur pour finir.

Bonjour,

Les 2 fonctions ne sont pas tout à fait identiques, puisque DateDif calcule au jour près, contrairement à DateDiff qui considère que tout le monde a 1 an de plus dès que l'on passe du 31 décembre au 1er Janvier.

Je n'ai pas trouvé de solution simple à ce problème, d'autant qu'on ne peut utiliser DateDif en VBA.

Merci de votre aide.

Catherine

Citation:

---

Envoyé par PMO2017

Bonjour,

Quelque chose comme cela qui va chercher les dates de naissance en lignes 2 à 21 de la colonne E et inscrire l'âge en colonne N (mêmes lignes)

Code:

---

1 2 3 4 5 6 7 8

Sub aa() Dim i& For i& = 2 To 21 'ligne 2 à ligne 21 With Application.WorksheetFunction Range("N" & i&) = .RoundDown(.YearFrac(Now, Range("E" & i&)), 0) End With Next i& End Sub

---

---

Bonjour,
Peut-être comme cela (???)

Code:

---

1 2 3 4 5

Sub bb() Dim Source As Range Set Source = ActiveSheet.Range("a7") [c7].Formula = "=DATEDIF(" & Source.Address & ",TODAY(),""Y"")" End Sub

---