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
| Private Sub Valider_Click()
Dim trouve As String
Dim nblignes_remplies3 As Integer
Dim cellule As Variant
trouve = "N"
If Len(Vente.TextBox1.Value) > 0 And Len(Vente.TextBox2.Value) > 0 And Len(Vente.TextBox3.Value) > 0 Then
Else
MsgBox ("Vous n'avez pas rempli tous les champs")
Exit Sub
If trouve = "N" Then
nblignes_remplies1 = Sheets("Commande").Range("nblignes_remplies3").Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 0).Value = Vente.TextBox1.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 1).Value = Vente.ListBox1.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 2).Value = Vente.TextBox2.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 3).Value = Vente.ListBox2.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 4).Value = Vente.ListBox3.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 5).Value = Vente.ListBox4.Value
Sheets("Commande").Range("C9").Offset(nblignes_remplies1 + 1, 6).Value = Vente.TextBox3.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Vente.Hide
End If
End Sub |
Partager