Private Sub UserForm_Initialize()
With Feuil1.ListObjects(1).Range
.Sort .Cells(1), xlAscending, Header:=xlYes 'tri sur la 1ère colonne
.Cells(2, 1) = "CL0001"
If .Rows.Count > 2 Then .Cells(2, 1).AutoFill .Cells(2, 1).Resize(.Rows.Count - 1)
TextBox1 = "CL" & Format(.Rows.Count, "0000")
End With
End Sub
Private Sub CommandButton1_Click() ' AJOUTER
If Société = "" Then Société.SetFocus: Exit Sub
With Feuil1.ListObjects(1).DataBodyRange
With .Rows(.Rows.Count + 1)
.Cells(1, 2) = Société: Société = ""
.Cells(1, 3) = Nom: Nom = ""
.Cells(1, 4) = Prenom: Prenom = ""
.Cells(1, 5) = Fonction: Fonction = ""
.Cells(1, 6) = Adresse: Adresse = ""
.Cells(1, 7) = CP: CP = ""
.Cells(1, 8) = VILLE: VILLE = ""
.Cells(1, 9) = TelFixe: TelFixe = ""
.Cells(1, 10) = TelPort: TelPort = ""
.Cells(1, 11) = Mail: Mail = ""
.Cells(1, 12) = MSN: MSN = ""
End With
End With
Société.SetFocus
UserForm_Initialize
End Sub