Problème excel
Résolu
FARTHOUAT Jean-luc
-
Jl -
Jl -
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
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
A voir également:
- Problème excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
2 réponses
Salut,
Est-ce que c'est ça que tu cherches ?
http://www.excelabo.net/xl/calendriers.php#lundisemaineX
@+
Est-ce que c'est ça que tu cherches ?
http://www.excelabo.net/xl/calendriers.php#lundisemaineX
@+
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 :
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