Macro de recherche
Résolu/Fermé
informatifien
Messages postés
781
Statut
Membre
-
informatifien Messages postés 781 Statut Membre -
informatifien Messages postés 781 Statut Membre -
Bonjour,
voilà je débute en macro, j'ai une base de donnée de licenciés, j'ai fais un userform dans lequel je rentre les informations des licenciés (nom, prénom, date etc...) j'ai créé un bouton recherche sur mon userform je voudrai quand je rentre un nom et que je clic sur recherche que tous les champ du userform se remplisse par les informations correspondantes....
j'ai un 2éme soucis j'ai une macro qui me calcule l'age à partir de la date de naissance rentrée mais le format de sorti n'est pas bon voici ma macro:
'***********
' Calcul age
'***********
Cells(a, 5).Select
Dim dnai
dnai = Cells(a, 4)
Dim age
Elt = Evaluate("DATEDIF(" & Now & ",dnai,""y""")
age = DateDiff(Now, dnai, "y") '------------------------------> pb de format ??
Cells(a, 5).Value = age
Merci d'avance pour vos réponses à un ou deux de mes problèmes
voilà je débute en macro, j'ai une base de donnée de licenciés, j'ai fais un userform dans lequel je rentre les informations des licenciés (nom, prénom, date etc...) j'ai créé un bouton recherche sur mon userform je voudrai quand je rentre un nom et que je clic sur recherche que tous les champ du userform se remplisse par les informations correspondantes....
j'ai un 2éme soucis j'ai une macro qui me calcule l'age à partir de la date de naissance rentrée mais le format de sorti n'est pas bon voici ma macro:
'***********
' Calcul age
'***********
Cells(a, 5).Select
Dim dnai
dnai = Cells(a, 4)
Dim age
Elt = Evaluate("DATEDIF(" & Now & ",dnai,""y""")
age = DateDiff(Now, dnai, "y") '------------------------------> pb de format ??
Cells(a, 5).Value = age
Merci d'avance pour vos réponses à un ou deux de mes problèmes
A voir également:
- Macro de recherche
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Rechercher ou entrer l'adresse mm - recherche google - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
5 réponses
bonjour,
il te faut transformer les dates en nombre de type entier long
n'utilise pas la fonction "now" mais "date"
ci dessous lien vers ta source d'inspiration (il est préconisé mais non obligatoire dans les forums de citer ses sources)
http://xcell05.free.fr/pages/form/dateheure.htm#DATEDIF
il te faut transformer les dates en nombre de type entier long
n'utilise pas la fonction "now" mais "date"
ci dessous lien vers ta source d'inspiration (il est préconisé mais non obligatoire dans les forums de citer ses sources)
http://xcell05.free.fr/pages/form/dateheure.htm#DATEDIF
merci d'avoir repondu aussi vite voilà la macro telle que je viens de la finalisée et ça marche:
Cells(a, 5).Select
Dim dnai
dnai = Cells(a, 4)
Dim age As Integer
age = DateDiff("yyyy", dnai, Date)
Cells(a, 5).Value = age
Super le site que tu m'as mis en lien bien expliqué....me reste plus qu'à trouver la macro de recherche ;)
Cells(a, 5).Select
Dim dnai
dnai = Cells(a, 4)
Dim age As Integer
age = DateDiff("yyyy", dnai, Date)
Cells(a, 5).Value = age
Super le site que tu m'as mis en lien bien expliqué....me reste plus qu'à trouver la macro de recherche ;)
voilà la macro telle que je viens de la finalisée
!!!!
tu veux dire:TELLE QUE POLUX VIENT DE TE L'INDIQUER
IL EST D'USAGE DE CITER SES SOURCES COMME JE TE L'AI DEJA ECRIT
--
!!!!
tu veux dire:TELLE QUE POLUX VIENT DE TE L'INDIQUER
IL EST D'USAGE DE CITER SES SOURCES COMME JE TE L'AI DEJA ECRIT
--
Bonjour,
Message signalé comme doublon. Merci de terminer la résolution de ce problème sur l'autre sujet.
Citez les sources (surtout si elles sont 2 messages plus bas...) et décrivez bien votre problème.
Je place ce sujet comme étant résolu en attendant se fermeture.
Merci à michel pour sa patience.
Message signalé comme doublon. Merci de terminer la résolution de ce problème sur l'autre sujet.
Citez les sources (surtout si elles sont 2 messages plus bas...) et décrivez bien votre problème.
Je place ce sujet comme étant résolu en attendant se fermeture.
Merci à michel pour sa patience.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question