M
micky27
Guest
bonjour le forum
La macro que j'ai faite me pose quelques problèmes de vitesse à l'execution.
Fait bizare , lorsque je ne suis pas en "classeur partagé " ça va , mais dès que je suis en classeur partagé la première execution de la macro est rapide et la deuxième très très lente.
Ne comprennant pas pourquoi je fais appel aux multiples talents de ce forum.
Merci d'avance pour le coup de main
Ci JOINT LES INFOS :
j'ai un fichier avec 3 feuilles
une feuille "saisie des données"
une feuille " transfert "
une feuille " synthèse"
Le fichier est utilisé en " Classeur partagé "
sur la feuille "saisie de donnée" je selectionne avec la fonction filtre les infos que je souhaite récupérées.
Ces infos sont recopiées dans la feuille transfert puis recupérées pour étre mis en forme dans la feuille synthèse .
Ci joint la macro :
Sub recopiepoursynthèse()
'
' recopiepoursynthèse Macro
'
'
Sheets("transfert").Select
Range("A4:ae3000").Select
Selection.ClearContents
Sheets(" Saisie des données").Select
Range("a11:ae3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("transfert").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("transfert").Select
Range("R4:T3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("transfert").Select
Range("V4:V3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("D9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("transfert").Select
Range("Z4:aE3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("a6").Select
End Sub
Merci encore.
La macro que j'ai faite me pose quelques problèmes de vitesse à l'execution.
Fait bizare , lorsque je ne suis pas en "classeur partagé " ça va , mais dès que je suis en classeur partagé la première execution de la macro est rapide et la deuxième très très lente.
Ne comprennant pas pourquoi je fais appel aux multiples talents de ce forum.
Merci d'avance pour le coup de main
Ci JOINT LES INFOS :
j'ai un fichier avec 3 feuilles
une feuille "saisie des données"
une feuille " transfert "
une feuille " synthèse"
Le fichier est utilisé en " Classeur partagé "
sur la feuille "saisie de donnée" je selectionne avec la fonction filtre les infos que je souhaite récupérées.
Ces infos sont recopiées dans la feuille transfert puis recupérées pour étre mis en forme dans la feuille synthèse .
Ci joint la macro :
Sub recopiepoursynthèse()
'
' recopiepoursynthèse Macro
'
'
Sheets("transfert").Select
Range("A4:ae3000").Select
Selection.ClearContents
Sheets(" Saisie des données").Select
Range("a11:ae3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("transfert").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("transfert").Select
Range("R4:T3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("transfert").Select
Range("V4:V3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("D9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("transfert").Select
Range("Z4:aE3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Synthèse").Select
Range("E9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("a6").Select
End Sub
Merci encore.