calcule age

[ILOVEUBB]

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]

Re : calcule age

Bonjour ILOVEUBB, le forum,

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

Fichier (4) avec :

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

A+

 

[job75]

Re : calcule age

Re,

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

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

Label8 = Application.CountIf(P.Columns(5), "A*")
Label10 = Application.CountIf(P.Columns(5), "B*")
Label12 = Application.CountIf(P.Columns(5), "C*")

A+

 

[job75]

Re : calcule age

Re,

Je découvre une petite erreur dans la macro du SpinButton, corrigée dans ce fichier (5).

A+

 

[ILOVEUBB]

Re : calcule age

Salut job75 , ENCORE UNE FOIS JE NE C'EST VRAIMENT PAS QUOI DIRE . VOUS ÊTES TRÈS FORT UN TRÈS GRAND MERCI ET QUE DIEU TE BENICE