Sub GW_lance_1a31()
Dim dtDateDeb As Date
Dim dtDateFin As Date
'les refacturation se calent ˆ partir de la ligne 34 de l'onglet recap :
ligne2 = 34
With Sheets(Sheets.Count)
For i = 4 To 34
' mise en place de la recap refacturation, une pour le midi et une pour le soir
drapeau = False
For J = 14 To 16
If Sheets(i).Range("H" & J).Value > 0 Then
If drapeau = False Then
.Range("A" & ligne2) = Sheets(i).Range("C2")
drapeau = True
End If
.Range("B" & ligne2) = Sheets(i).Range("C" & J)
.Range("F" & ligne2) = Sheets(i).Range("D" & J)
.Range("J" & ligne2) = Sheets(i).Range("H" & J)
ligne2 = ligne2 + 1
End If
Next J
For J = 41 To 43
If Sheets(i).Range("H" & J).Value > 0 Then
If drapeau = False Then
.Range("A" & ligne2) = Sheets(i).Range("C2")
drapeau = True
End If
.Range("B" & ligne2) = Sheets(i).Range("C" & J)
.Range("F" & ligne2) = Sheets(i).Range("D" & J)
.Range("J" & ligne2) = Sheets(i).Range("H" & J)
ligne2 = ligne2 + 1
End If
Next J
Next i
End With
' <<<< Debut : Partie de procedure pour la periode du 01 au 31 du mois
' Recuperation de la date de debut et de fin de traitement
With Worksheets("recap")
dtDateDeb = Format(.Range("D2").Value, "dd/mm/yy")
dtDateFin = Format(.Range("D3").Value, "dd/mm/yy")
End With
End Sub