ecrire dans label

[chilo]

Bonsoir le forum
je souffre alors je crie au secours
je m'arrache les cheveux ou du moins le peu qui me reste

j'ai VENDREDI 11/01/1952 dans la cellule AD38 et la formule aujourdhui() dans la cellule AG1
j'arrive pas à trouver la méthode pour faire apparaitre le résultat de cette formule dans un label

=DATEDIF(AD38;$AG$1;"y")&" ans "&DATEDIF(AD38;$AG$1;"ym")&" mois "&DATEDIF(DC38;$AG$1;"md")&" jours"
qui donne 65 ans 3 mois 5 jours

j'ai excel 2007

2) par ailleurs quand je saisis la date dans une textbox je parviens à garder le format 11/01/1952
j'obtiens en retour 01/11/1952 ce qui m'oblige à contourner le problème mais je me trouve confronter à d'autres tout aussi compliquer

j'ai cherché longtemps sur le forum avant de m'adresser a vous

vous remerciant par avance

 

[Lone-wolf]

Bonsoir chilo.

je pense qu'il faut passer par vba.

 

[chilo]

merci pour la réponse j'ai bien essayé mais je n'ai pas trouvé la bonne formule
merci

 

[Lone-wolf]

Re chilo

Pour avoir le format voulu (en VBA) : [B2] = Format([AD38], "dd/mm/yyyy").

 

[chilo]

bonjour le forum

Lone-wolf je vais l'essayer et je reviens
merci

 

[chilo]

j'ai essayé de placer la formule dans commandbouton mais cela ne donne rien

dans la textbox j'ai comme format 12/05/1975 et une fois
sauvegarder dans une feuille appelée contact le format se transforme en 05/12/1975
j'ai usé de mes connaissances limitées sans trouver la solution

 

[Lone-wolf]

Bonjour chilo , le Forum

Si tu mettais le fichier en pièce jointe, ça serait mieux non? Sans ça difficile de t'aider d'avantage.

 

[chilo]

bonjour le forum
Lone-wolf le fichier est volumineux c'est pour raison

le problème se pose parceque je ne peux figer le format des cellules car en se faisant validation de la textbox la cellule reprend sont format a savoir mm/dd/yyyy

 

[chilo]

merci tatiak pour l'aide
j'ai essayé et je rencontre le meme problème je sauvegarde au format 11/01/1989 ou utiliser cette date par la suite je récupère 01/11/1989

merci à vous de l'aide apportée mais mon problème

et il faudrait que j'arrête de tirer mes cheveux autrement il ne me restera plus rien

 

[Roland_M]

Bonjour tout le monde,

pour éviter cela il faut utiliser Cdate() pour la sauvegarde !
car Textbox c'est du texte !

 

[chilo]

bonsoir le forum


je tiens à cous remercier pour l'aide
j'ai trouvé deux parades que je vous souomets
et il y peut-être lieu à l'améliorer
1ère
Dim dt As Date, dtM As Date, dtJ As Date
Dim difY As Integer, difM As Integer, difJ As Integer '
dt = ActiveSheet.Range("AD38").Value
' dt = #1/11/1952#
difY = DateDiff("yyyy", dt, Date)
dtM = DateAdd("yyyy", difY, dt)
difM = DateDiff("m", dtM, Date)
dtJ = DateAdd("m", difM, dtM)
difJ = DateDiff("d", dtJ, Date)
Selection.NumberFormat = "mm/dd/yyyy" 'j'ai inversé l'ordre entre le jour et mois
donc pour par exemple 12/05/1978 j'ai mis 05/12/1978
2ème
=TEXTE(AC7;"jj/mm/aaaa")
j'ai inversé
=TEXTE(AC7;"mm/jj/aaaa")
même si ce n'est folichon
je garderai un peu de cheveux ppour la prochaine fois

en vous remerciant de nouveau

 

[Lone-wolf]

Bonsoir à tous

Une petite correction à faire, il faut ajouter -1 à la ligne
difY = DateDiff("yyyy", dt, Date) - 1, sans ça je me suis retrouvé avec 1 an de plus.
Pas bien Pierre, pas bien

 

[Modeste geedee]

Bonsour®

Bonsoir le forum
je souffre alors je crie au secours
je m'arrache les cheveux ou du moins le peu qui me reste

j'ai VENDREDI 11/01/1952 dans la cellule AD38 et la formule aujourdhui() dans la cellule AG1
j'arrive pas à trouver la méthode pour faire apparaitre le résultat de cette formule dans un label

=DATEDIF(AD38;$AG$1;"y")&" ans "&DATEDIF(AD38;$AG$1;"ym")&" mois "&DATEDIF(DC38;$AG$1;"md")&" jours"
qui donne 65 ans 3 mois 5 jours

j'ai excel 2007

2) par ailleurs quand je saisis la date dans une textbox je parviens à garder le format 11/01/1952
j'obtiens en retour 01/11/1952 ce qui m'oblige à contourner le problème mais je me trouve confronter à d'autres tout aussi compliquer

j'ai cherché longtemps sur le forum avant de m'adresser a vous

vous remerciant par avance

Label1.Caption = Year(Now-[AD38])-1900 & " an(s) " & Month(Now-[AD38])-1 & " mois " & Day(Now-[AD38]) & " Jour(s)"

ne pas confondre les fonctions DATEDIF(feuille de calcul) et DATEDIFF(VBA) !!!!

à noter que la fonction DATEDIF(feuille de calcul) est buggée sous Excel 2007 notamment en janvier d'une année bissextile ( le correctif n'a jamais été diffusé sauf pour les versions supérieures ??? ...)

 

[chilo]

bonjour le forum
pour afficher le contenu du label
1) j'ai la colonne AD remplie de date de naissance, comment faire défiler dans le label les différentes dates.
en faisant dérouler la combobox
2) comment afficher la ou une formule en AE au moment ou la colonne AD n'est plus vide
PAR AVANCE UN GRAND MERCI