XL 2019 Suppression espace de début et fin - Macro très rapide

[Bastien43]

Bonjour,

J'ai créé cette macro pour supprimer les espaces de début et de fin de chaque cellule (de toute une colonne : 12000 lignes)

Comment accélérer la macro, ce n'est pas rapide... ?? Existe-t-il un code plus rapide ?

Sub SupEspace()

Dim plage, cellule

Set plage = Range("D2:D12000")

For Each cellule In plage

    cellule.Value = Trim(cellule.Value)

Next cellule

End Sub

 

[job75]

Oui, on sait bien que Application.Trim c'est la fonction SUPPRESPACE en VBA.

Comme la fonction TRIM de mon post #8.

Et on sait bien que la fonction Trim en VBA ne fait pas la même chose.

 

[laurent950]

Merci @patricktoulon

tu la vois la différence ou pas ???

J'ai compris la différence à présent
un grand merci à toi Patrick
Patrick tu as donné l'explication ici
TRIM VS Application.TRIM

[Toutes versions] TRIM VS Application.TRIM - Macros et VBA Excel

dans une autre discussion MarcL a apporté une solution interessante mais souleve une question trim /Application.trim j'ai fait une petite experience je met la lettre "A" en D1 ,"B" en F1 , &q

www.developpez.net

Super Milles Merci @patricktoulon .
Laurent

 

[ChTi160]

bonsoir le Fil ,le Forum
moi je ne savais pas ! merci Patrick
Bonne fin de Soirée
jean marie