Sub ChaineA()
'
' Macro1 Macro
' Macro enregistrée le 28/05/2002 par destabeau
Dim s As Variant
r = 4
e = 0
'Efface la zone
Range("J4:[B]BI16[/B]").Select [COLOR="Red"][B](pourquoi BI16 et non BK16 ???)[/B][/COLOR]
Selection.ClearContents 'efface la zone graphique chaîne 1
Range("A4:I16").Select
Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Calcule la première chaîne de vêtement
If Range("[B]G[/B]" & r) = " " Then Exit Sub 'sort de la procédure si qté =0 [COLOR="red"][B](la quantité me semble être en colonne D et non G)[/B][/COLOR]
For i = 1 To 54 ' fait la boucle autant de fois que de semaines
x = x + 1 'compte tour
tempsafaire = Range("H4") * Cells(3, 9 + i) + Cells(4, 8 + i) 'multiplie la qté jour par les jours ouvrables et ajoute la semaine précédente
tempsreste1 = tempsafaire - Range("F4") 'calcule le reste à fabriquer
If tempsreste1 > 0 Then tempsafaire = Range("F4") 'si le reste est sup à 0 inscrit qté totale
Cells(4, 9 + i) = tempsafaire ' inscrit le nombre de pièces sur la feuille
If tempsafaire = Range("G4") Then GoTo Chaine2 ' lorsqu'on atteint la qté passe à chaîne suivante
Next i