Bonjour,
Je souhaiterais qu'une macro se réalise à condition qu'une action ait été réalisée préalablement (tri de 8 colonnes).
Le code de la macro auto serait le suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
Range("O1:BA150").Select
Selection.Copy
Range("O160").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O160:O309").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("O161"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
Range("A1").Select
End Sub
Et voici la macro que j'ai enregistré pour le tri :
Sub triAH()
Columns("A:H").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Comment puis-je donc faire pour que la macro s'exécute si et seulement si j'ai trié mes 8 colonnes ?
