Trouver Age, par Rapport a Date Naissance

[MuscatMimi]

Bonjour a toutes et a tous

Question 1
J'aiemarais saisir la "date de naissance" en Tbx 1 et que "l'âge" s'affiche auto dans la Tbx2????,


Question2
Comment faire pour supprimer, la Croix de l'Usf

merci beuacoup a l'avance pour vos réponse

Bonne journée

 

[vbacrumble]

Re : Trouver Age, par Rapport a Date Naissance

Bonjour

Tu trouveras les réponses à tes questions en allant voir
dans les anciens fil de discussions (clic ici : Excel Downloads Forums - Recherche dans les forums)

Mot à rechercher:

Question 1
DATEDIFF
https://www.excel-downloads.com/threads/age-calcul-entre-2-dates.118657/

Question 2
QueryClose
un exemple parmi une kyrielle
https://www.excel-downloads.com/threads/empecher-la-fermeture-dun-usf-par-la-croix.78940/

PS: Ce n'est pas digne d'un XLDnaute impliqué (que tu es)
de poster une question sans chercher si des sujets similaires existent dans le forum non ?

 

[vbacrumble]

Re : Trouver Age, par Rapport a Date Naissance

Re

Pour la Question2, ?????
Tu as déjà le code dans ta PJ 😕😕

Sub Pasdecroix(USF As UserForm)
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", USF.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sud

EDITION
Je viens de tester cettes version originelle (et elle fonctionne !!)

Private Declare Function GetWindowLongA Lib "user32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "user32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub CommandButton1_Click()
Me.Hide
End Sub

Private Sub UserForm_Initialize()
    Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
    "X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

 

[MuscatMimi]

Re : Trouver Age, par Rapport a Date Naissance

Bonjour vbcrumble
Merci de ta réponse
Mais les codes que j'ai ,pour faire disparaitre la croix, ne sont pas bon, ça fonctionne pas

Et pour la date anniverssaire,tbx1 et age tbx2 pas de réponse

 

[vbacrumble]

Re : Trouver Age, par Rapport a Date Naissance

Re


La code que j'ai mis dans le message de 10h03 fonctionne
(je l'ai testé)

Quand au calcul de l'age , il y a tout ce qu'il faut dans le fil que je cite non ?

Voir cette PJ ...

 

[MuscatMimi]

Re : Trouver Age, par Rapport a Date Naissance

La maintenant,oui l'Affichage de l'âge ce fait comme je le demandais

merciç , beaucoup Mr vbaCrummble
tu m'a sauver la mise,

a bientôt