Code lent à éxécuter

Le 27/07/2020 à 11:33

Bonjour, je viens vers vous car j'ai un problème avec ma macro. Quand je l'exécute c'est très long ca bug et je ne sais absolument pas comment la simplifier par manque de connaissance VBA :/

Je vous envoies ci-dessous ma macro, je sais qu'elle est longue donc si c'est long à faire, simplifiez moi un extrait et j'essaierai de faire la suite de mon coté. Je vous remercie d'avance

Si une âme charitable pouvais m'aider ce serais sympa :)

Sub miseajourbdd()
'
' miseajourbdd Macro
'

'
    Range("A3:I3").Select
    Selection.AutoFill Destination:=Range("A3:I44")
    Range("A3:I44").Select
    Range("K3:S3").Select
    Selection.AutoFill Destination:=Range("K3:S34")
    Range("K3:S34").Select
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    Range("U3:AC3").Select
    Selection.AutoFill Destination:=Range("U3:AC6")
    Range("U3:AC6").Select
    Range("AE3:AM3").Select
    Selection.AutoFill Destination:=Range("AE3:AM13")
    Range("AE3:AM13").Select
    Range("AO3:AW3").Select
    Selection.AutoFill Destination:=Range("AO3:AW16")
    Range("AO3:AW16").Select
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    Range("AY3:BG3").Select
    Selection.AutoFill Destination:=Range("AY3:BG6")
    Range("AY3:BG6").Select
    Range("BI3:BQ3").Select
    Selection.AutoFill Destination:=Range("BI3:BQ7")
    Range("BI3:BQ7").Select
    Range("BS3:CA3").Select
    Selection.AutoFill Destination:=Range("BS3:CA6")
    Range("BS3:CA6").Select
    Range("CC3:CK3").Select
    Selection.AutoFill Destination:=Range("CC3:CK6")
    Range("CC3:CK6").Select
    Sheets("BDD AMC").Select
    ActiveWindow.SmallScroll Down:=-129
    Range("A3:I3").Select
    Selection.AutoFill Destination:=Range("A3:I252")
    Range("A3:I252").Select
    ActiveWindow.SmallScroll Down:=-12
    Range("K2:S2").Select
    Selection.AutoFill Destination:=Range("K2:S341")
    Range("K2:S341").Select
    Range("U3:AC3").Select
    Selection.AutoFill Destination:=Range("U3:AC36")
    Range("U3:AC36").Select
   ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    Range("AE3:AM3").Select
    Selection.AutoFill Destination:=Range("AE3:AM28")
    Range("AE3:AM28").Select
    Range("AO3:AW3").Select
    Selection.AutoFill Destination:=Range("AO3:AW32")
    Range("AO3:AW32").Select
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    Range("AY3:BG3").Select
    Selection.AutoFill Destination:=Range("AY3:BG88")
    Range("AY3:BG88").Select
    Range("BI3:BQ3").Select
    Selection.AutoFill Destination:=Range("BI3:BQ27")
    Range("BI3:BQ27").Select
    Range("BS3:CA3").Select
    Selection.AutoFill Destination:=Range("BS3:CA9")
    Range("BS3:CA9").Select
    ActiveWindow.ScrollColumn = 65
    ActiveWindow.ScrollColumn = 66
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 69
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 73
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 75
    Range("CC3:CK3").Select
    Selection.AutoFill Destination:=Range("CC3:CK7")
    Range("CC3:CK7").Select
    Range("CM3:CU3").Select
    Selection.AutoFill Destination:=Range("CM3:CU9")
    Range("CM3:CU9").Select
    Sheets("BDD Bellanne").Select
    Range("A2:I2").Select
    Selection.AutoFill Destination:=Range("A2:I37")
    Range("A2:I37").Select
    Range("K3:S3").Select
    Selection.AutoFill Destination:=Range("K3:S10")
    Range("K3:S10").Select
    Range("U3:AC3").Select
    Selection.AutoFill Destination:=Range("U3:AC45")
    Range("U3:AC45").Select
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    Range("AE3:AM3").Select
    Selection.AutoFill Destination:=Range("AE3:AM24")
    Range("AE3:AM24").Select
    Range("AO3:AW3").Select
    Selection.AutoFill Destination:=Range("AO3:AW27")
    Range("AO3:AW27").Select
    Range("AY3:BG3").Select
    Selection.AutoFill Destination:=Range("AY3:BG46")
    Range("AY3:BG46").Select
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 55
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 58
    Range("BI3:BQ3").Select
    Selection.AutoFill Destination:=Range("BI3:BQ8")
    Range("BI3:BQ8").Select
    Range("BS3:CA3").Select
    Selection.AutoFill Destination:=Range("BS3:CA11")
    Range("BS3:CA11").Select
    Range("CC3:CK3").Select
    Selection.AutoFill Destination:=Range("CC3:CK19")
    Range("CC3:CK19").Select
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 77
    ActiveWindow.ScrollColumn = 78
    ActiveWindow.ScrollColumn = 79
    ActiveWindow.ScrollColumn = 80
    ActiveWindow.ScrollColumn = 81
    ActiveWindow.ScrollColumn = 82
    ActiveWindow.ScrollColumn = 83
    ActiveWindow.ScrollColumn = 84
    ActiveWindow.ScrollColumn = 85
    ActiveWindow.ScrollColumn = 86
    ActiveWindow.ScrollColumn = 87
    ActiveWindow.ScrollColumn = 88
    Range("CM3:CU3").Select
    Selection.AutoFill Destination:=Range("CM3:CU20")
    Range("CM3:CU20").Select
    Range("CW3:DE3").Select
    Selection.AutoFill Destination:=Range("CW3:DE14")
    Range("CW3:DE14").Select
    Range("DG3:DO3").Select
    Selection.AutoFill Destination:=Range("DG3:DO6")
    Range("DG3:DO6").Select
    Sheets("BDD Dutertre").Select
    ActiveWindow.SmallScroll Down:=-42
    Range("A3:I3").Select
    Selection.AutoFill Destination:=Range("A3:I134")
    Range("A3:I134").Select
    Range("K3:S3").Select
    Selection.AutoFill Destination:=Range("K3:S14")
    Range("K3:S14").Select
    Range("U3:AC3").Select
    Selection.AutoFill Destination:=Range("U3:AC20")
    Range("U3:AC20").Select
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.SmallScroll ToRight:=-1
    Range("AE3:AM3").Select
    Selection.AutoFill Destination:=Range("AE3:AM20")
    Range("AE3:AM20").Select
    Range("AO3:AW3").Select
    Selection.AutoFill Destination:=Range("AO3:AW6")
    Range("AO3:AW6").Select
    Range("AY3:BG3").Select
    Selection.AutoFill Destination:=Range("AY3:BG20")
    Range("AY3:BG20").Select
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 55
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 59
    ActiveWindow.ScrollColumn = 60
    Range("BI3:BQ3").Select
    Selection.AutoFill Destination:=Range("BI3:BQ4")
    Range("BI3:BQ4").Select
    Sheets("BDD Graneo").Select
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 50
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A3:I3").Select
    Selection.AutoFill Destination:=Range("A3:I111")
    Range("A3:I111").Select
    Range("K3:S3").Select
    Selection.AutoFill Destination:=Range("K3:S45")
    Range("K3:S45").Select
    Range("U3:AC3").Select
    Selection.AutoFill Destination:=Range("U3:AC13")
    Range("U3:AC13").Select
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    Range("AE3:AM3").Select
    Selection.AutoFill Destination:=Range("AE3:AM19")
    Range("AE3:AM19").Select
    Range("AO3:AW3").Select
    Selection.AutoFill Destination:=Range("AO3:AW14")
    Range("AO3:AW14").Select
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    Range("AY3:BG3").Select
    Selection.AutoFill Destination:=Range("AY3:BG148")
    Range("AY3:BG148").Select
    Range("BI3:BQ3").Select
    Selection.AutoFill Destination:=Range("BI3:BQ11")
    Range("BI3:BQ11").Select
    ActiveWindow.SmallScroll ToRight:=15
    Range("BS3:CA3").Select
    Selection.AutoFill Destination:=Range("BS3:CA5")
    Range("BS3:CA5").Select
    Range("CC3:CK3").Select
    Selection.AutoFill Destination:=Range("CC3:CK14")
    Range("CC3:CK14").Select
    ActiveWindow.SmallScroll ToRight:=10
    Range("CM3:CU3").Select
    Selection.AutoFill Destination:=Range("CM3:CU39")
    Range("CM3:CU39").Select
    ActiveWindow.SmallScroll ToRight:=11
    Range("CW3:DE3").Select
    Selection.AutoFill Destination:=Range("CW3:DE29")
    Range("CW3:DE29").Select
    Range("DG3:DO3").Select
    Selection.AutoFill Destination:=Range("DG3:DO71")
    Range("DG3:DO71").Select
    Sheets("BDD Néolis").Select
    ActiveWindow.ScrollColumn = 60
    ActiveWindow.ScrollColumn = 59
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 51
    ActiveWindow.ScrollColumn = 49
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=-24
    Range("A2:I2").Select
    Selection.AutoFill Destination:=Range("A2:I70")
    Range("A2:I70").Select
    Range("K3:S3").Select
    Selection.AutoFill Destination:=Range("K3:S102")
    Range("K3:S102").Select
    Range("U3:AC3").Select
    Selection.AutoFill Destination:=Range("U3:AC9")
    Range("U3:AC9").Select
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    Range("AE3:AM3").Select
    Selection.AutoFill Destination:=Range("AE3:AM18")
    Range("AE3:AM18").Select
    Range("AO3:AW3").Select
    Selection.AutoFill Destination:=Range("AO3:AW19")
    Range("AO3:AW19").Select
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    ActiveWindow.ScrollColumn = 49
    Range("AY3:BG3").Select
    Selection.AutoFill Destination:=Range("AY3:BG23")
    Range("AY3:BG23").Select
    Range("BI3:BQ3").Select
    Selection.AutoFill Destination:=Range("BI3:BQ16")
    Range("BI3:BQ16").Select
    ActiveWindow.ScrollColumn = 52
    ActiveWindow.ScrollColumn = 53
    ActiveWindow.ScrollColumn = 54
    ActiveWindow.ScrollColumn = 55
    ActiveWindow.ScrollColumn = 56
    ActiveWindow.ScrollColumn = 57
    ActiveWindow.ScrollColumn = 58
    ActiveWindow.ScrollColumn = 59
    ActiveWindow.ScrollColumn = 60
    ActiveWindow.ScrollColumn = 61
    ActiveWindow.ScrollColumn = 62
    ActiveWindow.ScrollColumn = 63
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 65
    Range("BS3:CA3").Select
    Selection.AutoFill Destination:=Range("BS3:CA37")
    Range("BS3:CA37").Select
    ActiveWindow.ScrollColumn = 64
    ActiveWindow.ScrollColumn = 65
    ActiveWindow.ScrollColumn = 66
    ActiveWindow.ScrollColumn = 67
    ActiveWindow.ScrollColumn = 68
    ActiveWindow.ScrollColumn = 69
    ActiveWindow.ScrollColumn = 70
    ActiveWindow.ScrollColumn = 71
    ActiveWindow.ScrollColumn = 72
    ActiveWindow.ScrollColumn = 73
    ActiveWindow.ScrollColumn = 74
    ActiveWindow.ScrollColumn = 75
    ActiveWindow.ScrollColumn = 76
    ActiveWindow.ScrollColumn = 77
    Range("CC3:CK3").Select
    Selection.AutoFill Destination:=Range("CC3:CK36")
    Range("CC3:CK36").Select
    Range("CM3:CU3").Select
    Selection.AutoFill Destination:=Range("CM3:CU15")
    Range("CM3:CU15").Select
    Range("CW3:DE3").Select
    Selection.AutoFill Destination:=Range("CW3:DE6")
    Range("CW3:DE6").Select
    ActiveWindow.ScrollColumn = 94
    ActiveWindow.ScrollColumn = 95
    ActiveWindow.ScrollColumn = 96
    ActiveWindow.ScrollColumn = 97
    ActiveWindow.ScrollColumn = 98
    ActiveWindow.ScrollColumn = 99
    ActiveWindow.ScrollColumn = 100
    ActiveWindow.ScrollColumn = 101
    ActiveWindow.ScrollColumn = 102
    ActiveWindow.ScrollColumn = 103
    Range("DG3:DO3").Select
    Selection.AutoFill Destination:=Range("DG3:DO28")
    Range("DG3:DO28").Select
    ActiveWindow.SmallScroll ToRight:=4
    Sheets("BDD Terrena").Select
    ActiveWindow.SmallScroll Down:=-510
    Range("A3:I3").Select
    Selection.AutoFill Destination:=Range("A3:I608")
    Range("A3:I608").Select
    Range("K3:S3").Select
    Selection.AutoFill Destination:=Range("K3:S219")
    Range("K3:S219").Select
    Range("U3:AC3").Select
    Selection.AutoFill Destination:=Range("U3:AC61")
    Range("U3:AC61").Select
    ActiveWindow.SmallScroll ToRight:=13
    Range("AE3:AM3").Select
    Selection.AutoFill Destination:=Range("AE3:AM54")
    Range("AE3:AM54").Select
    Range("AO3:AW3").Select
    Selection.AutoFill Destination:=Range("AO3:AW106")
    Range("AO3:AW106").Select
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 43
    ActiveWindow.ScrollColumn = 44
    ActiveWindow.ScrollColumn = 45
    ActiveWindow.ScrollColumn = 46
    ActiveWindow.ScrollColumn = 47
    ActiveWindow.ScrollColumn = 48
    Range("AY3:BG3").Select
    Selection.AutoFill Destination:=Range("AY3:BG191")
    Range("AY3:BG191").Select
    Range("BI3:BQ3").Select
    Selection.AutoFill Destination:=Range("BI3:BQ80")
    Range("BI3:BQ80").Select
    Range("BS3:CA3").Select
    Selection.AutoFill Destination:=Range("BS3:CA49")
    Range("BS3:CA49").Select
    ActiveWindow.SmallScroll ToRight:=4
    ActiveWindow.SmallScroll Down:=3
