calcule age

ILOVEUBB

XLDnaute Occasionnel
salut ;

j'ai les date de naissance de tous les employer dans la colonne "C8:C" est je veut calculer l'age pour qu'il me donne les personnes qui sont prêt pour la retraite et qui sont prêt de la retraite .

j'ai utiliser :
Me.Label54 = Date - f.Cells(ligne, 8)
If DateValue(D1) > DateValue(D2) Or Not IsDate(D2) Then Exit Function
mais sa donnent rien . je veux qu'il affiche le résultat dans un Me.Label54
je vous expliquent mon problème : pour les = + 60 on attribue un "A" dans Me.Label54 et pour ceux qui sont entre 50 et 60 on attribue un "B" dans Me.Label54 ceux qui sont moins de 50 un "C" .
svp quelque piste ...
merci
 

job75

XLDnaute Barbatruc
Re : calcule age

Bonjour ILOVEUBB, le forum,

Mais j'ai eu dû mal à trouver les personne concerner sur le tableau

Fichier (4) avec :

Code:
If i >= 0 Then
  '---cadrage du tableau---
  Application.Goto P(i + 2, 1), True
peut tu me donner des pistes pour attribuer un A ou B ou C automatisé dans le tableau

Mes formules en colonne F font ça très bien il me semble :confused:

A+
 

Pièces jointes

  • age_r(4).xls
    98 KB · Affichages: 19

job75

XLDnaute Barbatruc
Re : calcule age

Re,

Si vous voulez des textes plus élaborés pour les catégories A B C, utilisez en F6 :

Code:
=RECHERCHE(E6;{0."C - non concerné";50."B - à étudier";60."A - admissible"})
Edit : ajustez la largeur du Label4 dans l'USF et dans UserForm_Initialize ajoutez un astérisque :

Code:
Label8 = Application.CountIf(P.Columns(5), "A*")
Label10 = Application.CountIf(P.Columns(5), "B*")
Label12 = Application.CountIf(P.Columns(5), "C*")
A+
 
Dernière édition:

Discussions similaires

Réponses
5
Affichages
560
Réponses
9
Affichages
579
Réponses
3
Affichages
162

Statistiques des forums

Discussions
314 450
Messages
2 109 727
Membres
110 552
dernier inscrit
jasson