FONCTION dans VBA

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

Salut, une recherche ?

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

Bonjour,

Code:

---

1 2 3 4 5

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

---

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

Pas besoin de VBA :

Code:

---

=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.

Bonjour,

Citation:

---

Envoyé par unparia

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. ;)

Citation:

---

Envoyé par Menhir

Pas besoin de VBA :

Code:

---

=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 :)