Aide en Algorithmique

Bonjour, je cherche un moyen de créer une macro qui permette, à partir d'une date de déterminer un numéro d'équipe. Voici comment cela fonctionne

Il y a 4 équipes qui tournent
Une équipe prend son travail le vendredi de chaque semaine

Code:

---

1 2 3 4 5 6 7

Exemple :   le 4/1/08, l'équipe 3 prend le service, l'équipe 4 le 11, la 1 le 18, la 2 le 25 et enfin la 3 le 1 février ainsi de suite ...

---

Je cherche donc un moyen de coder un algorithme me permettant de réaliser ce choix pour une date donnée (obligatoirement un vendredi )

Seulement je vois pas comment démarrer !!

Avez vous une idée ?

Merci

bonsoir,

un exemple sur 2 colonnes
1ere colonne : date
2 eme : equipe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ajout_date() Dim i As Integer Dim j As Date Dim equipe As Integer Dim fl As Worksheet Set fl = Worksheets(1) j = " 03/01/08" equipe = 3 With fl For i = 1 To 365 If i Mod 7 = 0 Then equipe = equipe + 1 If equipe > 4 Then equipe = 1 j = DateAdd("d", 1, j) fl.Cells(i, 1).Value = j fl.Cells(i, 2).Value = equipe Next i End With End Sub

---

Merci pour vos réponse, ca roule

Bonsoir,

Après plusieurs tergiversations, j'ai fini par effacer mon message (et mon code) précédent.

Pourquoi ?

Parce que ta question manque de précision.

1) tu travailles en effet peut-être sur des cellules (comme le montre pathou) et non sur une variable.
2) ceci :

Citation:

---

Bonjour, je cherche un moyen de créer une macro qui permette, à partir d'une date de déterminer un numéro d'équipe. Voici comment cela fonctionne

---

ne veut pas dire grand-chose ...
A partir d'une date, d'accord, mais à utiliser comment ensuite ?
a) le vendredi le plus proche de cette date (tant avant qu'après ?) ?
b) le 1er vendredi postérieur à cette date ?

Je crois que ces précisions sont indispensables ....;)

Désolé pour le manque de précision. Effectivement, pour moi c'est clair mais pas forcement pour tout le monde.

La date saisi doit être un vendredi obligatoirement. Donc j'ai réussi à trouver une facon de calculer cette equipe à l'aide d'un pivot.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Function CalculEquipe(dates As Date) Dim equipe As Integer Dim dateref As Date dateref = "04/01/2008" equipe = 3 calc: If Format(dates, "dddd") <> "vendredi" Then GoTo fin End If   If dates < dateref Then dateref = dateref - 7 equipe = equipe - 1 If equipe = -1 Then equipe = 4 End If GoTo calc ElseIf dates = dateref Then CalculEquipe = equipe GoTo fin Else dateref = dateref + 7 equipe = equipe + 1 If equipe = 5 Then equipe = 1 End If GoTo calc End If fin: End Function

---

Le pivot ici est au 4 janvier pour l'équipe 3. je regarde la date de la cellule avec la date du pivot (la date de la cellule est celle de la fonction en entrée) si ce sont les mêmes, je garde l'équipe. Sinon, je modifie de sept jours la date du pivot et l'équipe pour retomber sur le vendredi d'avant ou d'apres afin d'arriver au bon jour.

Bien.

Mais alors évite ceci :

Code:

---

If Format(dates, "dddd") <> "vendredi" Then

---

Car si tu dois distribuer ton appli et que l'itilisateur final est sur une machine en anglais ====>>> plantage !

Donne la préférence à l'utilisation de la fonction Weekday (le vendredi ayant la valeur 6 pour une semaine commençant le dimanche).

voilà comment, par exemple :

Code:

---

1 2 3 4

Private Sub Command1_Click() ladate = "04/01/2008" MsgBox WeekDay(ladate, vbSunday) End Sub

---

C'est juste ce que je cherchais, merci

Cela s'écrit en 2 lignes

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim c, d, i As Date Dim e As Integer   'la date => d d = Now() 'par exemple aujourd'hui   ' initialisation de la prise de service de la 1ere équipe i = CDate("5/1/2007")       ' date du prochain changement = prochain vendredi c = d + 6 - Weekday(d)   ' equipe prenant le service e = (CInt(Format(d + 6 - Weekday(d), "ww")) - CInt(Format(i, "ww")) + 1) Mod 4 e = IIf(e = 0, 4, e)   MsgBox "l'équipe " + CStr(e) + " prendra le service le " + Format(c, "dd/mm/yyyy")

---