Problème excel Résolu

Question

Salut,Je cherche une solution pour déterminer la date du lundi par exemple, à partir du numéro de la semaine.Un petit coup de pouce serait le bienvenu.Merci par avance.             JLuc

Erdnax · Answer

Salut,Est-ce que c'est ça que tu cherches ?http://www.excelabo.net/xl/calendriers.php#lundisemaineX@+

Armojax · Answer

Bonjour Jean-Luc,

Ci-dessous une petite fonction VBA. Essaie-la, et vois si ça te va.
On lui passe un n° de semaine, et elle fournit la date du lundi correspondant (bien définir la cellule résultat en format DATE).
Je me suis limité à l'année en cours...
Si on met 21 en A1,
=LUNDISEM(A1) répond : 23/05/2005.
Voici le code :

Function LUNDISEM(NoSem As Integer)

  If NoSem < 1 Or NoSem > 53 Then Exit Function

  Dim JourAn     As Date
  Dim JourSemAn  As Integer
  
  JourAn = "01/01/" & Year(Now)
  JourSemAn = Application.WorksheetFunction.Weekday(JourAn, 2)
  
  If JourSemAn > 4 Then
    LUNDISEM = JourAn - JourSemAn + (NoSem * 7) + 1
  Else
    LUNDISEM = JourAn - JourSemAn + (NoSem * 7) + 8
  End If
  
End Function

Problème excel

2 réponses

Newsletters