faire apparaitre le N° de semaine

[Boby71C]

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]

 

[henri]

Bonsoir,
tu dois utiliser un macro complémentaire.
Clic sur OUTILS-Macros complémentaire
Cochez UTILITAIRE D'ANALYSE
En A3=DATE
En A4= NO.SEMAINE(A3;2)
A +

 

[Boby71C]

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
@+

 

[henri]

Bonsoir,
Je tape une date en A3
EX:28/4/2006 ou CTRL+; pour la date du jour
A +

 

[Claude38]

Bonsoir,

No de semaine en norme Iso Européenne [file name=Essaidates.zip size=8566]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Essaidates.zip[/file]

 

[Boby71C]

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]

 

[Boby71C]

Petite erreur dans le fichier précèdent, avec toutes mes excuses.

@+ [file name=essaDates_20060429215449.zip size=18888]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaDates_20060429215449.zip[/file]

 

[henri]

Bonsoir
as-tu la réponse que tu désires ?
A +

 

[AV]

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]

 

[Boby71C]

Bonjour à tous
Avec le dernier fichier que j'ai joints, j'ai résolu mon problême.
Merci à tous
@+

 

[AV]

Re,

''...Avec le dernier fichier que j'ai joints, j'ai résolu mon problême...''

Tu es tout à fait sur de vouloir fonctionner avec la norme US ?
Tu habites hors d'Europe ?

AV [aaa]

 

[Boby71C]

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
@+

 

[AV]

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]