planning Fermé

Question

comment écrire autrement le planning
Sub test()

For i = 1 To 30
Cells(i, 1) = "lundi"
i = i + 6
For j = 2 To 30
Cells(j, 1) = "mardi"
j = j + 6
For k = 3 To 30
Cells(k, 1) = "mercredi"
k = k + 6
Next

Next
Next

End Sub
Merci

pijaku · Answer

Bonjour,

oui
exemple :

Sub JoursEnToutesLettres()
Dim I As Byte, J As Byte

J = 2 'Débute la semaine un lundi. Pour Dimanche choisir J = 1
For I = 1 To 30
    If J = 9 Then J = 2 'A modifier si semaine commence un dimanche
    Cells(I, 1) = Format(J, "dddd")
    J = J + 1
Next I
End Sub


ou encore :

Sub JoursEnToutesLettres2()
Dim I As Byte

For I = 2 To 31
    Cells(I - 1, 1) = Format(Weekday(I, vbSunday), "dddd")
Next I
End Sub 
 
Attention aux doublons. Merci de ne pas poser ta question plusieurs fois sur le forum...
Cordialement,
Franck P

Planning

1 réponse

Discussions similaires