Sub Besoincoco()
'
' Besoincoco Macro
' Macro enregistrée le 17/06/2009 par MC
'
'selection de la feuille de saisie
Sheets("saisie").Select
Sheets("saisie").Unprotect
'Récuperer le nb d'articles
NBLIGN = Range("H1").Value / 2
'début boucle
For i = 1 To NBLIGN
'récupération des valeurs de la fiche
toto = Range("M" & 8 + i * 2).Value
tata = Range("N" & 8 + i * 2).Value
toto2 = Range("O" & 8 + i * 2).Value
tata2 = Range("P" & 8 + i * 2).Value
psaum = Range("L" & 8 + i * 2).Value
NomProd = Range("B" & 8 + i * 2).Value
NUMLOT = Range("F" & 8 + i * 2).Value
Date = Range("G3").Value
kirry = Range("Y" & 8 + i * 2).Value
susp = Range("K" & 8 + i * 2).Value
If susp > 485 Then
nbdepatch = 2
For P = 1 To nbdepatch
Sheets("Formules coco").Select
Range("A1").Select
Selection.Value = Date
Range("A5").Select
Selection.Value = NomProd
Range("A9").Select
Selection.Value = NUMLOT
Range("D15").Select
Selection.Value = (toto + tata) / 2 & " Kg"
Range("D19").Select
Selection.Value = (toto2 + tata2) / 2 & " Kg"
Range("D23").Select
Selection.Value = psaum / 2 & " Kg"
If kirry <> 0 Then
Range("C27").Select
ActiveCell.FormulaR1C1 = "kirry :"
Range("D27").Select
Selection.Value = kirry / 2 & " Kg"
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next P
ElseIf susp > 0 Then
Sheets("Formules coco").Select
Range("A1").Select
Selection.Value = Date
Range("A5").Select
Selection.Value = NomProd
Range("A9").Select
Selection.Value = NUMLOT
Range("D15").Select
Selection.Value = (toto + tata) & " Kg"
Range("D19").Select
Selection.Value = (toto2 + tata2) & " Kg"
Range("D23").Select
Selection.Value = psaum & " Kg"
If kirry <> 0 Then
Range("C27").Select
ActiveCell.FormulaR1C1 = "kirry :"
Range("D27").Select
Selection.Value = kirry & " Kg"
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
'Efface les anciennes donneées
Sheets("Formules coco").Select
Range("D26:E28,A1:G3,A5:G7,A9:G11,D14:E16,D18:E20,D22:E24,D26:E28,B26:C28").Select
Selection.ClearContents
Sheets("saisie").Select
Next i
Sheets("saisie").Protect
Sheets("ACCES DIRECT").Select
End Sub