End Sub
Le 27/07/2020 à 12:44

Bonjour,

Pour commencer ... supprime toutes les lignes contenant le mot "Scroll" ...

Ensuite ... transforme toutes les occurrences semblables ...

    Range("A3:I3").Select
    Selection.AutoFill Destination:=Range("A3:I44")

Pour les remplacer par ... afin de supprimer les Select et Selection

    Range("A3:I3").AutoFill Destination:=Range("A3:I44")

Évidemment, fais cela sur une copie de ton fichier.

Quand tu auras terminé ... sauvegarde et teste si tu obtiens bien le résultat souhaité.

Si c'est le cas ... reviens soumettre le nouveau code afin que nous puissions voir si l'on peut encore améliorer la chose ...

ric

Le 27/07/2020 à 14:02

Merci à toi ric, je vais de ce pas faire les modification et je te retiens au courant :)

Le 28/07/2020 à 14:50

J'ai du nouveau concernant hier, j'ai simplifier comme tu m'as dis, le code est fonctionnel ca marche mieux et je t'en remercie, mais la macro mais encore plusieurs minutes à s'effectuer

Sub miseajourbdd()
'
' miseajourbdd Macro
'
 Application.ScreenUpdating = False
'
    Range("A3:I3").AutoFill Destination:=Range("A3:I44")
    Range("A3:I44").Select
    Range("K3:S3").AutoFill Destination:=Range("K3:S34")
    Range("K3:S34").Select
       Range("U3:AC3").AutoFill Destination:=Range("U3:AC6")
    Range("U3:AC6").Select
    Range("AE3:AM3").AutoFill Destination:=Range("AE3:AM13")
    Range("AE3:AM13").Select
    Range("AO3:AW3").AutoFill Destination:=Range("AO3:AW16")
    Range("AO3:AW16").Select
     Range("AY3:BG3").AutoFill Destination:=Range("AY3:BG6")
    Range("AY3:BG6").Select
    Range("BI3:BQ3").AutoFill Destination:=Range("BI3:BQ7")
    Range("BI3:BQ7").Select
    Range("BS3:CA3").AutoFill Destination:=Range("BS3:CA6")
    Range("BS3:CA6").Select
    Range("CC3:CK3").AutoFill Destination:=Range("CC3:CK6")
    Range("CC3:CK6").Select
    Sheets("BDD AMC").Select
      Range("A3:I3").AutoFill Destination:=Range("A3:I252")
    Range("A3:I252").Select
        Range("K2:S2").AutoFill Destination:=Range("K2:S341")
    Range("K2:S341").Select
    Range("U3:AC3").AutoFill Destination:=Range("U3:AC36")
    Range("U3:AC36").Select
    Range("AE3:AM3").AutoFill Destination:=Range("AE3:AM28")
    Range("AE3:AM28").Select
    Range("AO3:AW3").AutoFill Destination:=Range("AO3:AW32")
    Range("AO3:AW32").Select
       Range("AY3:BG3").AutoFill Destination:=Range("AY3:BG88")
    Range("AY3:BG88").Select
    Range("BI3:BQ3").AutoFill Destination:=Range("BI3:BQ27")
    Range("BI3:BQ27").Select
    Range("BS3:CA3").AutoFill Destination:=Range("BS3:CA9")
    Range("BS3:CA9").Select
        Range("CC3:CK3").AutoFill Destination:=Range("CC3:CK7")
    Range("CC3:CK7").Select
    Range("CM3:CU3").AutoFill Destination:=Range("CM3:CU9")
    Range("CM3:CU9").Select
    Sheets("BDD Bellanne").Select
    Range("A2:I2").AutoFill Destination:=Range("A2:I37")
    Range("A2:I37").Select
    Range("K3:S3").AutoFill Destination:=Range("K3:S10")
    Range("K3:S10").Select
    Range("U3:AC3").AutoFill Destination:=Range("U3:AC45")
    Range("U3:AC45").Select
       Range("AE3:AM3").AutoFill Destination:=Range("AE3:AM24")
    Range("AE3:AM24").Select
    Range("AO3:AW3").AutoFill Destination:=Range("AO3:AW27")
    Range("AO3:AW27").Select
    Range("AY3:BG3").AutoFill Destination:=Range("AY3:BG46")
    Range("AY3:BG46").Select
        Range("BI3:BQ3").AutoFill Destination:=Range("BI3:BQ8")
    Range("BI3:BQ8").Select
    Range("BS3:CA3").AutoFill Destination:=Range("BS3:CA11")
    Range("BS3:CA11").Select
    Range("CC3:CK3").AutoFill Destination:=Range("CC3:CK19")
    Range("CC3:CK19").Select
      Range("CM3:CU3").AutoFill Destination:=Range("CM3:CU20")
    Range("CM3:CU20").Select
    Range("CW3:DE3").AutoFill Destination:=Range("CW3:DE14")
    Range("CW3:DE14").Select
    Range("DG3:DO3").AutoFill Destination:=Range("DG3:DO6")
    Range("DG3:DO6").Select
    Sheets("BDD Dutertre").Select
    Range("A3:I3").AutoFill Destination:=Range("A3:I134")
    Range("A3:I134").Select
    Range("K3:S3").AutoFill Destination:=Range("K3:S14")
    Range("K3:S14").Select
    Range("U3:AC3").AutoFill Destination:=Range("U3:AC20")
    Range("U3:AC20").Select
      Range("AE3:AM3").AutoFill Destination:=Range("AE3:AM20")
    Range("AE3:AM20").Select
    Range("AO3:AW3").AutoFill Destination:=Range("AO3:AW6")
    Range("AO3:AW6").Select
    Range("AY3:BG3").AutoFill Destination:=Range("AY3:BG20")
    Range("AY3:BG20").Select
       Range("BI3:BQ3").AutoFill Destination:=Range("BI3:BQ4")
    Range("BI3:BQ4").Select
    Sheets("BDD Graneo").Select
     Range("A3:I3").AutoFill Destination:=Range("A3:I111")
    Range("A3:I111").Select
    Range("K3:S3").AutoFill Destination:=Range("K3:S45")
    Range("K3:S45").Select
    Range("U3:AC3").AutoFill Destination:=Range("U3:AC13")
    Range("U3:AC13").Select
      Range("AE3:AM3").AutoFill Destination:=Range("AE3:AM19")
    Range("AE3:AM19").Select
    Range("AO3:AW3").AutoFill Destination:=Range("AO3:AW14")
    Range("AO3:AW14").Select
       Range("AY3:BG3").AutoFill Destination:=Range("AY3:BG148")
    Range("AY3:BG148").Select
    Range("BI3:BQ3").AutoFill Destination:=Range("BI3:BQ11")
    Range("BI3:BQ11").Select
      Range("BS3:CA3").AutoFill Destination:=Range("BS3:CA5")
    Range("BS3:CA5").Select
    Range("CC3:CK3").AutoFill Destination:=Range("CC3:CK14")
    Range("CC3:CK14").Select
      Range("CM3:CU3").AutoFill Destination:=Range("CM3:CU39")
    Range("CM3:CU39").Select
        Range("CW3:DE3").AutoFill Destination:=Range("CW3:DE29")
    Range("CW3:DE29").Select
    Range("DG3:DO3").AutoFill Destination:=Range("DG3:DO71")
    Range("DG3:DO71").Select
    Sheets("BDD Néolis").Select
    Range("A2:I2").AutoFill Destination:=Range("A2:I70")
    Range("A2:I70").Select
    Range("K3:S3").AutoFill Destination:=Range("K3:S102")
    Range("K3:S102").Select
    Range("U3:AC3").AutoFill Destination:=Range("U3:AC9")
    Range("U3:AC9").Select
        Range("AE3:AM3").AutoFill Destination:=Range("AE3:AM18")
    Range("AE3:AM18").Select
    Range("AO3:AW3").AutoFill Destination:=Range("AO3:AW19")
    Range("AO3:AW19").Select
    Range("AY3:BG3").AutoFill Destination:=Range("AY3:BG23")
    Range("AY3:BG23").Select
    Range("BI3:BQ3").AutoFill Destination:=Range("BI3:BQ16")
    Range("BI3:BQ16").Select
    Range("BS3:CA3").AutoFill Destination:=Range("BS3:CA37")
    Range("BS3:CA37").Select
        Range("CC3:CK3").AutoFill Destination:=Range("CC3:CK36")
    Range("CC3:CK36").Select
    Range("CM3:CU3").AutoFill Destination:=Range("CM3:CU15")
    Range("CM3:CU15").Select
    Range("CW3:DE3").AutoFill Destination:=Range("CW3:DE6")
    Range("CW3:DE6").Select
       Range("DG3:DO3").AutoFill Destination:=Range("DG3:DO28")
    Range("DG3:DO28").Select
     Sheets("BDD Terrena").Select
        Range("A3:I3").AutoFill Destination:=Range("A3:I608")
    Range("A3:I608").Select
    Range("K3:S3").AutoFill Destination:=Range("K3:S219")
    Range("K3:S219").Select
    Range("U3:AC3").AutoFill Destination:=Range("U3:AC61")
    Range("U3:AC61").Select
       Range("AE3:AM3").AutoFill Destination:=Range("AE3:AM54")
    Range("AE3:AM54").Select
    Range("AO3:AW3").AutoFill Destination:=Range("AO3:AW106")
    Range("AO3:AW106").Select
      Range("AY3:BG3").AutoFill Destination:=Range("AY3:BG191")
    Range("AY3:BG191").Select
    Range("BI3:BQ3").AutoFill Destination:=Range("BI3:BQ80")
    Range("BI3:BQ80").Select
    Range("BS3:CA3").AutoFill Destination:=Range("BS3:CA49")
    Range("BS3:CA49").Select

