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é ?