Mirguy23
XLDnaute Nouveau
Bonjour tout le monde!
J'ai inséré la fonction Application.ScreenUpdating = False afin d'optimiser le fonctionnement du macro, mais certains éléments des cellules mon classeur n'étaient perdus et certains nombres irréel (plus exacte).
Ma question est de savoir, à quel moment/ou précisément peut-on utiliser cette fonction.
Je vous remercie d'avance pour vos explications.
Voici un exemple d'un de cas où j'ai utilisé Application.ScreenUpdating:
J'ai inséré la fonction Application.ScreenUpdating = False afin d'optimiser le fonctionnement du macro, mais certains éléments des cellules mon classeur n'étaient perdus et certains nombres irréel (plus exacte).
Ma question est de savoir, à quel moment/ou précisément peut-on utiliser cette fonction.
Je vous remercie d'avance pour vos explications.
Voici un exemple d'un de cas où j'ai utilisé Application.ScreenUpdating:
VB:
Application.ScreenUpdating = False
Call CleanImports
shCommande.Activate
Rows("6:6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("G6"), Order1:=xlAscending, _
Key2:=Range("E6"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, _
Key2:=Range("C6"), Order2:=xlAscending, _
Key3:=Range("B6"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
Call MakeSynthese
[/FONT][/COLOR]
[FONT=book antiqua][COLOR=rgb(0, 0, 0)]End Sub
Dernière édition: