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
| Private Sub CommandButton1_Click()
If TextBox1 = "" Or ComboBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox4 = "jj/mm/aaaa" Or ComboBox2 = "" Or TextBox5 = "" Or TextBox6 = "" Then
MsgBox("Toutes les informations ne sont pas remplies!", vbOKOnly, "Information manquante") = vbOK
Else
Dim dlt As Long
If MsgBox("Confirmez vous l'ajout de ce chat à la base de donnée?", vbYesNo, "Confirmer l'ajout") = vbYes Then
If Sheets("Liste").Range("A2") = "" Then
Else
Sheets("Liste").ListObjects(1).ListRows.Add
End If
dlt = Sheets("Liste").Range("H1048576").End(xlUp).Row
Sheets("Liste").Range("A" & dlt) = TextBox1
Sheets("Liste").Range("B" & dlt) = ComboBox1
Sheets("Liste").Range("C" & dlt) = TextBox2
Sheets("Liste").Range("D" & dlt) = TextBox3
Sheets("Liste").Range("E" & dlt) = TextBox4
Sheets("Liste").Range("F" & dlt) = ComboBox2
Sheets("Liste").Range("G" & dlt) = TextBox5
Sheets("Liste").Range("H" & dlt) = TextBox6
Unload UserForm1
End If
End If
End Sub |
Partager