Discussion :

[Un Internaute]

Bonjour le forum,
Bon j'ai totalement revu ma stratégie!

J'ai ouvert volontairement une autre discussion car j'avais noté Résolue

Ancienne formule

Code : Sélectionner tout - Visualiser dans une fenêtre à part

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A3="";"";SI(LIGNE()=EQUIV(RECHERCHE(10000;$B$3:$B$3500);$B$1:$B$3500;0);SI(DATEDIF(A3;AUJOURDHUI();"Y")>0;DATEDIF(A3;AUJOURDHUI();"Y")&SI(DATEDIF(A3;AUJOURDHUI();"Y")>1;" ans ";" an ");"") & SI(DATEDIF(A3;AUJOURDHUI();"YM")>0;DATEDIF(A3;AUJOURDHUI();"YM")&" mois ";"") &DATEDIF(A3;AUJOURDHUI();"MD")&SI(DATEDIF(A3;AUJOURDHUI();"MD")>1;" jours";" jour");""))

Nouvelle formule

Code : Sélectionner tout - Visualiser dans une fenêtre à part

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(B3<>"";NB(B:B)=NB($B$1:B4));AUJOURDHUI()-A3;"")

Effectivement on peut taper le même nombre colonne B3 (pas besoin d'ajouter 001 Exemple : 3.400001) et ça fonctionne bien, mais comme résultat je veux le nombre de Années Mois & Jours

Y aurait-il une "âme" charitable pour m'aider à compléter la nouvelle formule?
Merci d'avance pour vos éventuels retours
Bonne journée à tous
Bien cordialement

[kiki29]

Salut, sous forme de fonction personnalisée, en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Function DiffDateAMJ(ByVal DateDebut As Date, ByVal DateFin As Date) As String
Dim NbAns As Long, NbMois As Long, NbJours As Long
Dim Tmp As Date
    Tmp = DateSerial(Year(DateFin), Month(DateDebut), Day(DateDebut))
    NbAns = Year(DateFin) - Year(DateDebut) + (Tmp > DateFin)
    NbMois = Month(DateFin) - Month(DateDebut) - (12 * (Tmp > DateFin))
    NbJours = Day(DateFin) - Day(DateDebut)
    If NbJours < 0 Then
        NbMois = NbMois - 1
        NbJours = Day(DateSerial(Year(DateFin), Month(DateFin), 0)) + NbJours
    End If
    DiffDateAMJ = NbAns & "a " & NbMois & "m " & NbJours & "j"
End Function

[Un Internaute]

Salut, sous forme de fonction personnalisée, en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Function DiffDateAMJ(ByVal DateDebut As Date, ByVal DateFin As Date) As String
Dim NbAns As Long, NbMois As Long, NbJours As Long
Dim Tmp As Date
    Tmp = DateSerial(Year(DateFin), Month(DateDebut), Day(DateDebut))
    NbAns = Year(DateFin) - Year(DateDebut) + (Tmp > DateFin)
    NbMois = Month(DateFin) - Month(DateDebut) - (12 * (Tmp > DateFin))
    NbJours = Day(DateFin) - Day(DateDebut)
    If NbJours < 0 Then
        NbMois = NbMois - 1
        NbJours = Day(DateSerial(Year(DateFin), Month(DateFin), 0)) + NbJours
    End If
    DiffDateAMJ = NbAns & "a " & NbMois & "m " & NbJours & "j"
End Function

Bonjour kiki29,
Je pense qu'il faut mettre le code dans la feuille mais le VBA et moi!!!
Voici mon fichier qui vaudra mieux qu'un long discours mais on m'a dit que les fichiers sont plus ou moins ouverts sur le forum.
Je le met quand même si tu peux l'adapter je serais très heureux car j'y bosse depuis....quelques jours!!!!
Encore merci pour ton aide
Bonne journée à toi
Bien cordialement

PS: Ligne A fusionnée (pas très bon ça!!!)

[Menhir]

Si ton calcul en en C1

Le nombre d'années en C2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(C1/365,25)

Le nombre de mois en C3 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT((C1-C2*365,25)/30,5)

Le nombre de jours en C4 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ENT(C1-C2*365,25-C3*30,5)

Mais, bien sûr, étant donné qu'un "mois" ou une "années" sont des notions dont la durée est variable (contrairement à celle d'une semaine), il ne peut s'agir que de résultats approximatifs.

[kiki29]

Re, tu colles le code dans un module standard puis tu lis fonction personnalisée

[Un Internaute]

Bonsoir kiki29 & Menhir,

Ouf j'ai trouvé quelque chose qui fonctionne mais j'ai appris des choses grâce à vous deux.
Surtout pour le détail de vos explications.
Lorsqu'on a conçu le programme c'est plus facile surtout que là c'était un peu compliqué à expliqué sur un forum.

Voilà ma formule qui fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(B3<>"";NB(B:B)=NB($B$1:B3));SI(DATEDIF(A3;AUJOURDHUI();"Y")>0;DATEDIF(A3;AUJOURDHUI();"Y")&SI(DATEDIF(A3;AUJOURDHUI();"Y")>1;" ans ";" an ");"")&SI(DATEDIF(A3;AUJOURDHUI();"YM")>0;DATEDIF(A3;AUJOURDHUI();"YM")&" mois ";"")&DATEDIF(A3;AUJOURDHUI();"MD")&SI(DATEDIF(A3;AUJOURDHUI();"MD")>1;" jours";" jour");"")

C'était juste ce morceau de code qui était compliqué à trouver surtout pour moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(B3<>"";NB(B:B)=NB($B$1:B3))

Je vous remercie encore.
Bonne fin de soirée à vous deux
Bien cordialement