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
| Sub G_795_Aoustin_2000kg()
Application.Run "'calcul gomme4,0-2007.xls'!control"
Application.Run "'calcul gomme4,0-2007.xls'!Module2.production_suivante"
Range("z2:Ad14").Copy
ActiveSheet.Paste
Cells(ActiveCell.Row + 5, ActiveCell.Column).Select
If Selection.Column = Columns("I").Column Then
Lig = Selection.Row - 5
For X = 0 To 4
If Range("E" & Lig).Offset(X, 0) <> 1 Then Exit Sub
Next X
'on vérifie la présence des 1, sinon on sort
For X = 0 To 4
Range("E" & Lig).Offset(X, 0) = 2
'On affecte 2 à la colonne E
Next X
End If
Joute = Selection.Row
ThisWorkbook.Sheets("Programme Gommes").RangeRange("J" & Joute) = ThisWorkbook.Sheets("Programme Gommes").Range("AB6")
End Sub |
Partager