Private Sub CommandButton5_Click()
With Feuil8
col = .Cells(7, Columns.Count).End(xlToLeft).Column + 1 ' Prend en compte la ligne 4
.Cells(7, col) = TextBox1.Value 'ligne 7 PROD TCM
.Cells(11, col) = TextBox2.Value 'ligne 9 DPU EMB
.Cells(9, col) = TextBox3.Value 'ligne 11 NSTR EMB
.Cells(20, col) = TextBox6.Value 'ligne 22 DPU TOL
.Cells(18, col) = TextBox7.Value 'ligne 24 NSTR TOL
.Cells(68, col) = TextBox4.Value 'ligne 64 DPU PEINT
.Cells(66, col) = TextBox5.Value 'ligne 66 NSTR PEINT
End With
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1 = Sheets("BDD").Range("A1") 'volume TCM
Me.TextBox2 = Sheets("STR DPT").Range("E7").Text 'DPU Off EMBOUTISSAGE
Me.TextBox3 = Sheets("STR DPT").Range("O7") 'NSTR EMBOUTISSAGE
Me.TextBox4 = Sheets("STR DPT").Range("E10").Text 'DPU Off PEINTURE
Me.TextBox5 = Sheets("STR DPT").Range("O10") 'NSTR PEINTURE
Me.TextBox6 = Sheets("STR DPT").Range("E12").Text 'DPU Off TOLERIE
Me.TextBox7 = Sheets("STR DPT").Range("O12") 'NSTR TOLERIE
End Sub