XL 2013 cahier de releve de poste en quart

stfrad31 à dit:

Bonjour
voila un petit travail vite fait. J 'ai refait un peu ( tout petit peu ) la présentation . La macro copie les cases remplie et les recolles dans le tableau en dessous , puis fait un tri suivant les dates et heures dans la colonne dédiée en affichant la dernière ligne entrée en haut de tableau ( personnellement je préfère , je n'ai pas ainsi a descendre avec les flèches ou l'ascenseur pour aller a la dernière ligne )
Voila . copie la macro et affecte la au bouton MaJ
Stef

Sub MaJ()
'
' MaJ Macro
'
'
Range("D15").Select
Calculate
Range("A7: D7").Select
Selection.Copy
Range("a1048576").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B7: D7").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _
("A7"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

Cliquez pour agrandir...