XL 2013 Calcul age dans userforme

Domstras · 23 Novembre 2024

Bonjour,

Pourrais-je avoir votre aide merci

J’ai un feuille de carnet d’adresse remplis par un userforme (Ajout_Contact) avec un textbox (TextBox6) date de naissance, je voudrais avoir l’âge qui s’affiche dans un textbox (TextBox7) âges et qu’il soit transféré en même temps que tous les autre a l’appuis du bouton ajouter (Bt_Ajouter)

J’ai cette formule mais je n’arrive pas à l’adapter dans user forme.

= DATEDIF(C4;aujourdhui(),”Y”)

MERCI A TOUS

sylvanu · 23 Novembre 2024

Bonjour Domstras, et bienvenu sur XLD,
N'oubliez pas qu'un TextBox délivre un texte et non un nombre.
Une possibilité :

VB:

UserForm1.TextBox7 = Format((Date - CDate(UserForm1.TextBox6)) / 365.25, "0")

"Cdate" convertit un texte en date.
A modifier si vous voulez utiliser Datedif.

Domstras · 23 Novembre 2024

Merci mais je comprend pas ce que je dois faire

sylvanu · 23 Novembre 2024

Re,
J'ai juste répondu à votre question :

Domstras à dit:
je voudrais avoir l’âge qui s’affiche dans un textbox (TextBox7)

Je rempli TextBox7 avec l'âge calculé à partir de la date de naissance en TextBox6.
Il vous suffit d'introduire ce code dans le code de votre userform.

Sans fichier test représentatif, difficile de faire mieux, ma boule de cristal est en panne.

Domstras · 23 Novembre 2024

voila mon fichier merci de ton aide

vgendron · 23 Novembre 2024

bonjour

quand on lit

VB:

Merci mais je comprend pas ce que je dois faire

et qu' on voit le fichier.. peut on en déduire que tu n'es pas l'auteur du fichier ??

Domstras · 23 Novembre 2024

Bien sur que si je recup des code pour les mettre sur mon fichier et en faire un carnet personnel

Dranreb · 23 Novembre 2024

Bonjour.
Peut être auriez vous intérêt à repartir de ce fichier …

vgendron · 23 Novembre 2024

et bah dans ce cas. la proposition de Sylvanu est plutot claire non??
ok.. il ne te tient pas la main pour te donner TOUT le code, mais puisque que tu as déjà écrit du vba.. tu devrais pouvoir t'en sortir....
dans l'évènement _afterupdate de ton textbox 6, tu inscrits la ligne de code de sylvanu.. et voila...

sinon, moi j'aime bien utiliser cette fonction qui retourne l'age

VB:

Function Age(d1 As Date, Optional d2) As String

If IsMissing(d2) Then d2 = Now()

Dim A&, m&, s&, j&
    If (d1 > 60) * (d1 <= d2) Then
        Do While DateSerial(Year(d1) + A + 1, Month(d1), Day(d1)) < d2: A = A + 1: Loop
        Do While DateSerial(Year(d1) + A, Month(d1) + m + 1, Day(d1)) < d2: m = m + 1: Loop
        Do While DateSerial(Year(d1) + A, Month(d1) + m, Day(d1) + (s + 1) * 7) < d2: s = s + 1: Loop
        Do While DateSerial(Year(d1) + A, Month(d1) + m, Day(d1) + s * 7 + j + 1) < d2: j = j + 1: Loop
        Age = IIf(A, A & " an" & IIf(A > 1, "s", "") & " ", "") & IIf(m, m & " mois ", "") & IIf(s, s & " semaine" & IIf(s > 1, "s", "") & " ", "") & IIf(j Or (A + m + j = 0), j & " jour" & IIf(j > 1, "s", ""), "")
    End If
End Function

et évidemment.. il faut aussi l'appeler dans l'évènement after update..

Domstras · 23 Novembre 2024

Merci a tous, mais je debut et je voudrais faire mon fichier est surtout comprendre ce que j'ecris

Dranreb · 23 Novembre 2024

Donc ça ne vous intéresserait pas que je la fasse à votre place, cette adaptation ?

Domstras · 23 Novembre 2024

Bien sur cela m' intéresse mais si possible avec certaine explication ou les modif avec des rem. merci

mapomme · 23 Novembre 2024

Bonjour à tous ,

Votre tableau est bancal :
La partie du haut est un tableau structuré (ce qui est plutôt bien ). La partie basse (qui contient sans doute les ajouts via le Userform sans tenir compte du fait que la tableau est un TS) ne sont pas dans le tableau structuré.

C'est à mon avis un non sens de mettre l'âge en "dur". Cela signifie que le contact aura pour l'éternité toujours le même âge. Il vaut mieux mettre une formule dans le TS (tableau structuré) qui met l'âge automatiquement à jour.
Formule en J3 pour le TS :

VB:

=SI(ESTNUM([@[Date_Naissance]]);ANNEE(AUJOURDHUI())-ANNEE([@[Date_Naissance]])-1*(DATE(ANNEE(AUJOURDHUI());MOIS(I3);JOUR([@[Date_Naissance]]))>AUJOURDHUI());"")

Formule en J14 pour la plage ordinaire (qui ne devrait pas exister -> anomalie !) :

VB:

=SI(ESTNUM(I14);ANNEE(AUJOURDHUI())-ANNEE(I14)-1*(DATE(ANNEE(AUJOURDHUI());MOIS(I14);JOUR(I14))>AUJOURDHUI());"")

Dranreb · 23 Novembre 2024

Je pense que je prendrai un Label pour l'âge parce qu'il respecte une éventuelle formule dans le tableau.

Dranreb · 23 Novembre 2024

Voici mon premier jet.

XL 2013 Calcul age dans userforme

Domstras

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Domstras

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Domstras

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

Domstras

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

Domstras

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Domstras

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

Discussions similaires