Discussion :

[deedoo12]

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?

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deedoo12]

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

[Galope]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PMO2017]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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