Discussion :

[Toine45]

Bonjour a tous !

(Fichier XLS founis)

Voila ma condition :
Msgbox si : Sport dans la meme ville dans le mois en cours superieur a 1 par semaine

Je ne sait pas trop comment mis prendre, je suis completement perdu !

Merci a vous !

[Toine45]

Merci pour ta reponse, jfontaine m'a aidé pour ce post :
http://www.developpez.net/forums/sho...d.php?t=461744

Est-ce combinable ? ( Le fichier test a un peu changé, au niveau des colonnes)

Merci (dsl je n'y connais pas grand chose en VBA ..)

PS: j'ai reussi a avoir les intervalles des semaines :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
getlundi1 = DateAdd("ww", Week, CDate("01/01/" & année)) - Weekday(CDate("01/01/" & année)) + 2
getdimanche1 = DateAdd("d", 6, getlundi1)
 
 
GetLundi2 = DateAdd("ww", Week + 1, CDate("01/01/" & année)) - Weekday(CDate("01/01/" & année)) + 2
getdimanche2 = DateAdd("d", 6, GetLundi2)
 
GetLundi3 = DateAdd("ww", Week + 2, CDate("01/01/" & année)) - Weekday(CDate("01/01/" & année)) + 2
getdimanche3 = DateAdd("d", 6, GetLundi3)
 
GetLundi4 = DateAdd("ww", Week + 3, CDate("01/01/" & année)) - Weekday(CDate("01/01/" & année)) + 2
getdimanche4 = DateAdd("d", 6, GetLundi4)