Discussion :

[Raul-gonzalez]

Bonjour,
J'essaie d'avoir une fonction fnLundi(datefournie) qui retourne la date du premier lundi du mois suivant le paramètre DateFournie. Formatez <Lundi, le jour mois année > exemple :fnlundi (#2014-01-21#)retournerait Lundi le 3-02-2014
Le pseudo code a quoi j ai penser sera :
Fournir la date
Trouver le jour de la date fournie
Si lundi on change rien
Si Mardi on ajoute 6jours
Si mercredi on ajoute 5
...
...
...
Est ce que quelqu'un pourrait m'aider à développé cette fonction Svp

[kiki29]

Salut, une recherche ?

[Raul-gonzalez]

Exactement, une recherche du Lundi d'aprés, Avec la date.

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
dim i as integer
Do while WEEKDAY(laDate+i)<>2
I=i+1
Loop
Msgbox laDate+i

[unparia]

Bonjour Robert
N'oublie pas de préciser le paramètre firstdayofweek
Amitiés

[Menhir]

Pas besoin de VBA :

Code :

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

=DATE(A1;1;1)+SI(JOURSEM(DATE(A1;1;1);2)<=4;-6;1)-JOURSEM(DATE(A1;1;1);2)+7

Avec l'année souhaitée en A1.

[Raul-gonzalez]

Pas besoin de VBA :

Code :

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

=DATE(A1;1;1)+SI(JOURSEM(DATE(A1;1;1);2)<=4;-6;1)-JOURSEM(DATE(A1;1;1);2)+7

Avec l'année souhaitée en A1.

C'est vrai qu'on peut le faire de cette facon avec Excel, Mais il me faut le code VBA pour cette fonction
Merci quand même pour votre réponse

[clementmarcotte]

Bonjour,

N'oublie pas de préciser le paramètre firstdayofweek

Ce n'est pas nécessaire chez-nous. Le premier jour de la semaine c'est dimanche.