Alimenter une cellule

**Beaudelicius** · 30/08/2011, 22h30

Bonjour forum,

J'aurais besoin de votre aide,

Premièrement sur ma feuille "schedule", j'ai des dates, j'aimerais lorsque j'inscris une date en I3 , les dates de ma cédule s'alimente toute seule, donc je cherche une façon qu'excel trouve le 1er jour de la semaine automatiquement.

Deuxièmement, j'ai un tableau de données sur la feuil "Data", je voudrais alimenter ma cédule selon les date de celle-ci, j'ai fait un petit exemple que j'ai mis en pièce jointe.

Merci d'avance

**jfontaine** · 31/08/2011, 00h08

Bonjour,

Le code ci dessous retourne la date du premier jour de la semaine en cours

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateAdd("d", (Weekday(Now, vbMonday) - 1) * -1, Now)

**Pierre Fauconnier** · 31/08/2011, 08h47

Salut.

Tu peux peut-être d'abord construire ta feuille, pour n'appliquer le VBA qu'en appoint d'une bonne conception de classeur.

Dans cette optique, trouver la date du lundi de la semaine d'une date donnée est possible grâce à la formule

=A1+(-1*JOURSEM(A1;2)+1)

avec la date en A1.

Ton code VBA sera bien plus léger et facile à maintenir si tu conçois d'abord ton classeur correctement.

**Beaudelicius** · 31/08/2011, 13h55

Merci de vos réponse et oui ma feuille est déjà conçue je ne le fais pas via VBA, la seule chose que je désire faire en VBA est l'alimentation de ma cédule des projet selon leur date.

Merci

jfontaine je ne comprend pas ton code, car jessaie de m'en servir afin d'éviter de donner un jour de fin de semaine à mes différentes ligne de production.

peux tu m'expliquer ton code..

Merci

**jfontaine** · 01/09/2011, 08h25

Ci dessous une méthode d'utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
Dim Madate As Date
 
Madate = "08/09/2011"
 
MsgBox "Le lundi de cette semaine est le :" & DateAdd("d", (Weekday(Madate, vbMonday) - 1) * -1, Madate)