Macro non fluide

[piga25]

Bonjour à tous.

J'ai essayé de créer une macro qui fonctionne mais pas comme je le souhaite. En effet, lorsque j'effectue celle-ci j'ai bien toutes les opérations qui se réalisent mais tout en sacade. Ce que j'aimerai faire, c'est obtenir le même résultat final mais sans aucune sacade, sans voir à l'écran toutes les opérations mais uniquement le résultat final.😕

Je vous mets en pièce jointe le fichier.

Ci joint la macro.


Sub InsertLigne()
'
' InsertLigne Macro
'

'
ActiveSheet.Unprotect
Rows("11:13").Select
Range("A13").Activate
Selection.EntireRow.Hidden = False
Rows("12:12").Select
Selection.Copy
Range("Insert1").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Rows("12:12").Select
Selection.EntireRow.Hidden = True
Range("A65536").End(xlUp).Offset(1, 0).Select
Sheets("Saisie").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Stock").Select
ActiveSheet.Unprotect
Rows("9:11").Select
Range("A11").Activate
Selection.EntireRow.Hidden = False
Rows("10:10").Select
Selection.Copy
Range("Insert2").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Rows("10:10").Select
Selection.EntireRow.Hidden = True
Range("A65536").End(xlUp).Offset(1, 0).Select

 

[mromain]

Re : Macro non fluide

bonjour piga25

tu peux essayer de mettre "Application.ScreenUpdating = False" en début de macro et "Application.ScreenUpdating = True" en fin de macro.

a+

 

[Pierrot93]

Re : Macro non fluide

Bonjour Piga

essaye en insérant les lignes de code ci-dessous :

Application.ScreenUpdating = False
'ton code
Application.ScreenUpdating = True

A noter qu'en vba les "select" sont rarement indispensables...

bon après midi
@+

 

[piga25]

Re : Macro non fluide

Bonjour MROMAIN et PIERROT93

Merci de votre réponse aussi rapide.
Cela fonctionne.

@+