Incrémenter série de dates en triple

Version imprimable

19/01/2017, 10h56
PWColeman

1 pièce(s) jointe(s)

Incrémenter série de dates en triple

Bonjour à tous,

Travaillant dans une usine et aillant besoin de récolter des informations par jour et par équipe, je souhaite créer un calendrier, mais j'ai besoin que chaque jour soit sur trois lignes (équipe matin, équipe AM, équipe nuit), comme ci-joint :

Pièce jointe 236334

J'aimerais savoir si cela est possible via une macro, car j'aimerais créer ce calendrier pour un maximum de temps (disons les 5 années à venir).
Lorsque j'incrémente une série de date, je dois à la main insérer 2 lignes pour chaque jour et copier-coller le jour, ce qui représenterait un certain temps sur 5 années...

En bonus :
- Est-il possible de n'avoir qu'une seule ligne pour les jours de week-end ?

Merci beaucoup par avance.
Cordialement,
Pierre

Bonjour
Fais l'expérience suivante :
En colonne A :
en A2 : la date de ton choix
en A3 : cette formule : =$A$2 + LIGNE()-2, que tu étire ensuite vers le bas jusqu'où tu veux
En colonne B :
En B2 : MATIN
En B3 : JOUR
En B4 : NUIT
en B5 : Formule : =B2, que tu tires ensuite vers le bas également
Pas une seule ligne de code.

Et si tu préfères faire ces opérations par code, c'est donc tout simplement celui-ci :
Code:

1 2 3 4 5 6 7 8 Dim nombrejours As Integer Range("A2").Value = CDate("01/01/2017") ' -->> ici ta date de départ nombrejours = 20 ' ---->> ici ton nombre de jours à traiter Range("B2").Value = "MATIN" Range("B3").Value = "APRES-MIDI" Range("B4").Value = "NUIT" Range("A3:A" & (nombrejours) * 3).Formula = "=$A$2 + ROW()-2" Range("B5:B" & (nombrejours) * 3).Formula = "=B2"

Bonjour.

Unparia : Dans ta suggestion, la meme date ne se repete pas 3 fois comme il demande.

Une autre suggestion:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub TT()
 
Columns("a:c").Clear
 
debut = 2017
fin = debut + 5
d = DateSerial(debut, 1, 1)
lig = 1
While Year(d) < fin
 
jour = Format(d, "dddd")
 
If jour = "samedi" Or jour = "dimanche" Then
 nbr = 1
Else
 nbr = 3
End If
 
For I = 1 To nbr
 lig = lig + 1
 
 Cells(lig, 1) = d
 Cells(lig, 3) = jour
 
 If nbr = 1 Then
  Else
 
  Select Case I
   Case 1
    Cells(lig, 2) = "Matin"
   Case 2
    Cells(lig, 2) = "APRES MIDI"
   Case 3
    Cells(lig, 2) = "NUIT"
  End Select
 
 End If
Next
 d = d + 1
Wend
 
End Sub

19/01/2017, 13h51
PWColeman

Bonjour,

Effectivement, unparia, avec ta solution je n'ai qu'une seul ligne par jour.
Merci beaucoup Docmarti, ton code fonctionne parfaitement.
Les week-end s'affichent tout de même en 3 lignes, mais grâce au jour de la semaine affiché en 3è colonne j'ai pu filtrer et me débrouiller.
( Après revue du code, c'est que mon Excel affichait les jours en Anglais --> on peut donc modifier le code pour prendre en compte ce point).
Merci à vous deux d'avoir pris le temps de me répondre!
J'en profite pour me former sur cette macro.

A bientôt !

Pierre