un internaute
XLDnaute Impliqué
Bonjour le forum,
Dans mon VBA ci-dessous je met 362 qui est égal au nombre de jours:
Option Explicit
Public NbComprime As Integer
Public NbJour As Integer
Sub Init()
NbComprime = 1 ' 1 = pour 1 Comprimé/jour
NbJour = 362
End Sub
J'ai la formule ci-dessous Colonne F:
=SI(OU((G3="");(H3=""));"";SI((H3-G3+1)<30;TEXTE(H3-G3+1;"[>1]0"" jours "";[=1]""1 jour "";#");SI(ENT((H3-G3+1)/30)<12;TEXTE(ENT((H3-G3+1)/30);"[>0]0"" mois "";;#")&TEXTE((H3-G3+1)-(ENT((H3-G3+1)/30)*30);"[>1]0"" jours "";[=1]""1 jour "";#");TEXTE(ENT((H3-G3+1)/30/12);"[>1]0"" ans "";[=1]""1 an "";#")&TEXTE(ENT((H3-G3+1)/30)-ENT((H3-G3+1)/30/12)*12;"[>0]0"" mois "";;#")&TEXTE((H3-G3+1)-(ENT((H3-G3+1)/30)*30);"[>1]0"" jours "";[=1]""1 jour "";#"))))
Dans cette même colonne F ça me donne le résultat suivant:
1 an 2 jours
Si quelqu'un à la solution je suis preneur.
Merci pour vos éventuels retours
Bonne journée à vous tous
Dans mon VBA ci-dessous je met 362 qui est égal au nombre de jours:
Option Explicit
Public NbComprime As Integer
Public NbJour As Integer
Sub Init()
NbComprime = 1 ' 1 = pour 1 Comprimé/jour
NbJour = 362
End Sub
J'ai la formule ci-dessous Colonne F:
=SI(OU((G3="");(H3=""));"";SI((H3-G3+1)<30;TEXTE(H3-G3+1;"[>1]0"" jours "";[=1]""1 jour "";#");SI(ENT((H3-G3+1)/30)<12;TEXTE(ENT((H3-G3+1)/30);"[>0]0"" mois "";;#")&TEXTE((H3-G3+1)-(ENT((H3-G3+1)/30)*30);"[>1]0"" jours "";[=1]""1 jour "";#");TEXTE(ENT((H3-G3+1)/30/12);"[>1]0"" ans "";[=1]""1 an "";#")&TEXTE(ENT((H3-G3+1)/30)-ENT((H3-G3+1)/30/12)*12;"[>0]0"" mois "";;#")&TEXTE((H3-G3+1)-(ENT((H3-G3+1)/30)*30);"[>1]0"" jours "";[=1]""1 jour "";#"))))
Dans cette même colonne F ça me donne le résultat suivant:
1 an 2 jours
Si quelqu'un à la solution je suis preneur.
Merci pour vos éventuels retours
Bonne journée à vous tous