Input box avec resolution de calcul Excel

Question

Bonjour,

J'ai crée une formule pour transformer le nombre de la semaine en date du premier jour de la semaine.
maintenant je veux lier cette formule a une boite de dialogue, mettre le numero de la semaine dans une input box et avoir en retour une msgbox avec la date. 

l'input box fonctionne mais des que je tente de faire tourner ma formule j'ai des erreurs.
autre point la formule vas me donner un nombre genre 38814, comment je peux le transformer avec un format de date.


Dim W As Integer
Dim D As Integer

W = InputBox("Week number ?")

D = ((W * 7) - 6) -WEEKDAY(DATE(Year(TODAY()),1,1),2)+DATE(YEAR(TODAY()),1,1)


Merci de votre aide

gbinforme · Answer

bonjour

Pour avoir ton message avec ta formule tu peux essayer :
Dim W As Integer
W = InputBox("Week number ?")
MsgBox Format(((W * 7) - 6) - Weekday("1/1/" & Year(Now), 2) + CDate("1/1/" & Year(Now)), "d/m/yyyy")

J'ai essayé de garder ta logique de formule.

Input box avec resolution de calcul Excel

1 réponse

Votre réponse

Discussions similaires

Newsletters