Planning
ordi94
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 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
A voir également:
- Planning
- Planning equipe - Télécharger - Outils professionnels
- Planning infirmier - Télécharger - Outils professionnels
- Planning 3 personnes sur 7 jours - Forum Excel
- Planning 5x8 - Forum Excel
- Planning congés - Guide
1 réponse
Bonjour,
oui
exemple :
ou encore :
Attention aux doublons. Merci de ne pas poser ta question plusieurs fois sur le forum...
Cordialement,
Franck P
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