Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel VBExcel format date

VBExcel format date

5 réponses
Avatar
lebreton
Bonjours =E0 tous,
C'est la premi=E8re fois que je viens...
ho secours!!!
Pour quand je tape les lignes suivantes dans VBExcel, le=20
format personnalis=E9 " ans" ne se met pas en place.

Function Age(dn)
'
'Calcule l'age d'une personne (Age)en fonction de la date=20
de naissance(dn).
'
Age =3D Int((Date - dn) / 365.25)
Selection.NumberFormat =3D "[>=3D2]0"" ans"";0"" an"""
End Function

Merci de la r=E9ponse et bonne journ=E9e =E0 tous
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Dédé
Salut Le Breton !

En vitesse comme ça à l'oeil ...

Est-ce que tu n'oublierais pas un caractère de concatnation comme le & ???

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"lebreton" a écrit dans le message de
news:09a701c3a38a$ecd62f60$
Bonjours à tous,
C'est la première fois que je viens...
ho secours!!!
Pour quand je tape les lignes suivantes dans VBExcel, le
format personnalisé " ans" ne se met pas en place.

Function Age(dn)
'
'Calcule l'age d'une personne (Age)en fonction de la date
de naissance(dn).
'
Age = Int((Date - dn) / 365.25)
Selection.NumberFormat = "[>=2]0"" ans"";0"" an"""
End Function

Merci de la réponse et bonne journée à tous
Avatar
le breton
non, car si j'en met ça deviens du texte et non un nombre
dur, dur
-----Message d'origine-----
Salut Le Breton !

En vitesse comme ça à l'oeil ...

Est-ce que tu n'oublierais pas un caractère de
concatnation comme le & ???


Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"lebreton" a écrit
dans le message de

news:09a701c3a38a$ecd62f60$
Bonjours à tous,
C'est la première fois que je viens...
ho secours!!!
Pour quand je tape les lignes suivantes dans VBExcel, le
format personnalisé " ans" ne se met pas en place.

Function Age(dn)
'
'Calcule l'age d'une personne (Age)en fonction de la date
de naissance(dn).
'
Age = Int((Date - dn) / 365.25)
Selection.NumberFormat = "[>=2]0"" ans"";0"" an"""
End Function

Merci de la réponse et bonne journée à tous


.



Avatar
Dédé
Attends ... j'essaie ....

@ +
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"le breton" a écrit dans le message de
news:055c01c3a399$290c94c0$
non, car si j'en met ça deviens du texte et non un nombre
dur, dur
-----Message d'origine-----
Salut Le Breton !

En vitesse comme ça à l'oeil ...

Est-ce que tu n'oublierais pas un caractère de
concatnation comme le & ???


Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"lebreton" a écrit
dans le message de

news:09a701c3a38a$ecd62f60$
Bonjours à tous,
C'est la première fois que je viens...
ho secours!!!
Pour quand je tape les lignes suivantes dans VBExcel, le
format personnalisé " ans" ne se met pas en place.

Function Age(dn)
'
'Calcule l'age d'une personne (Age)en fonction de la date
de naissance(dn).
'
Age = Int((Date - dn) / 365.25)
Selection.NumberFormat = "[>=2]0"" ans"";0"" an"""
End Function

Merci de la réponse et bonne journée à tous


.



Avatar
Dédé
Peut-être que la formule de Laurent Longre te sera plus bénéfique ;-))

La voici :
Function AGE(date1 As Date, date2 As Date) As String
'Laurent Longre
Dim Elt As Long, D1 As Long, D2 As Long
D1 = Int(date1): D2 = Int(date2)
Elt = Evaluate("DATEDIF(" & D1 & "," & D2 & ",""y""")
AGE = Elt & IIf(Elt > 1, " ans, ", " an, ") & _
Evaluate("DATEDIF(" & D1 & "," & D2 & ",""ym""") & " mois, "
Elt = Evaluate("DATEDIF(" & D1 & "," & D2 & ",""md""")
AGE = AGE & Elt & IIf(Elt > 1, " jours", " jour")
End Function

Est-ce que cela te convient ??

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"le breton" a écrit dans le message de
news:055c01c3a399$290c94c0$
non, car si j'en met ça deviens du texte et non un nombre
dur, dur
-----Message d'origine-----
Salut Le Breton !

En vitesse comme ça à l'oeil ...

Est-ce que tu n'oublierais pas un caractère de
concatnation comme le & ???


Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et
sur une seule ligne

!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR
(50)&CAR(48)&CAR(48)

&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR
(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_rep
onses.htm#e1

Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"lebreton" a écrit
dans le message de

news:09a701c3a38a$ecd62f60$
Bonjours à tous,
C'est la première fois que je viens...
ho secours!!!
Pour quand je tape les lignes suivantes dans VBExcel, le
format personnalisé " ans" ne se met pas en place.

Function Age(dn)
'
'Calcule l'age d'une personne (Age)en fonction de la date
de naissance(dn).
'
Age = Int((Date - dn) / 365.25)
Selection.NumberFormat = "[>=2]0"" ans"";0"" an"""
End Function

Merci de la réponse et bonne journée à tous


.



Avatar
Denis Michon
Bonjour LeBreton,


Essaie ceci : [>1]0" ans";0" an"


Salutations!



"lebreton" a écrit dans le message de
news:09a701c3a38a$ecd62f60$
Bonjours à tous,
C'est la première fois que je viens...
ho secours!!!
Pour quand je tape les lignes suivantes dans VBExcel, le
format personnalisé " ans" ne se met pas en place.

Function Age(dn)
'
'Calcule l'age d'une personne (Age)en fonction de la date
de naissance(dn).
'
Age = Int((Date - dn) / 365.25)
Selection.NumberFormat = "[>=2]0"" ans"";0"" an"""
End Function

Merci de la réponse et bonne journée à tous