Private Sub CommandButton1_Click()
Dim NlleLigne As Long
Dim dest As String
Dim DerLig As Integer
With Worksheets("suivi planning")
DerLig = .Range("N" & Rows.Count).End(xlUp).Row + 1
.Range("N" & DerLig).Value = ComboBox1.Value
End With
'Vérification que le contrôle nom assistante n'est pas vide ?
If ComboBox1 = "" Then MsgBox "Saisissez un nom dans la liste, merci !", vbCritical, "Erreur de saisie": ComboBox1.SetFocus: Exit Sub
'Vérification que le contrôle date prise de contact n'est pas vide ?
If TextBox1 = "" Then MsgBox " Tapez une date, format jj/mm/aa, merci ! ", vbCritical, "Erreur de saisie": TextBox1.SetFocus: Exit Sub
'Vérification que le contrôle heure de prise de contact n'est pas vide ?
If TextBox2 = "" Then MsgBox " Tapez une heure, format hh:mm, merci ! ", vbCritical, "Erreur de saisie": TextBox2.SetFocus: Exit Sub
'Vérification que le contrôle nom et prénom du client n'est pas vide ?
If TextBox3 = "" Then MsgBox "Saississez le nom et le prénom du client, merci ! ", vbCritical, "Erreur de saisie": TextBox3.SetFocus: Exit Sub
'Vérification que le contrôle date RDV n'est pas vide ?
If TextBox4 = "" Then MsgBox "Saisissez la date du RDV à l'aide du calendrier, merci !", vbCritical, "Erreur de saisie": TextBox4.SetFocus: Exit Sub
'Vérification que le contrôle montant n'est pas vide ?
If TextBox5 = "" Then MsgBox "Tapez l'heure du RDV, format hh:mm, merci !", vbCritical, "Erreur de saisie": TextBox5.SetFocus: Exit Sub
'Vérification que le contrôle secteur géographique n'est pas vide ?
If TextBox6 = "" Then MsgBox "Saisissez le secteur géographique, merci !", vbCritical, "Erreur de saisie": TextBox6.SetFocus: Exit Sub
'Vérification que le contrôle compteur n'est pas vide ?
If TextBox10 = "" Then MsgBox " Problème compteur de vues, merci !", vbCritical, "Erreur de saisie": TextBox10 = "": TextBox10.SetFocus: Exit Sub
'tu renseignes la valeur du Combobox1 dans une variable
dest = ComboBox1
With Sheets(dest)
NlleLigne = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(NlleLigne, 1) = ComboBox1.Value
.Cells(NlleLigne, 2) = TextBox1.Value
.Cells(NlleLigne, 3) = TextBox2.Value
.Cells(NlleLigne, 4) = TextBox3.Value
.Cells(NlleLigne, 5) = CDate(TextBox4.Value)
.Cells(NlleLigne, 6) = TextBox5.Value
.Cells(NlleLigne, 7) = TextBox6.Value
.Cells(NlleLigne, 8) = TextBox10.Value
End With
' Inscription des données dans la base de données
With Sheets("suivi planning")
NlleLigne = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(NlleLigne, 1) = ComboBox1.Value
.Cells(NlleLigne, 2) = TextBox1.Value
.Cells(NlleLigne, 3) = TextBox2.Value
.Cells(NlleLigne, 4) = TextBox3.Value
.Cells(NlleLigne, 5) = CDate(TextBox4.Value)
.Cells(NlleLigne, 6) = TextBox5.Value
.Cells(NlleLigne, 7) = TextBox6.Value
.Cells(NlleLigne, 8) = TextBox10.Value
End With
' On vide les zones de saisie
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox10.Value = ""
End Sub