Bonjour à toutes et à tous
Afin d'alléger le temps d'exécution de ma macro, Je cherche à simplifier ce morceau de code :
'Ecran faux
Application.ScreenUpdating = False
Sheets("ENTREES FIGEES").Select
'Supprime tout contenu de la plage critère
Range("AD7:BD7").ClearContents
''''''''IMPORTANT !!!!!!!!!! Selection du mode d'accès
Range("AQ7").FormulaR1C1 = "Chgt Tps trav"
Range("AI7").FormulaR1C1 = "EDD"
Application.Run "Extraire"
Range("BN2").Copy
Sheets("Tableau T1").Range("J12").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("ENTREES FIGEES").Select
Range("AI7").FormulaR1C1 = "CAC"
Application.Run "Extraire"
Range("BN2").Copy
Sheets("Tableau T1").Range("J13").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
... (et ainsi de suite sur quelques 50 grades différents...)
Cette macro consiste à extraire d'une base de données un certains nombre de personnes selon leur grade et de le retranscrire sous forme chiffré dans un tableau.
par avance merci
Afin d'alléger le temps d'exécution de ma macro, Je cherche à simplifier ce morceau de code :
'Ecran faux
Application.ScreenUpdating = False
Sheets("ENTREES FIGEES").Select
'Supprime tout contenu de la plage critère
Range("AD7:BD7").ClearContents
''''''''IMPORTANT !!!!!!!!!! Selection du mode d'accès
Range("AQ7").FormulaR1C1 = "Chgt Tps trav"
Range("AI7").FormulaR1C1 = "EDD"
Application.Run "Extraire"
Range("BN2").Copy
Sheets("Tableau T1").Range("J12").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("ENTREES FIGEES").Select
Range("AI7").FormulaR1C1 = "CAC"
Application.Run "Extraire"
Range("BN2").Copy
Sheets("Tableau T1").Range("J13").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
... (et ainsi de suite sur quelques 50 grades différents...)
Cette macro consiste à extraire d'une base de données un certains nombre de personnes selon leur grade et de le retranscrire sous forme chiffré dans un tableau.
par avance merci