Application.ScreenUpdating = True

End Sub
Le 28/07/2020 à 15:11

Bonjour,

Les lignes qui contiennent un Select ne servent à rien : Tu peux les supprimer.

Mettre un

ActiveSheet.EnableCalculation = False 'au début de la macro

et à la fin :

ActiveSheet.EnableCalculation = True

A+

Le 28/07/2020 à 15:18

Même les Sheets(" ").Select ?

Merci à toi :)

Le 28/07/2020 à 15:23

Bonjour à tous,

Édidion ...

les range(" ").Select ? Oui, supprime ces lignes itou (aussi) ...

Mais pas les Sheets(" ").Select

Excuse moi de mon erreur ( erreur soulignée par galopin01 < merci ) ...

ric

Le 28/07/2020 à 15:54

Euh... Pour le coup j'aurai dit NON ! Tout mais pas les Sheets(...).Select !

On pourrait éventuellement les supprimer et remplacer par des With ... End With. Mébon ce n'est pas cela qui fera gagner grand chose.

Du coup comme j'ai bloqué le recalcul, il est possible que ça pose problème. Selon le cas il pourrait être nécessaire de recalculer toutes les feuilles.

C'est impossible à déterminer au seul vu du code. C'est la raison pour laquelle je n'avais pas répondu initialement :

Une macro dépend étroitement du classeur ou elle se trouve. Travailler une macro sans avoir le classeur relève de la lecture dans une boule de cristal...

A+

Le 29/07/2020 à 16:14

Bonjour à tous,

je vous envoie le fichier contenant le code, j'ai tout modifié

1test-code.zip (605.31 Ko)

y compris les choses liées j'espère que ça ne poseras pas de problème :)

Cordialement

Le 29/07/2020 à 16:18

Pardonnez moi ce n'est pas le bon fichier ^^ celui la est le bon

5copie-de-test-code.zip (605.22 Ko)
Le 29/07/2020 à 16:40

Bonjour,

Moi en voyant la bête je suis incapable de te dire si ça pose problème pas.

Je suppose que tu peux le voir rien qu'en regardant ta récap???

Si ça pose problème à chaque changement de feuille tu mets un :

ActiveSheet.EnableCalculation = True
Sheets("BDD Société2").Select
ActiveSheet.EnableCalculation = False

Et ça devrait solutionner. Seulement ça risque de prendre à nouveau un peu de temps...

Que veux-tu quand on monte des tableaux comme ça c'est comme quand on grimpe le Tourmalet, il faut avoir un peu de temps devant soi !

A+

Rechercher des sujets similaires à "code lent executer"