Copie-coller vers la barre des formules et non dans la cellule !
"AndréBdR" a écrit dans le message de news:
48bd4df7$0$942$
Après m'être posé une nouvelle fois la question "Mais de quelle planète
sort-il ce Laurent ?", je suis passé à l'acte, c.à.d. copier ces quatre
délicieuses lignes de Formule pour les coller et les exploiter dans une
Cellule d'une Feuille d'Excel.
Et comme chaque fois, je m..doie allègrement, en imaginant combien doit
m..der un amateur moins averti (sic) que moi pour transposer cette strophe
de quatre lignes, en continu, dans une seule et même cellule d'Excel...
Cette fois-ci, je ne m'en suis pas trop mal tiré en commençant par
sélectionner et copier la dernière des quatre lignes de ton texte, puis en
la portant dans une cellule d'Excel. Même démarche pour la ligne qui la
précède, que je transporte dans la barre des formules de la cellule-cible,
juste avant la saisie précédente. Et ainsi de suite jusqu'à la première
ligne, celle qui débute par le "=" fatal.
Puis "OK".
C'est laborieux, mais ça marche.
J'en viens enfin à ma question de confort: existe-t-il une méthode simple
rapide sure et accessible au commun des mortels pour transférer dans une
cellule une formule préalablement saucissonnée?
Merci d'avance.
"Jacky" a écrit dans le message de
news:Bonjour,
Une date de naissance valide en A1
De Laurent Longre
Dans une cellule
=SUPPRESPACE(SI(AUJOURDHUI()-A1;TEXTE(DATEDIF(A1;AUJOURDHUI();"y");"[>1]0""
ans"";[>]""1 an"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"ym");"[>] 0"" mois
"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"md");"[>1]0"" jours"";[>]""1
jour"";");"0jour"))
--
Salutations
JJ
"Bernard TELLIEZ" a écrit dans le message de news:
%Bonjour
A partir de la date de naissance et de la date du jour, je voudrais
calculer l'age d'une personne
sous la forme ans,mois,jours
ex 43ans 08mois 03 jours
Pouvez-vous me conseiller?
Merci
Copie-coller vers la barre des formules et non dans la cellule !
"AndréBdR" <chuispasla@pasdespam.fr> a écrit dans le message de news:
48bd4df7$0$942$ba4acef3@news.orange.fr...
Après m'être posé une nouvelle fois la question "Mais de quelle planète
sort-il ce Laurent ?", je suis passé à l'acte, c.à.d. copier ces quatre
délicieuses lignes de Formule pour les coller et les exploiter dans une
Cellule d'une Feuille d'Excel.
Et comme chaque fois, je m..doie allègrement, en imaginant combien doit
m..der un amateur moins averti (sic) que moi pour transposer cette strophe
de quatre lignes, en continu, dans une seule et même cellule d'Excel...
Cette fois-ci, je ne m'en suis pas trop mal tiré en commençant par
sélectionner et copier la dernière des quatre lignes de ton texte, puis en
la portant dans une cellule d'Excel. Même démarche pour la ligne qui la
précède, que je transporte dans la barre des formules de la cellule-cible,
juste avant la saisie précédente. Et ainsi de suite jusqu'à la première
ligne, celle qui débute par le "=" fatal.
Puis "OK".
C'est laborieux, mais ça marche.
J'en viens enfin à ma question de confort: existe-t-il une méthode simple
rapide sure et accessible au commun des mortels pour transférer dans une
cellule une formule préalablement saucissonnée?
Merci d'avance.
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:O23ShcNDJHA.524@TK2MSFTNGP06.phx.gbl...
Bonjour,
Une date de naissance valide en A1
De Laurent Longre
Dans une cellule
=SUPPRESPACE(SI(AUJOURDHUI()-A1;TEXTE(DATEDIF(A1;AUJOURDHUI();"y");"[>1]0""
ans"";[>]""1 an"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"ym");"[>] 0"" mois
"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"md");"[>1]0"" jours"";[>]""1
jour"";");"0jour"))
--
Salutations
JJ
"Bernard TELLIEZ" <telliezb@free.fr> a écrit dans le message de news:
%23PmxcHNDJHA.2292@TK2MSFTNGP02.phx.gbl...
Bonjour
A partir de la date de naissance et de la date du jour, je voudrais
calculer l'age d'une personne
sous la forme ans,mois,jours
ex 43ans 08mois 03 jours
Pouvez-vous me conseiller?
Merci
Copie-coller vers la barre des formules et non dans la cellule !
"AndréBdR" a écrit dans le message de news:
48bd4df7$0$942$
Après m'être posé une nouvelle fois la question "Mais de quelle planète
sort-il ce Laurent ?", je suis passé à l'acte, c.à.d. copier ces quatre
délicieuses lignes de Formule pour les coller et les exploiter dans une
Cellule d'une Feuille d'Excel.
Et comme chaque fois, je m..doie allègrement, en imaginant combien doit
m..der un amateur moins averti (sic) que moi pour transposer cette strophe
de quatre lignes, en continu, dans une seule et même cellule d'Excel...
Cette fois-ci, je ne m'en suis pas trop mal tiré en commençant par
sélectionner et copier la dernière des quatre lignes de ton texte, puis en
la portant dans une cellule d'Excel. Même démarche pour la ligne qui la
précède, que je transporte dans la barre des formules de la cellule-cible,
juste avant la saisie précédente. Et ainsi de suite jusqu'à la première
ligne, celle qui débute par le "=" fatal.
Puis "OK".
C'est laborieux, mais ça marche.
J'en viens enfin à ma question de confort: existe-t-il une méthode simple
rapide sure et accessible au commun des mortels pour transférer dans une
cellule une formule préalablement saucissonnée?
Merci d'avance.
"Jacky" a écrit dans le message de
news:Bonjour,
Une date de naissance valide en A1
De Laurent Longre
Dans une cellule
=SUPPRESPACE(SI(AUJOURDHUI()-A1;TEXTE(DATEDIF(A1;AUJOURDHUI();"y");"[>1]0""
ans"";[>]""1 an"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"ym");"[>] 0"" mois
"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"md");"[>1]0"" jours"";[>]""1
jour"";");"0jour"))
--
Salutations
JJ
"Bernard TELLIEZ" a écrit dans le message de news:
%Bonjour
A partir de la date de naissance et de la date du jour, je voudrais
calculer l'age d'une personne
sous la forme ans,mois,jours
ex 43ans 08mois 03 jours
Pouvez-vous me conseiller?
Merci
Bonsour® Francois L avec ferveur ;o))) vous nous disiez :ctac a écrit :La date de naissance en D3
=AUJOURDHUI()-D3
Format cellule Personnalisée y"ans "m"mois "d"jours"
Tu es sur ?
;o)) tu chipotes pour 1 mois ....
moi j'ai un petit penchant pour celle-ci en durée "Sidérale" qui est plus précise (à 0.53s prés)
Sachant que" l'année sidérale est 20 minutes et 24 secondes plus longue que l'année tropique moyenne
et que la durée de l'année tropique diminue légèrement dans le temps, actuellement d'environ 0,53 s par siècle.
;o)))
=ENT((AUJOURDHUI()-A1)/365,256354) & " an(s) " &ENT(MOD(AUJOURDHUI()-A1;365,256354)/(365,256354/12))& " mois " &ENT(MOD((AUJOURDHUI()-A1);(365,256354/12))) & " jr(s)"
Bonsour® Francois L avec ferveur ;o))) vous nous disiez :
ctac a écrit :
La date de naissance en D3
=AUJOURDHUI()-D3
Format cellule Personnalisée y"ans "m"mois "d"jours"
Tu es sur ?
;o)) tu chipotes pour 1 mois ....
moi j'ai un petit penchant pour celle-ci en durée "Sidérale" qui est plus précise (à 0.53s prés)
Sachant que" l'année sidérale est 20 minutes et 24 secondes plus longue que l'année tropique moyenne
et que la durée de l'année tropique diminue légèrement dans le temps, actuellement d'environ 0,53 s par siècle.
;o)))
=ENT((AUJOURDHUI()-A1)/365,256354) & " an(s) " &ENT(MOD(AUJOURDHUI()-A1;365,256354)/(365,256354/12))& " mois " &ENT(MOD((AUJOURDHUI()-A1);(365,256354/12))) & " jr(s)"
Bonsour® Francois L avec ferveur ;o))) vous nous disiez :ctac a écrit :La date de naissance en D3
=AUJOURDHUI()-D3
Format cellule Personnalisée y"ans "m"mois "d"jours"
Tu es sur ?
;o)) tu chipotes pour 1 mois ....
moi j'ai un petit penchant pour celle-ci en durée "Sidérale" qui est plus précise (à 0.53s prés)
Sachant que" l'année sidérale est 20 minutes et 24 secondes plus longue que l'année tropique moyenne
et que la durée de l'année tropique diminue légèrement dans le temps, actuellement d'environ 0,53 s par siècle.
;o)))
=ENT((AUJOURDHUI()-A1)/365,256354) & " an(s) " &ENT(MOD(AUJOURDHUI()-A1;365,256354)/(365,256354/12))& " mois " &ENT(MOD((AUJOURDHUI()-A1);(365,256354/12))) & " jr(s)"
Je ne sais pas pourquoi ma première réponse n'est pas sortie.
Alors, je recommence.
Merci.
"michdenis" a écrit dans le message de
news:%Copie-coller vers la barre des formules et non dans la cellule !
"AndréBdR" a écrit dans le message de news:
48bd4df7$0$942$
Après m'être posé une nouvelle fois la question "Mais de quelle planète
sort-il ce Laurent ?", je suis passé à l'acte, c.à.d. copier ces quatre
délicieuses lignes de Formule pour les coller et les exploiter dans une
Cellule d'une Feuille d'Excel.
Et comme chaque fois, je m..doie allègrement, en imaginant combien doit
m..der un amateur moins averti (sic) que moi pour transposer cette
strophe
de quatre lignes, en continu, dans une seule et même cellule d'Excel...
Cette fois-ci, je ne m'en suis pas trop mal tiré en commençant par
sélectionner et copier la dernière des quatre lignes de ton texte,
puis en
la portant dans une cellule d'Excel. Même démarche pour la ligne qui la
précède, que je transporte dans la barre des formules de la
cellule-cible,
juste avant la saisie précédente. Et ainsi de suite jusqu'à la première
ligne, celle qui débute par le "=" fatal.
Puis "OK".
C'est laborieux, mais ça marche.
J'en viens enfin à ma question de confort: existe-t-il une méthode simple
rapide sure et accessible au commun des mortels pour transférer dans une
cellule une formule préalablement saucissonnée?
Merci d'avance.
"Jacky" a écrit dans le message de
news:Bonjour,
Une date de naissance valide en A1
De Laurent Longre
Dans une cellule
=SUPPRESPACE(SI(AUJOURDHUI()-A1;TEXTE(DATEDIF(A1;AUJOURDHUI();"y");"[>1]0""
ans"";[>]""1 an"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"ym");"[>] 0"" mois
"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"md");"[>1]0"" jours"";[>]""1
jour"";");"0jour"))
--
Salutations
JJ
"Bernard TELLIEZ" a écrit dans le message de news:
%Bonjour
A partir de la date de naissance et de la date du jour, je voudrais
calculer l'age d'une personne
sous la forme ans,mois,jours
ex 43ans 08mois 03 jours
Pouvez-vous me conseiller?
Merci
Je ne sais pas pourquoi ma première réponse n'est pas sortie.
Alors, je recommence.
Merci.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23XeP4kQDJHA.4696@TK2MSFTNGP04.phx.gbl...
Copie-coller vers la barre des formules et non dans la cellule !
"AndréBdR" <chuispasla@pasdespam.fr> a écrit dans le message de news:
48bd4df7$0$942$ba4acef3@news.orange.fr...
Après m'être posé une nouvelle fois la question "Mais de quelle planète
sort-il ce Laurent ?", je suis passé à l'acte, c.à.d. copier ces quatre
délicieuses lignes de Formule pour les coller et les exploiter dans une
Cellule d'une Feuille d'Excel.
Et comme chaque fois, je m..doie allègrement, en imaginant combien doit
m..der un amateur moins averti (sic) que moi pour transposer cette
strophe
de quatre lignes, en continu, dans une seule et même cellule d'Excel...
Cette fois-ci, je ne m'en suis pas trop mal tiré en commençant par
sélectionner et copier la dernière des quatre lignes de ton texte,
puis en
la portant dans une cellule d'Excel. Même démarche pour la ligne qui la
précède, que je transporte dans la barre des formules de la
cellule-cible,
juste avant la saisie précédente. Et ainsi de suite jusqu'à la première
ligne, celle qui débute par le "=" fatal.
Puis "OK".
C'est laborieux, mais ça marche.
J'en viens enfin à ma question de confort: existe-t-il une méthode simple
rapide sure et accessible au commun des mortels pour transférer dans une
cellule une formule préalablement saucissonnée?
Merci d'avance.
"Jacky" <Dupond@marcel.fr> a écrit dans le message de
news:O23ShcNDJHA.524@TK2MSFTNGP06.phx.gbl...
Bonjour,
Une date de naissance valide en A1
De Laurent Longre
Dans une cellule
=SUPPRESPACE(SI(AUJOURDHUI()-A1;TEXTE(DATEDIF(A1;AUJOURDHUI();"y");"[>1]0""
ans"";[>]""1 an"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"ym");"[>] 0"" mois
"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"md");"[>1]0"" jours"";[>]""1
jour"";");"0jour"))
--
Salutations
JJ
"Bernard TELLIEZ" <telliezb@free.fr> a écrit dans le message de news:
%23PmxcHNDJHA.2292@TK2MSFTNGP02.phx.gbl...
Bonjour
A partir de la date de naissance et de la date du jour, je voudrais
calculer l'age d'une personne
sous la forme ans,mois,jours
ex 43ans 08mois 03 jours
Pouvez-vous me conseiller?
Merci
Je ne sais pas pourquoi ma première réponse n'est pas sortie.
Alors, je recommence.
Merci.
"michdenis" a écrit dans le message de
news:%Copie-coller vers la barre des formules et non dans la cellule !
"AndréBdR" a écrit dans le message de news:
48bd4df7$0$942$
Après m'être posé une nouvelle fois la question "Mais de quelle planète
sort-il ce Laurent ?", je suis passé à l'acte, c.à.d. copier ces quatre
délicieuses lignes de Formule pour les coller et les exploiter dans une
Cellule d'une Feuille d'Excel.
Et comme chaque fois, je m..doie allègrement, en imaginant combien doit
m..der un amateur moins averti (sic) que moi pour transposer cette
strophe
de quatre lignes, en continu, dans une seule et même cellule d'Excel...
Cette fois-ci, je ne m'en suis pas trop mal tiré en commençant par
sélectionner et copier la dernière des quatre lignes de ton texte,
puis en
la portant dans une cellule d'Excel. Même démarche pour la ligne qui la
précède, que je transporte dans la barre des formules de la
cellule-cible,
juste avant la saisie précédente. Et ainsi de suite jusqu'à la première
ligne, celle qui débute par le "=" fatal.
Puis "OK".
C'est laborieux, mais ça marche.
J'en viens enfin à ma question de confort: existe-t-il une méthode simple
rapide sure et accessible au commun des mortels pour transférer dans une
cellule une formule préalablement saucissonnée?
Merci d'avance.
"Jacky" a écrit dans le message de
news:Bonjour,
Une date de naissance valide en A1
De Laurent Longre
Dans une cellule
=SUPPRESPACE(SI(AUJOURDHUI()-A1;TEXTE(DATEDIF(A1;AUJOURDHUI();"y");"[>1]0""
ans"";[>]""1 an"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"ym");"[>] 0"" mois
"";")&TEXTE(DATEDIF(A1;AUJOURDHUI();"md");"[>1]0"" jours"";[>]""1
jour"";");"0jour"))
--
Salutations
JJ
"Bernard TELLIEZ" a écrit dans le message de news:
%Bonjour
A partir de la date de naissance et de la date du jour, je voudrais
calculer l'age d'une personne
sous la forme ans,mois,jours
ex 43ans 08mois 03 jours
Pouvez-vous me conseiller?
Merci
le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
Bonsour® Francois L avec ferveur ;o))) vous nous disiez :le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
Le probleme de l'âge est un classique des calculs sur dates et qui n'admet de solution exacte qu'en terme de jours.
la division en années qui ont parfois 365 ou 366 jours,
la division en mois qui ont 28, 29,30 ou 31 jours en est la pierre d'achoppement...
partant du principe qu'une personne dit (à une date donnée) avoir : 33 ans 7 mois et 15 jours
trouver la date de naissance ???
selon les divers algorithmes publiés ici et sur d'autres forums on aura 3 à 4 réponses différentes ;o)))
c'est pourquoi, ;o)))
je glisse régulierement ma petite formule "sidérale" qui permet un calcul lineaire et réversible de ce sujet .
Elle ne satisfera pas certe tout les esprits pointilleux, mais elle est "exacte" conceptuellement...
Bonsour® Francois L avec ferveur ;o))) vous nous disiez :
le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
Le probleme de l'âge est un classique des calculs sur dates et qui n'admet de solution exacte qu'en terme de jours.
la division en années qui ont parfois 365 ou 366 jours,
la division en mois qui ont 28, 29,30 ou 31 jours en est la pierre d'achoppement...
partant du principe qu'une personne dit (à une date donnée) avoir : 33 ans 7 mois et 15 jours
trouver la date de naissance ???
selon les divers algorithmes publiés ici et sur d'autres forums on aura 3 à 4 réponses différentes ;o)))
c'est pourquoi, ;o)))
je glisse régulierement ma petite formule "sidérale" qui permet un calcul lineaire et réversible de ce sujet .
Elle ne satisfera pas certe tout les esprits pointilleux, mais elle est "exacte" conceptuellement...
Bonsour® Francois L avec ferveur ;o))) vous nous disiez :le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
Le probleme de l'âge est un classique des calculs sur dates et qui n'admet de solution exacte qu'en terme de jours.
la division en années qui ont parfois 365 ou 366 jours,
la division en mois qui ont 28, 29,30 ou 31 jours en est la pierre d'achoppement...
partant du principe qu'une personne dit (à une date donnée) avoir : 33 ans 7 mois et 15 jours
trouver la date de naissance ???
selon les divers algorithmes publiés ici et sur d'autres forums on aura 3 à 4 réponses différentes ;o)))
c'est pourquoi, ;o)))
je glisse régulierement ma petite formule "sidérale" qui permet un calcul lineaire et réversible de ce sujet .
Elle ne satisfera pas certe tout les esprits pointilleux, mais elle est "exacte" conceptuellement...
le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
le pire c'est que j'ai
testé en me disant est-il possible que tous les LL et autres soient
passés à coté d'une solution aussi simple.
Quand à l'année "sidérale", je dois avouer ma totale incompétence...
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Il y a tout de même un écart de deux jours entre le code de LL et le
tien dans certain cas.
Je veux pas chipoté, mais deux jours .....c'est beaucoup sur moins de
deux ans.
http://cjoint.com/?jdkp0mEf30
Au moins de mai, il y avait eu une discussion sur le sujet
mais à propos de "DateDif"....très intéressant :
http://groups.google.fr/group/microsoft.public.fr.excel/search?hl=fr&group=microsoft.public.fr.excel&q=pb+calcul+duree+avec+datedif&qt_g=Rechercher+dans+ce+groupe
Où j'avais proposé cette procédure :
Une fonction personnelle parue ici sous la plume de "cervolent"
'----------------------------------------------
Function TEMPSECOULE(Debut, Fin) As String
Dim ValAnnée As Integer, ValMois As Integer
Dim ValJour As Integer, ValJour1 As Integer, ValJour2 As Integer
ValAnnée = Year(Fin) - Year(Debut)
ValMois = Month(Fin) - Month(Debut)
If ValMois < 0 Then
ValAnnée = ValAnnée - 1
ValMois = ValMois + 12
End If
ValJour1 = Day(Debut)
ValJour2 = Day(Fin)
ValJour = ValJour2 - ValJour1
If ValJour < 0 Then
ValJour = Day(DateSerial(Year(Debut), Month(Debut) + 1, 0)) - ValJour1
+
ValJour2
If ValMois > 0 Then
ValMois = ValMois - 1
Else
ValAnnée = ValAnnée - 1
ValMois = 11
End If
End If
'les tests qui suivent ne servent qu'aux accrords de pluriel !!
If ValAnnée > 1 Then
antexte = " ans "
Else
antexte = " an "
End If
If ValJour > 1 Then
jrtexte = " jours"
Else
jrtexte = " jour"
End If
TEMPSECOULE = ValAnnée & antexte & ValMois & " mois " & ValJour & jrtexte
End Function
'----------------------------------------------
Au moins de mai, il y avait eu une discussion sur le sujet
mais à propos de "DateDif"....très intéressant :
http://groups.google.fr/group/microsoft.public.fr.excel/search?hl=fr&group=microsoft.public.fr.excel&q=pb+calcul+duree+avec+datedif&qt_g=Rechercher+dans+ce+groupe
Où j'avais proposé cette procédure :
Une fonction personnelle parue ici sous la plume de "cervolent"
'----------------------------------------------
Function TEMPSECOULE(Debut, Fin) As String
Dim ValAnnée As Integer, ValMois As Integer
Dim ValJour As Integer, ValJour1 As Integer, ValJour2 As Integer
ValAnnée = Year(Fin) - Year(Debut)
ValMois = Month(Fin) - Month(Debut)
If ValMois < 0 Then
ValAnnée = ValAnnée - 1
ValMois = ValMois + 12
End If
ValJour1 = Day(Debut)
ValJour2 = Day(Fin)
ValJour = ValJour2 - ValJour1
If ValJour < 0 Then
ValJour = Day(DateSerial(Year(Debut), Month(Debut) + 1, 0)) - ValJour1
+
ValJour2
If ValMois > 0 Then
ValMois = ValMois - 1
Else
ValAnnée = ValAnnée - 1
ValMois = 11
End If
End If
'les tests qui suivent ne servent qu'aux accrords de pluriel !!
If ValAnnée > 1 Then
antexte = " ans "
Else
antexte = " an "
End If
If ValJour > 1 Then
jrtexte = " jours"
Else
jrtexte = " jour"
End If
TEMPSECOULE = ValAnnée & antexte & ValMois & " mois " & ValJour & jrtexte
End Function
'----------------------------------------------
Au moins de mai, il y avait eu une discussion sur le sujet
mais à propos de "DateDif"....très intéressant :
http://groups.google.fr/group/microsoft.public.fr.excel/search?hl=fr&group=microsoft.public.fr.excel&q=pb+calcul+duree+avec+datedif&qt_g=Rechercher+dans+ce+groupe
Où j'avais proposé cette procédure :
Une fonction personnelle parue ici sous la plume de "cervolent"
'----------------------------------------------
Function TEMPSECOULE(Debut, Fin) As String
Dim ValAnnée As Integer, ValMois As Integer
Dim ValJour As Integer, ValJour1 As Integer, ValJour2 As Integer
ValAnnée = Year(Fin) - Year(Debut)
ValMois = Month(Fin) - Month(Debut)
If ValMois < 0 Then
ValAnnée = ValAnnée - 1
ValMois = ValMois + 12
End If
ValJour1 = Day(Debut)
ValJour2 = Day(Fin)
ValJour = ValJour2 - ValJour1
If ValJour < 0 Then
ValJour = Day(DateSerial(Year(Debut), Month(Debut) + 1, 0)) - ValJour1
+
ValJour2
If ValMois > 0 Then
ValMois = ValMois - 1
Else
ValAnnée = ValAnnée - 1
ValMois = 11
End If
End If
'les tests qui suivent ne servent qu'aux accrords de pluriel !!
If ValAnnée > 1 Then
antexte = " ans "
Else
antexte = " an "
End If
If ValJour > 1 Then
jrtexte = " jours"
Else
jrtexte = " jour"
End If
TEMPSECOULE = ValAnnée & antexte & ValMois & " mois " & ValJour & jrtexte
End Function
'----------------------------------------------