Private Sub UserForm_Initialize()
With FrmInsert
.Liste_Titre_Pers.Value = ""
.Text_Nom_Pers.Value = ""
.Text_Prenom_Pers.Value = ""
.Text_Rue_Pers.Value = ""
.Text_Cmpl_Adr_Pers.Value = ""
.Text_CP_Pers.Value = ""
.Text_Ville_Pers.Value = ""
.Liste_Cours_Pers.Value = ""
End With
End Sub
Private Sub ButtonCancelPers_Click()
Unload FrmInsert
End Sub
Private Sub ButtonOKPers_Click()
'Insertion sur la ligne selectionnée
Dim n As Integer
With Sheets("Liste")
n = .Range("A1").End(xlDown).Offset(1).Row
'Essai
.Cells(n + 1, Range("TITRE").Column).Value = Me.Liste_Titre_Pers
.Cells(n + 1, Range("NOM").Column).Value = Me.Text_Nom_Pers
.Cells(n + 1, Range("PRENOM").Column).Value = Me.Text_Prenom_Pers
.Cells(n + 1, Range("RUE").Column).Value = Me.Text_Rue_Pers
.Cells(n + 1, Range("ADRESSE").Column).Value = Me.Text_Cmpl_Adr_Pers
.Cells(n + 1, Range("CP").Column).Value = CDbl(Me.Text_CP_Pers)
.Cells(n + 1, Range("VILLE").Column).Value = Me.Text_Ville_Pers
.Cells(n + 1, Range("COURS").Column).Value = Me.Liste_Cours_Pers
'Tri selon l'ordre alphabétique
.Range("Liste_Personnes").Sort _
Key1:=Worksheets("Liste").Columns("B"), _
Header:=xlYes
End With
'Boite de dialogue
MsgBox "Une personne créée", vbOKOnly, "Message"
'Reset du formulaire
Unload FrmInsert
End Sub