bonsoir Bojazz
je n'ai pas bien compris ton explication : j'ai interprété que tu souhaites trier les valeurs insérées dans les feuilles
Private Sub CmdSave_Click()
Dim L As Integer
Dim Cell As Range
Dim Feuille As Worksheet
If ComboBox1.Value = '' Then
MsgBox 'Veuillez renseigner le Nom!', vbCritical, T
Exit Sub
End If
Set Feuille = ThisWorkbook.Worksheets(CStr(ComboBox1))
L = Feuille.Range('A65536').End(xlUp).Row + 1
If TextBox1 = '' Then
MsgBox 'Veuillez renseigner le Nom!', vbCritical, T
Exit Sub
End If
If TextBox2 = '' Then
MsgBox 'Veuillez renseigner le prenom!', vbCritical, T
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = '' Then
MsgBox 'Veuillez renseigner le Matricule!', vbCritical, T
TextBox3.SetFocus
Exit Sub
End If
With Feuille
.Range('A' & L).Value = ComboBox2
.Range('B' & L).Value = TextBox1.Value
.Range('C' & L).Value = TextBox2.Value
.Range('D' & L).Value = TextBox3.Value
End With
Feuille.Range('A1').Sort Feuille.Range('A1'), xlAscending
End Sub
bonne soiree
MichelXld