Bonjour Le Forum,
Je vous présente ci-dessous un extrait de macro.
Au début de la macro (5 lignes) un tri doit se réaliser dans la feuille fc pour que la suite de la macro s’opère correctement.
L’inconvénient avec que pour la première programmation (qui fonctionne) cette feuille fc apparaît à l’écran pendant le tri.
J’essaie (ci-après) de faire tourner la macro sans faire apparaître la feuille fc en mettant With.
Mais cela m’affiche << erreur d’exécution 1004 : La méthode SORT de la Classe a échoué >>
Je suis preneur d’une solution de ligne de programmation permettant le tri sans que la feuille fc s’affiche à l’écran avant l’exécution de la suite de la programmation non indiquée ici ?
Cordialement,
Webperegrino
Je vous présente ci-dessous un extrait de macro.
Au début de la macro (5 lignes) un tri doit se réaliser dans la feuille fc pour que la suite de la macro s’opère correctement.
L’inconvénient avec que pour la première programmation (qui fonctionne) cette feuille fc apparaît à l’écran pendant le tri.
VB:
With Application: .EnableEvents = False: .ScreenUpdating = False: End With
j = fc.[B518].End(xlUp).Row
fc.Select
fc.Unprotect ("abc")
Rows("3:" & j).Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("D3") _
, Order2:=xlAscending, Key3:=Range("E3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A3").Select
ActiveSheet.Protect ("abc"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
With Application: .EnableEvents = True: .ScreenUpdating = True: End With
… suite de la macro
J’essaie (ci-après) de faire tourner la macro sans faire apparaître la feuille fc en mettant With.
Mais cela m’affiche << erreur d’exécution 1004 : La méthode SORT de la Classe a échoué >>
VB:
[I]With fc[/I] '
.Unprotect ("abc")
Rows("3:" & j).Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("D3") _
, Order2:=xlAscending, Key3:=Range("E3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A3").Select
.Protect ("abc"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
[I]End With[/I]
… suite de la macro
Je suis preneur d’une solution de ligne de programmation permettant le tri sans que la feuille fc s’affiche à l’écran avant l’exécution de la suite de la programmation non indiquée ici ?
Cordialement,
Webperegrino
Dernière édition: