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
| Private Sub CommandButton1_Click()
Sheets("entrée").Activate
Dim Xls As Worksheet, lLig As Long
Set Xls = ThisWorkbook.Worksheets("entrée")
'Recherche la ligne disponible
lLig = 3
While Xls.Cells(lLig, 1) <> ""
lLig = lLig + 1
Wend
' insere les donnees de la commande des cinq premieres colonnes
Xls.Cells(lLig, 1) = TextBox113.Value
Xls.Cells(lLig, 3) = TextBox112.Value
Xls.Cells(lLig, 4) = TextBox111.Value
Xls.Cells(lLig, 5) = TextBox110.Value
' Aiguillage selon la nature
Select Case ComboBox55
Case "uc"
Xls.Cells(lLig, 6) = TextBox90.Value
Xls.Cells(lLig, 7) = TextBox108.Value
Case "ecran"
Xls.Cells(lLig, 8) = TextBox90.Value
Xls.Cells(lLig, 9) = TextBox108.Value
End Select
' Fin d 'enrgistrement dans entrees
Unload Me
End Sub |
Partager