ralentissement a chaque nouveau lancement de macro

[Evelynetfrancois]

Bonjour tout le monde
j utilise cette macro pour déplacer (vers le bas) des zones de lignes (« a » à « cc »)
La ligne de macro :
Range("A" & Lig + 2 & ":CC" & Lig + 2).Insert Shift:=xlDown
me ralentit la macro à chaque nouveau lancement…
y a t-il une erreur ou y a t-il une autre façon d écrire cette action ?
Merci d avance pour vos sujétions
E et F


Private Sub SpinButton1_SpinDown()
Application.ScreenUpdating = False
Range("A" & Lig & ":CC" & Lig).Cut
Range("A" & Lig + 2 & ":CC" & Lig + 2).Insert Shift:=xlDown
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[Staple1600]

Re : ralentissement a chaque nouveau lancement de macro

Bonsoir à tous

Sauf erreur de ma part, une autre façon de l'écrire 😉

Sub test()
Dim Lig&
Lig = Cells(Rows.Count, 1).End(3).Row
Application.ScreenUpdating = False
Cells(Lig, 1).Resize(, 81).Insert Shift:=xlDown
Application.ScreenUpdating = True
End Sub

 

[Evelynetfrancois]

Re : ralentissement a chaque nouveau lancement de macro

MERCI staple1600 pour ta proposition...

En fait j'ai réussi à accélérer la macro en passant par des select !!!!?

Range("A" & Lig + 2 & ":CC" & Lig + 2).Insert Shift:=xlDown

devient

Range("A" & Lig + 2 & ":CC" & Lig + 2).select
selection.Insert Shift:=xlDown

Le tout va bien plus vite , je n'ai pas plus d'explications ...........
Bonne journée à tous
E et F

 

[Staple1600]

Re : ralentissement a chaque nouveau lancement de macro

Re


Apparemment, tu n'as pas pris le temps d'essayer mon code du précédent message (voir de le comprendre...🙄)
Sinon tu ne parlerais pas de Select...
Car ceci devrait faire l'affaire (comme l'illustrait mon précédent code...)

Range("A" & Lig + 2 & ":CC" & Lig + 2).Insert Shift:=xlDown

PS: Sinon dois-je perdre mon temps à évoquer pour la "moultième" fois qu'un fichier exemple eut été utile, notamment pour savoir à quoi correspond Lig et comment cette variable est déclarée ou pas.

 

[Evelynetfrancois]

Re : ralentissement a chaque nouveau lancement de macro

re je viens donner des nouvelles fraiches si ca peut aider ...
vu que la macro ne me parait pas si mauvaise que ça , je me suis donc dit que le problème de ralentissement était lié à la structure de mon classeur
étape par étape j ai constaté que les validations de cellules par 100ene étaient en cause
Après suppressions de ces validations ,les macros re fonctionnent normalement
merci pour tout
au plaisir de vous lire
E etF

 

[Pierrot93]

Re : ralentissement a chaque nouveau lancement de macro

Bonjour,

A voir également s'il n'y a pas lieu de désactiver ponctuellement le calcul auto et les procédures événementielles :

With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    'ton code
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
    .ScreenUpdating = True
End With

bonne journée
@+