XL 2016 Conversion du nombre de jour cumulé en Format mois et jour

[djiska]

Bonjour ej voudrai si quelq'un connait une Macro pour convertir nombre de jours cumulé en nombre de jours parcouru dans le mois et le moi lui meme.
par exemple:

si on saisit 59 (De janvier à fin fervrier on cumule 59 jours)
la macro retourne 28 jours et 2 (pour mois de fevrier)

si on saisit 90
elle retourne 31 jours , 3 (moi de Mars )

si je saisit 283
elle retourne 10 jours, 10 (octobre)

si je saisit 1
elle retourne 1 ,1 (janvier)

Merci

 

[job75]

Bonsoir djiska,

si on saisit 90
elle retourne 31 jours , 3 (moi de Mars )

Si j'ai bien compris elle devrait renvoyer 30 jours car il y a 29 jours en février cette année.

A+

 

[job75]

Cela dit vraiment pas, mais vraiment pas besoin d'une macro !!!

Entrez 90 en A1 et entrez en B1 la formule :

=JOUR(DATE(ANNEE(AUJOURDHUI());1;A1))&" jour(s) du mois "&MOIS(DATE(ANNEE(AUJOURDHUI());1;A1))

Allez bonne nuit.

 

[Modeste geedee]

Bonsour®

nombre de jours cumulé en nombre de jours parcouru dans le mois et le moi lui meme.
par exemple:

si on saisit 59 (De janvier à fin fervrier on cumule 59 jours)
la macro retourne 28 jours et 2 (pour mois de fevrier)

si on saisit 90
elle retourne 31 jours , 3 (moi de Mars )

si je saisit 283
elle retourne 10 jours, 10 (octobre)

si je saisit 1
elle retourne 1 ,1 (janvier)

sans macro,

simplement à l'aide d'un format personnalisé
j\j\, m(mmmm)
j'allais dire aussi sans formule mais le calendrier excel est erroné pour l'année 1900

 

[djiska]

Bonsoir djiska,

Si j'ai bien compris elle devrait renvoyer 30 jours car il y a 29 jours en février cette année.

A+

En fait @job75 bon si du début janvier à fin février on cumul 60 jour , alors la fonction doit retourner 29.
Pour les autres est ce c’est possible de le faire sans passer cellule Excel ?

En passant il ne s’agit pas de convertir une date .
Plutôt de déterminer selon le nombre de jours cumulés depuis le début de l’annee Le mois et le nombre de jours correspondant.

 

[djiska]

Bonsoir djiska,

Si j'ai bien compris elle devrait renvoyer 30 jours car il y a 29 jours en février cette année.

A+

En fait @job75 bon si du début janvier à fin février on cumul 60 jour , alors la fonction doit retourner 29 (janvier comporte 31 jours).
Pour les autres est ce c’est possible de le faire sans passer cellule Excel ?

En passant il ne s’agit pas de convertir une date .
Plutôt de déterminer selon le nombre de jours cumulés depuis le début de l’annee Le mois et le nombre de jours correspondant

 

[job75]

Pour les autres est ce c’est possible de le faire sans passer cellule Excel ?

Sub Jours()
Dim x$, dat As Variant
On Error Resume Next
Do
    x = InputBox("Entrez le nombre de jours depuis le 1er janvier :", "Jours", x)
    If x = "" Then Exit Sub
    dat = DateSerial(Year(Date), 1, x)
Loop While Not IsDate(dat)
MsgBox Day(dat) & " jour(s) du mois " & Month(dat) & " de " & Year(dat), , "Jours"
End Sub

 

[djiska]

Parfait @job75

Merci a vous tous .