1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("contactclient").Range("A456541").End(x1Up).Row + 1
Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = TextBox9.Value
Cells(derligne, 3) = TextBox3.Value
Cells(derligne, 4) = TextBox4.Value
Cells(derligne, 5) = TextBox5.Value
Cells(derligne, 6) = TextBox6.Value
Cells(derligne, 7) = TextBox7.Value
Cells(derligne, 8) = TextBox8.Value
End If
Unload UserForm1
Load UserForm1
UserForm1.Show
End Sub |
Partager