Bruce sato
XLDnaute Nouveau
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
derligneA = Range("A65500").End(xlUp).Row + 1
If Range("J27") <> "" Then
Range("F" & derligneA) = Range("J32")
Range("E" & derligneA) = Range("J31")
Range("D" & derligneA) = Range("J30")
Range("C" & derligneA) = Range("J29")
Range("B" & derligneA) = Range("J28")
Range("A" & derligneA) = Range("J27")
End If
Range("J28:J32").ClearContents
Columns("A:F").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J19").Select
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = False
derligneA = Range("A65500").End(xlUp).Row + 1
If Range("J27") <> "" Then
Range("F" & derligneA) = Range("J32")
Range("E" & derligneA) = Range("J31")
Range("D" & derligneA) = Range("J30")
Range("C" & derligneA) = Range("J29")
Range("B" & derligneA) = Range("J28")
Range("A" & derligneA) = Range("J27")
End If
Range("J28:J32").ClearContents
Columns("A:F").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("J19").Select
Application.ScreenUpdating = True
End Sub
Dernière édition: