lenteur execution macro

Version imprimable

Bonjour à Tous

je rencontre une énorme lenteur lors de l'exécution de ma macro qui pourtant, n'est pas si compliqué que ça.

De plus excel plante parfois après l'exécution de la macro

Est-ce que quelqu'un sait de quoi ça vient ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
Sub Macro1()
'
' Macro1 Macro
'
 
    Dim I As Integer
    I = Feuil1.Range("a1").End(xlDown).Row
    nbcel = 0
    nbcel1 = 0
 
' effacement des ancienne données
 
    Sheets("Rapport générer").Select
    Range("A20").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlToLeft
 
 
' Copie tableau de la boite noire
 
    Sheets("Feuil1").Select
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Rapport générer").Select
    Range("A20").Select
    ActiveSheet.Paste
    Range("A20").Select
 
' Calcul de l'offset horraire avec fusionnage celulle
 
 
 
 
For Each cel In Range("a20:a" & I + 20)
 
If cel <> "" Then
nbcel1 = nbcel + 20
Range(Cells(nbcel1, 2), Cells(nbcel1, 5)).Merge
Range("A" & nbcel1).Select
nbcel = nbcel + 1
ActiveCell.Formula = "=Feuil1!A" & nbcel & " - Feuil1!$F$3"
 
End If
 
Next cel
 
' Cadrillage Celulle
 
Range("A20").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("H27").Select
 
 
 
End Sub

Citation:

Envoyé par Irish10

Bonjour,

C'est sans doute votre formule en ligne 45 qui ralentit le code, sans compter les "select".
Vous pourriez déjà neutraliser le calcul des formules et le rafraichissement de l'écran pendant la procédure et remettre les paramètres à la fin.

Nb : Pour la sélection des dernière lignes et colonnes, j'utilise plutôt XlUp et XlToLeft, sinon vous risquez de ne pas prendre toutes les données en cas de cellules vides.

Sinon, il vous faut expliquer un peu plus les conditions dans lesquelles Excel plante. Une cause possible lorsque vous réalisez les bordures. Il faut vous assurer que le nombre des cellules en colonnes et en lignes soit supérieur à 1 pour les bordures intérieures verticales et horizontales, sachant que vous en fusionnez un certain nombre. Ne connaissant pas votre fichier, difficile de savoir.

Votre code mériterait d'être simplifié.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With ' Suite du code With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With

12/01/2022, 13h17
Pierre Fauconnier

Salut

Une macro de +/- 100 lignes n'a pas de sens. Il est largement préférable de scinder votre code en fonctions qui n'ont qu'une seule responsabilité. Ca vous permet de tester chaque fonction indépendamment des autres, notamment pour voir celle qui prend du temps.

Citation:

Envoyé par E KERGRESSE

[...]Vous pourriez déjà neutraliser le calcul des formules[...]

Attention que passer en calcul manuel sans gestion d'erreur est une hérésie sans nom. Si votre code plante, vous restez en manuel, ce qui est potentiellement mortifère.

Règle de base: On ne modifie JAMAIS une option d'Excel sans la gestion d'erreur qui va avec, en plaçant encore la gestion d'erreur au bon endroit.

Note pour le moinsseur: Il serait utile d'apprendre les bases de la programmation avant de voter -1, et de comprendre un commentaire.

Avec un Application.Calculation = xlCalculationManual non englobé dans une gestion d'erreur, on a un gros souci en cas de plantage ou de Exit Sub, puisque le calcul reste en manuel.

Avec un Application.Calculation = xlCalculationAutomatic en fin de macro, on n'est pas certain de remettre l'application dans l'état dans lequel elle se trouvait, puisqu'elle pourrait être en calcul manuel ou en semi-automatique juste avant le démarrage de la macro. Normalement, on doit mémoriser l'état du mode de calcul avant de le passer en manuel, puis le remettre dans cet état en fin de macro sur gestion d'erreur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Test() Dim CalculationMode As XlCalculation On Error GoTo Catch CalculationMode = Application.Calculation Application.Calculation = xlCalculationManual ... ... ... Catch: Application.Calculation = CalculationMode End Sub
Avant de moinsser comme un débile, il faut comprendre la portée et les conséquences de son code. Sans cela, on risque de passer pour un amateur qui pisse du code sans le comprendre. Mais c'est sans doute plus simple de cliquer sur -1 sans effort intellectuel.