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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Private Sub VALIDER_Click()
Sheets("DONNEES").Unprotect "ADMIN"
Dim NewLig As Long
Dim i As Integer
With Worksheets("DONNEES")
NewLig = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
With .Range("A" & NewLig)
.Value = IIf(NewLig = 3, 1, Val(.Offset(-1).Value) + 1)
.Offset(0, 1).Value = Me.TXTPRENOM.Value
.Offset(0, 2).Value = Me.TXTNOM.Value
.Offset(0, 3).Value = Me.TXTAGE.Value
.Offset(0, 4).Value = Me.TXTADRESSE.Value
.Offset(0, 5).Value = stemp1
End With
For i = 0 To Me.LBOPRODUIT.ListCount - 1
If Me.LBOPRODUIT.Selected(i) Then .Range("G" & NewLig).Offset(, i).Value = UCase(Me.LBOPRODUIT.List(i))
Next i
End With
Unload USF_SAISIE_CLIENT
Load USF_SAISIE_CLIENT
ActiveWorkbook.Save
Sheets("DONNEES").Protect "ADMIN", True, True, True
USF_SAISIE_CLIENT.Show
Private Sub LBOPRODUIT_Change()
stemp1 = ""
For i = 0 To Me.LBOPRODUIT.ListCount - 1
If Me.LBOPRODUIT.Selected(i) Then
stemp1 = stemp1 & LBOPRODUIT.List(i) & " "
End If
Next i
If Right(stemp1, i) = " " Then
stemp1 = Left(stemp1, Len(stemp1) - 1)
End If
End Sub |
Partager