Re : Suivi de production industrielle
En m'inspirant de la précédente version, j'arrive à cela (en rouge, j'ai une erreur):
Sub Final()
' Final Macro
Dim LigneMaxCible As Long
Dim LigneMaxOrigine As Long
Dim Semaine As Integer
Dim NomSemaine As String
Dim Mois As Variant
Mois = Array("", "1week", "2week", "3week", "4week", "5week")
'
'Mise en référence de la feuille Weekly
With Sheets("Month")
' Parcours de l'ensemble de la semaine
For Semaine = 1 To 5
NomSemaine = Mois(Semaine)
LigneMaxCible = .Range("C" & Rows.Count).End(xlUp).Row
LigneMaxOrigine = Sheets(NomSemaine).Range("H" & Rows.Count).End(xlUp).Row
'Recopie
Sheets(NomSemaine).Range("H5:J" & LigneMaxOrigine & ",L5:L" & LigneMaxOrigine).Copy Destination:=Sheets("Month").Range("A" & LigneMaxCible + 1)
Next Semaine
End With
End Sub
Ce qui pose problème, c'est que les lignes ne se suivent pas ou plutot que j'ai mal défini les variables (ou les deux ^^) ?
J'ai mis 7 jours par semaine car on ne sait pas par quel jour de la semaine l'on commence le mois.
Et 5 semaines, pour les mois de plus de 28 jours.