Discussion :

[Irish10]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[E KERGRESSE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[...]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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.