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

djiska

XLDnaute Junior
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
 
Solution
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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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
1582063018946.png
 

djiska

XLDnaute Junior
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

XLDnaute Junior
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Jours(1).xlsm
    15.8 KB · Affichages: 7

Discussions similaires

Réponses
14
Affichages
647

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024