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
Daniel
Bonjour. ÚTE(ANNEE(A1)-1;MOIS(A1);JOUR(A1)) (la date initiale étant en A1) Cordialement. Daniel "Michel M" a écrit dans le message de news: lbUPe.27336$
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003
Merci d'avance pour votre aide.
Bon WE.
Michel M.
Bonjour.
ÚTE(ANNEE(A1)-1;MOIS(A1);JOUR(A1))
(la date initiale étant en A1)
Cordialement.
Daniel
"Michel M" <jur.ham@free.fr> a écrit dans le message de news:
lbUPe.27336$hV3.10981@nntpserver.swip.net...
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004
mais 30/06/2004-365 = 01/07/2003
Bonjour. ÚTE(ANNEE(A1)-1;MOIS(A1);JOUR(A1)) (la date initiale étant en A1) Cordialement. Daniel "Michel M" a écrit dans le message de news: lbUPe.27336$
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003
Merci d'avance pour votre aide.
Bon WE.
Michel M.
Michel M
Bonjour. ÚTE(ANNEE(A1)-1;MOIS(A1);JOUR(A1)) (la date initiale étant en A1) Cordialement. Daniel "Michel M" a écrit dans le message de news: lbUPe.27336$
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003
Merci d'avance pour votre aide.
Bon WE.
Michel M.
Merci beaucoup, c'est parfait.
Bon WE.
Suede21
Bonjour.
ÚTE(ANNEE(A1)-1;MOIS(A1);JOUR(A1))
(la date initiale étant en A1)
Cordialement.
Daniel
"Michel M" <jur.ham@free.fr> a écrit dans le message de news:
lbUPe.27336$hV3.10981@nntpserver.swip.net...
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004
mais 30/06/2004-365 = 01/07/2003
Bonjour. ÚTE(ANNEE(A1)-1;MOIS(A1);JOUR(A1)) (la date initiale étant en A1) Cordialement. Daniel "Michel M" a écrit dans le message de news: lbUPe.27336$
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003
Merci d'avance pour votre aide.
Bon WE.
Michel M.
Merci beaucoup, c'est parfait.
Bon WE.
Suede21
FxM
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003
Merci d'avance pour votre aide.
Bon WE.
Michel M.
Bonjour,
Quelle doit être la réponse pour :
Ex 29/02/2004 -> ?
@+ FxM
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004
mais 30/06/2004-365 = 01/07/2003
Ne pas oublier d'activer l'Utilitaire d'analyse sous les macros complémentaires du menu Outils
Cette fonction permet aussi de décaler une date d'un semestre, d'un trimestre, ...
Â+
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003
Merci d'avance pour votre aide.
Bon WE.
Michel M.
michdenis
Bonjour Michel,
Une fonction personnalisée pour tenir compte du 29 février des années Bissextiles.
Et dans la cellule où l'on désire avoir un résultat : = LastYear(A1)
Les fonctions doivent être copié dans un module standard.
'-------------------------------- Function LastYear(Rg As Range) As Variant If IsDate(Rg) Then If IsBissextile(Year(Rg)) Then If Rg = DateSerial(Year(Rg), 2, 29) Then LastYear = DateSerial(Year(Rg) - 1, 2, 28) Else LastYear = DateSerial(Year(Rg) - 1, Month(Rg), Day(Rg)) End If Else LastYear = DateSerial(Year(Rg) - 1, Month(Rg), Day(Rg)) End If Else LastYear = "Pas une date" End If End Function '-------------------------------- Function IsBissextile(An) IsBissextile = IsDate("29/2/" & An) End Function '--------------------------------
Salutations!
"Michel M" a écrit dans le message de news: lbUPe.27336$ Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003
Merci d'avance pour votre aide.
Bon WE.
Michel M.
Bonjour Michel,
Une fonction personnalisée pour tenir compte du 29 février des années Bissextiles.
Et dans la cellule où l'on désire avoir un résultat :
= LastYear(A1)
Les fonctions doivent être copié dans un module standard.
'--------------------------------
Function LastYear(Rg As Range) As Variant
If IsDate(Rg) Then
If IsBissextile(Year(Rg)) Then
If Rg = DateSerial(Year(Rg), 2, 29) Then
LastYear = DateSerial(Year(Rg) - 1, 2, 28)
Else
LastYear = DateSerial(Year(Rg) - 1, Month(Rg), Day(Rg))
End If
Else
LastYear = DateSerial(Year(Rg) - 1, Month(Rg), Day(Rg))
End If
Else
LastYear = "Pas une date"
End If
End Function
'--------------------------------
Function IsBissextile(An)
IsBissextile = IsDate("29/2/" & An)
End Function
'--------------------------------
Salutations!
"Michel M" <jur.ham@free.fr> a écrit dans le message de news: lbUPe.27336$hV3.10981@nntpserver.swip.net...
Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004
mais 30/06/2004-365 = 01/07/2003
Une fonction personnalisée pour tenir compte du 29 février des années Bissextiles.
Et dans la cellule où l'on désire avoir un résultat : = LastYear(A1)
Les fonctions doivent être copié dans un module standard.
'-------------------------------- Function LastYear(Rg As Range) As Variant If IsDate(Rg) Then If IsBissextile(Year(Rg)) Then If Rg = DateSerial(Year(Rg), 2, 29) Then LastYear = DateSerial(Year(Rg) - 1, 2, 28) Else LastYear = DateSerial(Year(Rg) - 1, Month(Rg), Day(Rg)) End If Else LastYear = DateSerial(Year(Rg) - 1, Month(Rg), Day(Rg)) End If Else LastYear = "Pas une date" End If End Function '-------------------------------- Function IsBissextile(An) IsBissextile = IsDate("29/2/" & An) End Function '--------------------------------
Salutations!
"Michel M" a écrit dans le message de news: lbUPe.27336$ Bonjour,
Quelle est la formule pour retrancher précisément une année?
Ex 30/04/2005 30/04/2004?
J'ai tenté de soustraire 365, mais ça ne marche pas toujours:
31/07/2005-365 = 31/07/2004 mais 30/06/2004-365 = 01/07/2003