polisconne
XLDnaute Junior
Bonjour,
Je coince. J'ai fait une macro de tri commandée par un bouton sur une feuille verrouillée. La macro a été faite avec l'enregistreur puis complétée manuellement pour enlever et remettre la protection. A la commande, erreur d'exécution 1004 et au débogage:
Sub classeréquipes()
'
' classeréquipes Macro
' Macro enregistrée le 02/05/2013 par Jean-Yves Dalverny
'
'ActiveSheet.Unprotect"3132"
ActiveWindow.SmallScroll Down:=-3
Range("A6:E40").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal[/U][/I][/I][/I]
'ActiveSheet.Protect "3132", True, True, True
End Sub
Les lignes de "Selection à SortNormal sont jaunes????
Qui peut me corriger cette formule SVP
Merci d'avance.
JYD
Je coince. J'ai fait une macro de tri commandée par un bouton sur une feuille verrouillée. La macro a été faite avec l'enregistreur puis complétée manuellement pour enlever et remettre la protection. A la commande, erreur d'exécution 1004 et au débogage:
Sub classeréquipes()
'
' classeréquipes Macro
' Macro enregistrée le 02/05/2013 par Jean-Yves Dalverny
'
'ActiveSheet.Unprotect"3132"
ActiveWindow.SmallScroll Down:=-3
Range("A6:E40").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal[/U][/I][/I][/I]
'ActiveSheet.Protect "3132", True, True, True
End Sub
Les lignes de "Selection à SortNormal sont jaunes????
Qui peut me corriger cette formule SVP
Merci d'avance.
JYD