numero de semaine d'apres une date

[pirateman]

Bonjour je suis en train de creer un programme pour mon boulot et j'ai 2 souci qui se presente à moi.
le 1er j'ai besoin de generer le numero de la semaine d'aprés une date
dans une 1er cellule j'ai mis la date avec la fonction aujourd'hui, dans la 2em cellule il faudrait que je recupere le numero de la semaine (je n'ai rien trouve ni dans les formules ni dans l'aide en ligne)
le 2em probleme est plus du vba, j'ai declarer les variables comme ceci "dim y as string"
dans mon programme il faut qu'il aille sur la feuille determine par y comme ceci "sheets(y).select" et là il comprend pas et m'envoie sur le deboggeur
si quelqu'un a une soluce merci d'avance

 

[pierrejean]

Re : numero de semaine d'apres une date

Bonjour pirateman

Et bienvenue sur XLD

Quelques formules pour le Numero de semaine

 

[pirateman]

Re : numero de semaine d'apres une date

merci si j'ai bien compris je prend la formule de la cellule b2 et ça doit fonctionner

 

[pierrejean]

Re : numero de semaine d'apres une date

Re

Oui à condition d'avoir copié le contenu du Module1 dans le Module1 de ton fichier

 

[pirateman]

Re : numero de semaine d'apres une date

ok j'avais pas vu la compilation vba
merci
et pour mon bug de code est ce que tu as une idée de l'endroit ou ce n'est pas bon

 

[pirateman]

Re : numero de semaine d'apres une date

est ce que les autres modules ont une importance dans le calcul si je prend en exemple la cellue a1 avec resulta en a2

 

[grisan29]

Re : numero de semaine d'apres une date

bonjour piterman, Pierrejean et les autres
dans un fichier que j'utilise j'ai la date en cell F2 et le n° semaine en D8 par la formule que voici

=ENT((F2-(DATE(ANNEE(F2-JOURSEM(F2-1)+4);1;3)-JOURSEM(DATE(ANNEE(F2-JOURSEM(F2-1)+4);1;3)))+5)/7)

la formule est dans la cell D8
issu de Jean-Paul viard que je salue
si cela correspond tant mieux

Pascal

 

[pierrejean]

Re : numero de semaine d'apres une date

Re

Pour ton bug , il faudrait la ligne complete surlignée par le debuggeur

 

[MJ13]

Re : numero de semaine d'apres une date

Bonjour à tous

Pour moi, le plus simple code en VBA pour trouver la semaine pour la France est celle ci:

semaine = Val(Format(Now, "ww", vbMonday, vbFirstFourDays))

 

[Modeste geedee]

Re : numero de semaine d'apres une date

bonjour piterman
dans un fichier que j'utilise j'ai la date en cell F2 et le n° semaine en D8 par la formule que voici

=ENT((F2-(DATE(ANNEE(F2-JOURSEM(F2-1)+4);1;3)-JOURSEM(DATE(ANNEE(F2-JOURSEM(F2-1)+4);1;3)))+5)/7)

la formule est dans la cell D8

😎 en A1 la date

formule :

=ENT(MOD(ENT((A1-2)/7)+4/7;1461/28))+1

formule basée sur le fait que les mêmes dates retombent les mêmes jours tout les 28 ans
formule qui fonctionne jusqu'en 2104 avec le calendrier standard

autre formule (Daniel Maher MVP Excel] qui fonctionne même sur Mac (calendrier 1904)

=1+ENT(MIN(MOD(A1-DATE(ANNEE(A1)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(A1)+{-1;0;1};1;3));734))7)

 

[pierrejean]

Re : numero de semaine d'apres une date

Re

MJ13 , ta formule donne 53 pour le 31/12/2007 ce qui n'est pas tour à fait juste (en réalité c'est la semaine 1 de 2008 )

 

[Modeste geedee]

Re : numero de semaine d'apres une date

Bonjour à tous

Pour moi, le plus simple code en VBA pour trouver la semaine pour la France est celle ci:

semaine = Val(Format(Now, "ww", vbMonday, vbFirstFourDays))

😎 tssss.... tssss...
support.microsoft.com/kb/200299/fr
BUG: Les fonctions Format et DatePart peuvent renvoyer un numéro de semaine erroné pour le dernier lundi de l'année


Contournement

Function WOY (MyDate As Date) As Integer   ' Week Of Year
  WOY = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
  If WOY > 52 Then
    If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
  End If
End Function

 

[pierrejean]

Re : numero de semaine d'apres une date

Re

Modeste geedee , La formule de Daniel Maher ne semble pas donner le resultat escompté
fichier avec recapitulatif

 

[MJ13]

Re : numero de semaine d'apres une date

Re

MJ13 , ta formule donne 53 pour le 31/12/2007 ce qui n'est pas tour à fait juste (en réalité c'est la semaine 1 de 2008 )

Merci Pierrejean 🙂 et Modeste Geedee 🙂, mais bon, en fonction de ce que les gens en font, il n' y a pas en général de grosse influence. Car sinon, il faut tout tester sur les dates et on va y passser sa vie 😀. En plus les gens ne savent même pas ce qu'est une date ISO 😕.

Sinon, j'ai retrouvé ceci:

https://www.excel-downloads.com/threads/xl2007-probleme-avec-no-semaine.130516/

 

[Modeste geedee]

Re : numero de semaine d'apres une date

Re

Modeste geedee , La formule de Daniel Maher ne semble pas donner le resultat escompté
fichier avec recapitulatif

😎
oupsss... !
un caractère aurait disparu lors du copier collé .... ???

=1+ENT(MIN(MOD(A2-DATE(ANNEE(A2)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(A2)+{-1;0;1};1;3));734))7)

correction :
=1+ENT(MIN(MOD(A2-DATE(ANNEE(A2)+{-1;0;1};1;5)+JOURSEM(DATE(ANNEE(A2)+{-1;0;1};1;3));734))/7)