salut j ai fait ce code mais il ne boucle il marche que pour i=8444
quelqu'un peut il m'eclairer !
merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Sub joursemaine()
x = 8444
y = 8545
For i = x To y
a = 0
a = Range("E" & x & "").Value
Range("G" & x & "").Value = Weekday(a)
If Range("G" & x & "").Value = 1 Or Range("G" & x & "").Value = 7 Then Range("H" & x & "").Value = "weekend" Else _
Range("H" & x & "").Value = "semaine"
Next i
End Sub