Sub ajoutettri() ' ' ajoutettri Macro ' ' ActiveWindow.SmallScroll Down:=-3 Range("A146").Select ActiveCell.FormulaR1C1 = "ABDEL Karim" Columns("A:A").Select Range("A139").Activate ActiveWindow.SmallScroll Down:=-9 ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Clear ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Add Key:=Range("A139") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("LIST_NOMS").Sort .SetRange Range("A1:A146") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Private Sub CommandButton1_Click() Dim crit As Range If TextBox1 = "" Then MsgBox "Nom et prénom, obligatoire" Else cmpt = Range("A" & Rows.Count).End(xlUp).Row + 1 Range("a" & cmpt) = TextBox1 End If Range("A1").Select Set crit = Range("A2:A" & cmpt) ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Clear ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Add Key:=crit, _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("LIST_NOMS").Sort .SetRange Range("A1:A" & cmpt) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub