Alimenter une cellule

[Beaudelicius]

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]

Bonjour,

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

Code :

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

[Pierre Fauconnier]

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]

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]

Ci dessous une méthode d'utilisation

Code :

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)

Retourne le nombre de jour entre Madate et le précédent Lundi (ici 3)

Code :

Weekday(Madate, vbMonday)

Ce code permet de soustraire 3 jour à la Madate afin de retourner la date du précédent lundi

Code :

DateAdd("d", (Weekday(3 * -1, Madate)