Bonjour,
je souhaiterai executer à l'aide d'un sel bouton et dans cet ordre les marcros suivantes: macro4 et macroAlpha.
macro 4
Sub Macro4()
'
' Macro4 Macro
'
ActiveSheet.Unprotect
Range("l6").Select
Range("d1").Select
End Sub
puis macro Alpha
Sub Alpha()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("k1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Application.CutCopyMode = False
ActiveSheet.Unprotect
Range("o6
125").Select
Selection.Copy
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-117
Range("D6
125").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-113
Range("D6:k125").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Membres").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Membres").Sort.SortFields.Add2 Key:=Range( _
"D6
125"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Membres").Sort
.SetRange Range("D6:k125")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("k1:k118").Select
Range("k118").Activate
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
Range("d1,k1,f5,g5,k5,l5").Select
Selection.ClearContents
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True
ActiveSheet.Protect
End Sub
Merci de votre aide