faire apparaitre le N° de semaine

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

Boby71C

XLDnaute Impliqué
Bonjour à tous

J'ai une date en D3.
Connaissez-vous l'astuce pour faire apparaître au dessus de cette date en D2 le jour et en D1 le N° de semaine ?
Merci pour votre aide et excellent Week End
@+ [file name=essaDates.zip size=11462]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaDates.zip[/file]
 

Pièces jointes

Bonsoir Henri
Merci pour ta réponse.
J'avais trouvé la solution entre temps pour le N° de semaine en passant par une fonction.
Je n'arrive pas à trouver pour mettre le jour mais je vais persister.

J'ai éssayé ta solution et en A3, quand je mets
=DATE
J'ai un message d'erreur NOM?

Merci pour ton aide
Bon Week End
@+
 
Bonsoir les amis
Entre temps ou vous vous penchiez sur mon problême, j'ai trouvé une solution.
Je joints mon fichier pour info. Peut être n'est-ce pas la meilleure solution.
Je débute en VBA et suis en pleine auto-formation donc vos critiques seront les bienvenues.

😱 😱 😱
Merci à tous et très bon Week End
@+ [file name=essaDates_20060429213831.zip size=18510]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaDates_20060429213831.zip[/file]
 

Pièces jointes

Ave,

=ENT(MOD(ENT((LaDate-2)/7)+0.6;52+5/28))+1

Un bémol : cette fonction n'est pas compatible avec le calendrier 1904

Pour norme iso et compatibilité calendriers 1900/1904 :

=1+ENT(MIN(MOD(laDate-DATE(ANNEE(laDate)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(laDate)+{-1;0;1};1;3));734))/7)
ou une fonction perso :
Function NUMSEM_ISO(cel As Range) 'AV
If Day(cel) = 2 And Month(cel) = 1 And Year(cel) Mod 400 = 101 Then NUMSEM_ISO = 52: Exit Function
NUMSEM_ISO = IIf(Weekday(cel) = 2 And Month(ladate) = 12 And Day(cel) > 28, 1, DatePart('ww', cel, 2, 2))
End Function

AV [aaa]
 
Bonjour AV le forum
Je ne comprends pas tout car je suis débutant.
Tu me dis que ce que j'ai fait n'est pas à la norme Européenne ! OK
Mais dans mon fichier, comment mettre le code que tu m'indiques ?, à la place de quoi ?

Merci
@+
 
Re,

''...comment mettre le code que tu m'indiques ?, à la place de quoi ?...''


Dans ton fichier exemple, en D1 tu mets (comme écrit précédemment)la formule suivante :
=1+ENT(MIN(MOD(D3-DATE(ANNEE(D3)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(D3)+{-1;0;1};1;3));734 ))/7)
et tu recopies vers la droite --- xx1

AV [aaa]
 
- 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

  • Question Question
Microsoft 365 N° de semaine
Réponses
4
Affichages
258
Réponses
6
Affichages
740
Réponses
12
Affichages
1 K
Retour