Macro trop longue : WRAPTEXT
Bonjour,
J'ai une macro qui est trop trop trop trop longue à dérouler (genre 5 mn)!
Code:
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 !
Citation:
"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é ?
