Discussion :

[Oliv-]

Bonjour,
J'ai une macro qui est trop trop trop trop longue à dérouler (genre 5 mn)!

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
 
Set xl_WST = ActiveSheet
application.ScreenUpdating = False
   With xl_WST.Columns("Q:Q")
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
 
application.ScreenUpdating = true

Dans le fichier environ 500 lignes avec dans chaque cellule de la colonne Q des passages à la ligne !

"Rap ini cont tech--CF COMMENTAIRES;
Rap fin cont tech--Réserves à lever;
Arrêté def cpte--;
PV reception-BET BATEI-Etanchéité;
Liste des réserves-BET BATEI-Etanchéité;
Levée Réserves-BET BATEI-Etanchéité;
Levée Réserves-TBI SHAM-Gros œuvre;
Levée Réserves-SMC-Serrurerie;
Levée Réserves-EUROGYPSE-Cloison Isolation;
Levée Réserves-LOYER-Electricité;
Levée Réserves-UTB-Plomberie;
PV reception-LEROUX-Couverture;
Liste des réserves-LEROUX-Couverture;
Levée Réserves-CETP-VRD;
Levée Réserves-EUROGYPSE-Menu inté;
Levée Réserves-OXXO-Menu ext;
Levée Réserves-FERMATIC-Porte de garage;
Levée Réserves-BAZZI-Peinture papier peint;
Levée Réserves-TLS-Revêtement sols minces;"

Qu'est ce que j'ai loupé ?

[Oliv-]

Bon j'ai détaché l'instruction et je l'ai mise à la fin

Code :

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

xl_WST.Columns("Q:Q") .WrapText = True

[Philippe Tulliez]

Bonjour,

Dans le fichier environ 500 lignes avec dans chaque cellule de la colonne Q des passages à la ligne !

Dans ce cas, pourquoi modifier les propriétés de la colonne entière ?

Ligne 3 du code

Code :

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

With xl_WST.Range("Q1:Q500")

[Oliv-]

Bonjour Philippe,
tu n'as pas tord, mais c'est vraiment quand il y a beaucoup de données que cela se produit, par exemple en insérant une colonne avant (donc Q vide) c'est instantané.