Jour de semaine

Bonjour

m'entrainant à l'utilisation des tableaux je me suis donné l'exercice suivant , en disposant des jours de la semaine allant du lundi au dimanche , et en considerant que lundi est le jour 1 , je me suis demandé quel serait le jour de la semaine correspondant au 169 ieme jour ,.

j'ai donc écrit le bout de code suivant mais il doit manquer un truc :

Option Explicit
Option Base 1

Sub jours_semaine()
Dim i As Integer
Dim tablo As Variant
tablo = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
For i = 1 To 200
tablo(i) = tablo(i Mod (7))
Next
msgbox tablo(169)
End Sub

Merci pour toute suggestion ou correction

j'ai pu trouver mon erreur en corrigeant de la sorte:

Dim i As Integer
Dim tablo As Variant
tablo = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
MsgBox tablo(169 Mod (7))
end sub

Merci quand meme

Bonjour,

A vue de nez, si le jour 1 est un lundi, le jour 169 sera aussi un lundi. Le modulo de 169 par 7 te renvoie 1...

Ta méthode est bonne, sauf que tu n'as pas tenu compte du fait que si lundi=1 et donc dimanche=7, pour le dimanche, le modulo renverra 0. Dans ton tablo, les indices vont de 0 à 6 (et non de 1 à 7). Il te suffit donc de modifier tablo : dimanche, lundi... et tu auras la correspondance exacte : quand modulo te renvoie 1, tablo(1)=lundi.

Cordialement

Ferrand

Bonjour Mferrand , en effet .!..merci pour cette remarque

Bonjour le forum,

Par formule : B1 :

=DATE(ANNEE(AUJOURDHUI());1;0)+A1

Changement du paramètre de la date de l'ordinateur (année 2016) pour obtenir le 05/03/2016).