XL 2013 Calcul age dans userforme

[Domstras]

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

 

[patricktoulon]

bonjour
il n'y a pas que tableau qui est bancale
si il devait avoir plusieurs patronymes identiques comment on fait pour choisir?
ça se gère pas du tout comme ça une BDD
quand au code je vais pas en parler c'est un ramassis de truc bidule chouette trouvé ici et là

fait moi plaisir
fait un ctrl+A+X dans ton module userform et reprends tout à zero et écoute tes camarades

 

[Domstras]

Bonjour, Merci mais certain champs ne fonctionne pas je vais essayer de voir pourquoi mais s'est bien merci

 

[patricktoulon]

bonjour
Comme je l'ai dit ce n'est pas comme ça que l'on gère une BDD contacts
mais si tu y tiens a rester dans ton principe alors jette ton fichier et prends celui ci

 

[Domstras]

Merci patricktoulon cela me convient très bien (comme écris dans mon profil faut m'excuser mais j'ai eu un AVC est j'ai du mal à réfléchir)
Dans la colonne rue comment mettre tous en minuscule ?
Dans la colonne Prénom mettre juste une majuscule en début le reste en minuscule
Quand on écris la date de naissance j'avais trouver que au moment de l’écriture il ajoute / en automatique pareil pour les n° de tél
est faire un contrôle sur l’émail.
Je suis exigent mais surtout après je vais essayer de comprendre toute les commande pour me faire un tuto pour les prochains fichiers
Un grand merci a toi et a tous pour vos conseil

 

[patricktoulon]

re
majuscule/Nom Propre/minuscule réglé
date formaté avec contrôle et mask de saisie dynamique ok
textbox téléphone formaté dynamiquement ok

control de validité sur ajouter et modifier ok

Bon courage

 

[Domstras]

Merci beaucoup la validite du mail marche pas et rue toujour en majuscule, dis moi juste quels code pour 1 lettre en majuscule

 

[Domstras]

s'est ici que tu format l'ecriture 00/00/2000 ???

Private Sub tbxanniv_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
DateBox tbxanniv, KeyCode
End Sub

 

[patricktoulon]

oui par la sub DateBox