XL 2016 Combobox selection et copier

[ferdo]

Bonjour a tous et bonne année

J’ai un usf avec des données ,je voudrais copier ses donnée sur une feuille du classeur sélectionner
par un combobox


merci de votre aide

 

[kingfadhel]

Bonjour, le forum

@ferdo

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