Discussion :

[andy.spit]

Rebonjour,
Encore une petite question concernant une macro.
Lors d'un tri d'une centaine de cellules, je fais du autofit sur la hauteur des cellules. Cela prend un certain temps.
J'ai ajouté, pour faire patienter l'utilisateur, un userform avec une barre de progression de la macro (en %).
Mon souci c'est que pendant le tri, la userform ne se rafraichit pas et reste "blanc" (avec excel ne répond pas en haut).

Est ce qu'il y a moyen d'optimiser le rafraichissement ?

merci d'avance

[jfontaine]

Bonjour,

La gestion de l'affichage ralenti le code. On a plutôt tendance à désactiver le rafraîchissement d'écran et les calculs quand on exécute une macro

Code :

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

1
2
3
4
5
6
7
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
... CODE MACRO
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

[andy.spit]

à quoi correspond : application.calculation ?

edit : à éviter qu'EXCEL ne recalcule toutes les cellules à chaque ligne de code


cependant, malgré le screenupdating = false, je vois mes cellules changer de hauteur une par une, est ce normal ?

[jfontaine]

Non pas normal, regardes si ton code contient une ligne de raffraichissement (désactive la userform)

[Theze]

Bonjour,

Déjà, l'AutoFit il ne faut pas le faire au fur et à mesure pour chaque ligne mais une fois le traitement de ta plage fini, du genre :

Code :

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

1
2
 
Plage.Rows.AutoFit

Hervé.

[andy.spit]

@These : je ne savais pas, je vais reprendre mes lignes de code pour faire du autofit sur une plage entière

Code :

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

1
2
3
4
For a = 3 To i - 1 Step 1
    Workbooks("maintenance").Worksheets("signalements").Rows(a & ":" & a).EntireRow.AutoFit
    If Workbooks("maintenance").Worksheets("signalements").Rows(a).EntireRow.RowHeight < 30 Then Workbooks("maintenance").Worksheets("signalements").Rows(a).EntireRow.RowHeight = 30
Next

@jfontaine : je regarde si j'ai un screen updating qui traine mais je ne pense pas

[andy.spit]

super pour le autofit sur une plage et non ligne par ligne !

par contre, je test une par une la hauteur des lignes. Si elle est inférieur à 30, je la corrige à 30. t c'est ca qui prend du temps, malgré le screenupdating = false