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

djiska · 18 Février 2020

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 · 19 Février 2020

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

VB:

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

job75 · 18 Février 2020

Bonsoir djiska,

djiska à dit:
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 · 18 Février 2020

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

Entrez 90 en A1 et entrez en B1 la formule :

Code:

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

Allez bonne nuit.

Modeste geedee · 18 Février 2020

Bonsour®

djiska à dit:
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 · 19 Février 2020

job75 à dit:
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 · 19 Février 2020

job75 à dit:
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 · 19 Février 2020

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

VB:

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 · 19 Février 2020

Parfait @job75

Merci a vous tous .

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

djiska

XLDnaute Junior

job75

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

djiska

XLDnaute Junior

djiska

XLDnaute Junior

job75

XLDnaute Barbatruc

Pièces jointes

djiska

XLDnaute Junior

Discussions similaires