Bonjour

J'ai code ci-dessous pour mettre par ordre alpha lorsque je rentre les infos manuellement sur la feuille qui fonctionne très bien

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
'Rangement par ordre alphabétique
 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim lmax As Long
 If Not Intersect(Target, Range("B4:N" & Rows.Count)) Is Nothing Then
   lmax = Cells(Rows.Count, "b").End(xlUp).Row
   If lmax > 4 Then Range("B4:N" & lmax).Sort key1:=Range("B4"), order1:=xlAscending, Header:=xlNo
 End If
 End Sub
J'ai d'autre par un userform ou je rentre des infos et je valide pour se ranger dans la feuille nommer Liste.
ma demande est que lorsque je rempli mon userform est que je valide les infos des textbox et combobox soit placer sur la feuille nommé Liste est au bon emplacement sur la bonne ligne " par ordre croissant".

Je vous remercie d'avance

MaxOrdre alpha.zip