'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'ENREGISTREMENT DANS FEUILLE BDD
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
Dim i As Integer, baseDD As Worksheet, dligne As Long
Set baseDD = Sheets("BDD")
dligne = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row + 1
baseDD.Cells(dligne, 1).Value = Me.Label8.Caption 'id
baseDD.Cells(dligne, 2).Value = Me.TextBox17.Value 'Nouveau N°
baseDD.Cells(dligne, 3).Value = Me.CbxCivilite.Value 'civilité
baseDD.Cells(dligne, 4).Value = Me.TextBox2.Value 'nom
baseDD.Cells(dligne, 5).Value = Me.TextBox22.Value 'prénom
baseDD.Cells(dligne, 6).Value = Me.TextBox3.Value 'adresse
baseDD.Cells(dligne, 7).Value = Me.TextBox4.Value 'adresse2
baseDD.Cells(dligne, 8).Value = Me.TextBox5.Value 'adresse3
baseDD.Cells(dligne, 9).Value = Me.TextBox6.Value 'adresse4
baseDD.Cells(dligne, 10).Value = Me.TextBox7.Value 'cp
baseDD.Cells(dligne, 11).Value = Me.TextBox23.Value 'ville
baseDD.Cells(dligne, 12).Value = Me.TextBox24.Value 'pays res
baseDD.Cells(dligne, 13).Value = Me.TextBox9.Value 'pays sté
baseDD.Cells(dligne, 14).Value = Me.ComboBox1.Value 'bouche pied
baseDD.Cells(dligne, 15).Value = Me.TextBox18.Value 'Ancien id
baseDD.Cells(dligne, 16).Value = CDate(Me.TextBox10.Value) 'Date de naissance
baseDD.Cells(dligne, 17).Value = Me.TextBox11.Value 'Lieu de naissance
baseDD.Cells(dligne, 18).Value = Me.TextBox19.Value 'boursier
baseDD.Cells(dligne, 19).Value = Me.TextBox20.Value 'membre associé
baseDD.Cells(dligne, 20).Value = Me.TextBox21.Value 'membre
baseDD.Cells(dligne, 21).Value = CDate(Me.CbxBoursier.Value) 'Date de boursier
baseDD.Cells(dligne, 22).Value = CDate(Me.CbxMAssocie.Value) 'Date de membre associé
baseDD.Cells(dligne, 23).Value = CDate(Me.CbxMembre.Value) 'date de membre
baseDD.Cells(dligne, 24).Value = "" 'decede
baseDD.Cells(dligne, 25).Value = "" 'Date de dece
baseDD.Cells(dligne, 26).Value = Me.TextBox25.Value 'Tel fixe
baseDD.Cells(dligne, 27).Value = Me.TextBox12.Value 'Tel mobile
baseDD.Cells(dligne, 28).Value = Me.TextBox26.Value 'E-mail
baseDD.Cells(dligne, 29).Value = Me.TextBox13.Value 'Site internet
baseDD.Cells(dligne, 30).Value = Me.TextBox14.Value 'N Siret
baseDD.Cells(dligne, 31).Value = Me.TextBox15.Value
baseDD.Cells(dligne, 32).Value = Me.TextBox16.Value
baseDD.Cells(dligne, 33).Value = Me.Label3.Caption 'Date de creation
baseDD.Cells(dligne, 34).Value = "" 'Date de modification
baseDD.Cells(dligne, 35).Value = Me.TextBox1.Value 'Remarque
Module2.tri_par_ID
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'EFFACEMENT DE TOUS LES CHAMPS DU FORMULAIRE
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
For Each Ctrl In UserForm1.Controls
If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then
Ctrl.Text = ""
End If
Next
UserForm_Initialize
End Sub