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

  • Initiateur de la discussion Initiateur de la discussion djiska
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
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
 
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.
 
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
 
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour