XL 2016 Ecrire semaine du temps au temps par rapport au numero de semaine

  • Initiateur de la discussion Initiateur de la discussion Mimi
  • 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 !

Mimi

XLDnaute Occasionnel
Bonjour à tous,
Je cherche à savoir comment écrire la formule suivante :
Dans la cellule A3 N° de semaine : 40 = dans la cellule B3 Lundi 30 septembre 2019 au Dimanche 6 Octobre 2019
D'avance je vous remercie
Michel
 
Bonjour le fil, Michel

Une possibilité
="Du "&TEXTE(DATE(ANNEE(AUJOURDHUI());1;-2)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;3))+A3*7;"jjjj jj mmmm aaaa")&" au "&TEXTE(DATE(ANNEE(AUJOURDHUI());1;-2)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;3))+(A3*7)+6;"jjjj jj mmmm aaaa")
PS: test OK sur mon PC (avec un numéro de semaine en A3)
 
Re

Pour simplifier la chose, on peut aussi nommer la formule
Testes cette petite macro sur un classeur vierge
VB:
Sub Macro1()
Range("A2").FormulaR1C1 = "=YEAR(TODAY())"
Range("A3") = "40"
ActiveWorkbook.Names.Add Name:="pLundi", RefersToR1C1:= _
"=MAX(DATE(Feuil1!R2C1,1,1),DATE(Feuil1!R2C1,1,1)-WEEKDAY(DATE(Feuil1!R2C1,1,1),2)+(Feuil1!R3C1-1)*7+1)"
Range("B3").FormulaR1C1 = _
"=""Du ""&TEXT(pLundi,""jjjj jj mmmm aaaa"")&"" au ""&TEXT(pLundi+6,""jjjj jj mmmm aaaaa"")"
End Sub
Une fois la macro exécutée, regarde les formules en A2 et en B3
Puis fais CTRL+F3 pour voir à quoi correspond pLundi
 
Oui j'en apprends tous les jours grâce à des personnes comme toi qui prennent du temps pour aider des novices comme moi.
Par contre devant lundi dans la formule il y a un "p" sa veut dire quoi c'est pour la formule en VBA ??
Encore merci
Michel
 
- 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

Réponses
4
Affichages
545
Réponses
12
Affichages
1 K
Retour