Code année jour semaine

Bonjour,

débutante en excel, je cherche à traduire la date du jour en un code dont voici la structure:

Code: 0WXYZ

0W 2 derniers chiffres de l'année
X jour de la semaine 1 lundi, 2 mardi
YZ numéro de la semaine

Exemple: jeudi 17/07/2008 devient 08429

Merci d'avance!
Configuration: Windows XP
Internet Explorer 7.0

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. slt c leila
    bon tu va saisir la date dans une zone par exemple 12/02/2007 et puis tu clique par le bouton droit sur cette zone et tu va à format de cellule puis nombre puis sur la liste catégorie tu clique sur nombre aussi et ok.
    c tt
    a+
    1. coucou ca va toi avec ce Mr Excel .BON J espere ke ca marche bi1
      a+
  2. Contributeur
    bonjour,
    tu cole le code ci-dessous dans un module général (par exemple Module1)
    Function Transcode()
    Dim Lig As Long
    Dim Col As Long
    Dim NoDate1 As Long, Nodate2 As Long, e As Integer
    Dim Code As String, Aj As Integer, V As String
    Dim DT As Date

    Application.Volatile
    Lig = Application.Caller.Row
    Col = Application.Caller.Column
    If Col < 2 Then Exit Function
    DT = Cells(Lig, Col - 1)
    If Not IsDate(DT) Then Exit Function
    Code = Right(Year(DT), 2) & Weekday(DT)
    NoDate1 = DateSerial(Year(DT), 1, 1)
    Nodate2 = DateSerial(Year(DT), Month(DT), Day(DT))
    e = Weekday(NoDate1)
    If e > 4 Then Aj = 1 Else Aj = 0
    V = "0" & Int((Nodate2 - NoDate1) / 7) - e
    Transcode = Code & Right(V, 2)
    End Function

    pour le test tu met dans cellule B1 =Transcode()
    dans le cellule A1 tu tape une date..
    Tu dit...
    A+
    1. bon je vois ke tu travail avec le vb mé moi j é cru de ta question ke tu travail juste l excel
      donc mille désolé
      et bonne chance
    2. Contributeur
      @leilanoureBonjour,
      Avec les formule excel il n'y a pas le calcul du N° de semaine, donc obligé de le faire soit par des formules annexe soit par du VBA, ce que j'ai fait.
    3. @lermite222FAUX IL EXISTE UNE FONCTION EXCEL QUI TE RMONTE LE NUMERO DE SEMAINE EN FONCTION D4UNE DATE
      MAIS IL FAUT ALLER LA CHERCHER SUR LE SITE DE MICROSOFT JE L4AI D2JA UTILISE MAIS PAS SUR CE POSTE DOMMAGE
    4. @xdomxfrje trouve ke la meilleure solution c est de convertir la date en nombre de jour comme j tes déja dis et aprés tu divise sur 7 ca va te donner le nombre de semaine
      si c pa une bonne methode alors je te souhaite bonne chance
      slt
    5. Contributeur
      @xdomxfrBonjour,
      Se serais plus clair en minuscule,
      Et s'il faut commencé à annexé des fonctions c'est plus simple en VBA