Planning
ordi94
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
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
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
1 réponse
-
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
