Dans un module ordinaire, tu colles cette fonction perso publiée ici par Daniel M:
Public Function lundi_semaine(x As Integer, An As Integer) As Date Dim Jan03 As Date Jan03 = DateSerial(An, 1, 3) lundi_semaine = Jan03 - Weekday(Jan03) - 5 + 7 * x End Function
puis dans la feuille de calcul, en faisant attention au saut de ligne :
="Semaine du " &TEXTE(lundi_semaine(NO.SEMAINE(AUJOURDHUI());2004);"jj/mm/aaaa") & " au " & TEXTE(lundi_semaine(NO.SEMAINE(AUJOURDHUI());2004)+4;"jj/mm/aaaa") -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Thierry" a écrit dans le message de news:cct88j$5ck$
Bonjour,
Je souhaite créer un tableau par semaine pour planifier des réunions.
J' ai une colonne heure, une colonne objet, une colonne salle.
Sur la première ligne apparaît "semaine du 12/07/04 au 16/07/04
J'aimerai, dans la mesure du possible, que soit affiché automatiquement en fonction de la semaine la première ligne. Merci pour votre aide
Bonjour Thierry,
Dans un module ordinaire, tu colles cette fonction perso publiée ici par Daniel M:
Public Function lundi_semaine(x As Integer, An As Integer) As Date
Dim Jan03 As Date
Jan03 = DateSerial(An, 1, 3)
lundi_semaine = Jan03 - Weekday(Jan03) - 5 + 7 * x
End Function
puis dans la feuille de calcul, en faisant attention au saut de ligne :
="Semaine du " &TEXTE(lundi_semaine(NO.SEMAINE(AUJOURDHUI());2004);"jj/mm/aaaa") & " au " &
TEXTE(lundi_semaine(NO.SEMAINE(AUJOURDHUI());2004)+4;"jj/mm/aaaa")
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Thierry" <rsecem@laposte.net> a écrit dans le message de news:cct88j$5ck$1@news-reader4.wanadoo.fr...
Bonjour,
Je souhaite créer un tableau par semaine pour planifier des réunions.
J' ai une colonne heure, une colonne objet, une colonne salle.
Sur la première ligne apparaît "semaine du 12/07/04 au 16/07/04
J'aimerai, dans la mesure du possible, que soit affiché automatiquement en
fonction de la semaine la première ligne.
Merci pour votre aide
Dans un module ordinaire, tu colles cette fonction perso publiée ici par Daniel M:
Public Function lundi_semaine(x As Integer, An As Integer) As Date Dim Jan03 As Date Jan03 = DateSerial(An, 1, 3) lundi_semaine = Jan03 - Weekday(Jan03) - 5 + 7 * x End Function
puis dans la feuille de calcul, en faisant attention au saut de ligne :
="Semaine du " &TEXTE(lundi_semaine(NO.SEMAINE(AUJOURDHUI());2004);"jj/mm/aaaa") & " au " & TEXTE(lundi_semaine(NO.SEMAINE(AUJOURDHUI());2004)+4;"jj/mm/aaaa") -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Thierry" a écrit dans le message de news:cct88j$5ck$
Bonjour,
Je souhaite créer un tableau par semaine pour planifier des réunions.
J' ai une colonne heure, une colonne objet, une colonne salle.
Sur la première ligne apparaît "semaine du 12/07/04 au 16/07/04
J'aimerai, dans la mesure du possible, que soit affiché automatiquement en fonction de la semaine la première ligne. Merci pour votre aide