[Excel] Conversion date en n° semaine

Résolu
Bonjour,

Je souhaite savoir s'il existe une formule sur Excel qui convertisse une date en un n° de semaine.

Par exemple, sur A1, j'ai la date du jour : 19/05/2008
Je voudrais sur B1, le numéro de semaine correspondant à A1, c'est-à-dire : 21

Si cette formulme existe, je suis preneur.

D'avance, je vous remercie pour vos réponses.

Karaboudjan.
Configuration: Windows 2000
Internet Explorer 6.0

3 réponses

  1. Salut!

    avec excel 2000 et inferieur essaye ceci:
    =ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1

    cela devrais faire ton bonheur!!
    32
    1. bravo, c'est vraiment ce que je cherche
      0
    2. trop bien!
      0
    3. merci c'est super !
      0
    4. Merci :) mais sur Excel 2003/2007 ça ne fonctionne pas ! t'aurais pas une autre solution (excel en Anglais :p)
      0
    5. mais si cela fonctionne sur excel 2007 il faut juste changer la virgule de 0,6 par le point du clavier numérique. bonne chance
      0
  2. =NO.SEMAINE(A1;2)

    voilou!
    19
    1. C'est parfait comme formule... Merci

      Le seul souci, j'utilise pour le moment Excel 2000 et cette formule ne fonctionne pas sur cette version.
      J'ai essayé sur un autre poste, utilisant 2007, ça fonctionne nickel.

      Y a-t-il une formule équivalente sur Excel 2000 ?
      0
    2. @karaboudjanEssaye avec outil / macros complémentaires / et coche utilitaire d'analyse enregistre et ouvre ton classeur a nouveau.

      normalement ca marche sous 2000.

      voilou.
      0
  3. Merci beaucoup à tous. Vos deux réponses fonctionnent. Celle de freddv et nevio.

    J'ai réussi à trouver sur un site cette macro suivante qui donne le même résultat (excel-downloads.com) :
    Function CLSC(Dates As Date) As Integer
    Dim Semaine As Integer
    Semaine = Int((Dates - DateSerial(Year(Dates), 1, 1) + _
    ((Weekday(DateSerial(Year(Dates), 1, 1)) + 1) _
    Mod 7) - 3) / 7) + 1
    If Semaine = 0 Then
    Semaine = CLSC(DateSerial(Year(Dates) - 1, 12, 31))
    ElseIf Semaine = 53 And (Weekday(DateSerial(Year(Dates), 12, 31)) - 1) _
    Mod 7 <= 3 Then
    Semaine = 1
    End If
    CLSC = Semaine
    End Function
    10